奥特兄弟之歌:帮我分析一下,那里错了?

来源:百度文库 编辑:神马品牌网 时间:2024/05/05 09:42:24
<%
dim objconn, objrs
set objconn=Server.CreateObject("ADODB.Connection")
objconn.open " driver={SQL Server}; Server=192.168.0.60; DataBase=trade; uid=sa; pwd=sa; database=trade"
strsql="select 题名 from xianxingwenjian order by 日期 desc"
set objrs=objconn.execute(strsql)
objrs.pagesize=5

for i=1 to objrs.pagesize
response.write "<tr><td><b><a href='\yuyuezaixian\"&objrs("题名")&"'>" & objrs("题名") & "</a></b></td></tr>"
objrs.movenext
next

objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
这个问题我解决了,response.write "<tr><td><b><a href='\yuyuezaixian\"&objrs("题名")&"'>" & objrs("题名") & "</a></b></td></tr>"
但是还是有问题,主要是在这句话里面

for i=1 to objrs.pagesize
response.write "<tr><td><b><a href='\yuyuezaixian\"&objrs("题名")&"'>" & objrs("题名") & "</a></b></td></tr>"
objrs.movenext
next

因为你不知道数据库里是不是有objrs.pagesize条数据
所以直接用循环。就会出错。

应该是

for i=1 to objrs.pagesize

if objrs.eof then
exit next
else
response.write "<tr><td><b><a href='\yuyuezaixian\"&objrs("题名")&"'>" & objrs("题名") & "</a></b></td></tr>"
end if
objrs.movenext
next

出错提示是什么?