news.asp

这些资料都是自己整理的

<%
dim connstr
connstr="provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("tushu.mdb")
set bb = server.createobject("adodb.connection")
bb.open connstr
%>

<%
set rs = server.createobject ("adodb.recordset")
rs.open "select * from tushumingxi ",bb,1,1
%>


else
do until rs.eof
response.write("编号："& rs("id"))
response.write("名称："& rs("mc"))
response.write("价格："& rs("jg"))
response.write("<hr>")
rs.movenext
loop
end if%>

<%rs.close
set bb=nothing%>