[求助]数据库的显示老是不成功
在运以下代码时 明数据库里面有数据却只显示“暂无数据”
请高手帮助分析一下吧
<%
dim conn,connstr
db="data.mdb"
on error resume next
connstr="DBQ="+server.MapPath(""&db&"")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject(adodb.connection)
if err then
err.clear
else
conn.open connstr
end if
set sql="select * from data order by ID desc"
set rs=conn.execute(sql)
if rs.eof then
response.Write"暂无数据"
else
do while not rs.eof
response.Write" "&rs("file")&""
rs.movenext
loop
end if
%>
