您好,欢迎来到意榕旅游网。
搜索
您的当前位置:首页

来源:意榕旅游网
s四、编程题

Dim conn, strConn

strConn=\"Dbq=\" & Server.Mappath(\"address.mdb\") & \";Driver={Microsoft Access Driver

(*.mdb)}\" Set conn =Server.CreateObject(\"ADODB.Connection\")

conn.open strConn %>

<%

set rs=server.CreateObject(\"adodb.recordset\") rs.open \"select * from shop_news \%>

<% do while not(rs.eof or err) %>

<%

rs.movenext%>

序号 标题 内容 作者 时间
<%=rs(\"newsid\")%> <%=rs(\"newsname\")%> <%=rs(\"newscontent\")%> <%=rs(\"addname\")%> <%=rs(adddate\")%>

2.利用Recodset对象可以插入记录,现在针对图2所示的数据表,插入一条记录:其中公告标题(newsname字段)为“搜狐”,公告内容(newscontent字段)为“www.sohu.com”,公告作者(addname字段)为“陆扬”,提交日期(adddate字段)为当天。(注意:只写出主要代码即可,程序的开头部分已经给出。)

<%

Dim conn, strConn

strConn=\"Dbq=\" & Server.Mappath(\"address.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}\"

Set conn =Server.CreateObject(\"ADODB.Connection\") conn.open strConn %> <%

Dim conn, strConn strConn=\"Dbq=\" & Server.Mappath(\"address.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}\"

Set conn =Server.CreateObject(\"ADODB.Connection\") conn.open strConn %>

<%

set rs=server.CreateObject(\"ADODB.Recordset\") strSql =\"Select * From shop_news \" rs.open strSql, conn,1,3 '添加记录

rs.addnew

rs(\"newsname\")= \"搜狐\"

rs(newscontent\")=\"www.sohu.com\" rs(“addname\")=\"陆扬\" rs(\"adddate\")=Date() rs.update %>

因篇幅问题不能全部显示,请点此查看更多更全内容

Copyright © 2019- yrrf.cn 版权所有 赣ICP备2024042794号-2

违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务