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 \%>
…
序号 | 标题 | 内容 | 作者 | 时间 |
<%=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
本站由北京市万商天勤律师事务所王兴未律师提供法律服务