问个简单的asp问题

'最近更新
function get_update(CatalogID,topNum,cutNum,showTime,isRoot)
dim strDateTime,strSoftName
if CatalogID=0 then
sql="select top "&topNum&" SoftID,SoftName,SoftVer,SoftTime from SoftDown_SoftInfo order by SoftTime desc"
else
if isRoot=1 then
sql="select top "&topNum&" SoftID,SoftName,SoftVer,SoftTime from SoftDown_SoftInfo where RootID="&CatalogID&" order by SoftID desc"
else
sql="select top "&topNum&" SoftID,SoftName,SoftVer,SoftTime from SoftDown_SoftInfo where CatalogID="&CatalogID&" order by SoftID desc"
end if
end if
get_update = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"">"& vbcrlf
Rs.open sql,conn,1,1
i=0
if Rs.eof and Rs.bof then
get_update = get_update & " <tr>"& vbcrlf
get_update = get_update & " <td>Sorry！没有查询到任何记录。</td>"& vbcrlf
get_update = get_update & " </tr>"& vbcrlf
else
do while not Rs.eof
if showTime=0 then
strDateTime=""
else
strDateTime=DateTimeFormat(Rs("SoftTime"),showTime)
end if
strSoftName=rs("SoftName")&" "&rs("SoftVer")
get_update = get_update & " <tr>"& vbcrlf
get_update = get_update & " <td>·<a href=""../SoftView/SoftView_"&Rs("SoftID")&".html"" target=""_blank"" Title="""&strSoftName&""">"&cutStr(trim(strSoftName),cutNum)&"</a> "&strDateTime&"</td>"& vbcrlf
get_update = get_update & " </tr>"& vbcrlf
i=i+1
if i>=5 then exit do
Rs.movenext
loop
end if
Rs.close
get_update = get_update & "</table>"& vbcrlf
end function




请问这个循环不是5条就调出循环吗？ 怎么我实际用跳不出

 

TTT

 

原来他是行的，谢谢

Randomize
rs.absoluteposition=Round(rnd*rs.recordcount)


我在asp文件放多一个
就
ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/inc/function.asp，行 1055