28,390
社区成员
发帖
与我相关
我的任务
分享
<%
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.RecordSet")
conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("data.mdb") &";"
conn.open
sqlstr="select * from student"
rs.open sqlstr,conn
if rs.eof then 'Changed by ACMAIN
response.write ("存在记录")
else
response.Write("记录数为空")
end if
do while not rs.eof 'show the records
response.Write rs.fields(0).value
rs.movenext
loop
set rs=nothing
set conn=nothing
%>