四

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%>

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 %>