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


<%if rs.eof and rs.bof then
response.write("暂时没有文章")
else
for i=1 to 3
response.write("编号："& rs("id"))
response.write("名称："& rs("mc"))
response.write("价格："& rs("jg"))
response.write("<hr>")
rs.movenext
next
end if%>

<%rs.close
set bb=nothing%>