又是Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'Rs'
河南浪人 2009-05-03 08:28:32 <%
sql="select top 10 * from Forum where Deltopic=0 and CloseTopic=0 and Locktopic=0 and Auditing=0 order by ID desc"
set rs=conn.execute(sql)
'set rs=server.CreateObject("ADODB.Recordset")
if(rs.eof and rs.bof) then
response.write("<tr><td height='25'>暂无图片。</td></tr>")
else
do while not(rs.eof)
%>
<%
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 25 '定义每页显示的记录数
mpage = pages
mrs = rs.Recordcount
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
i=0
Do while not rs.eof and pages > 0
i=i+1
if i mod 2=0 then
c="tb_lrborder2"
else
c="tb_lrborder"
end if
%>
<table width="400" height="110" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="<%=c%>">
<tr>
<td align="center" valign="middle" class="tdbottom_xx">
<%
if not rs.eof then
%>
<table width="120" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="<%=rs("Tags")%>" border="0" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td align="center"></td>
</tr>
</table>
<%
rs.MoveNext
pages=pages-1
end if
%> </td>
<td align="center" valign="middle" class="tdbottom_xx"><%
if not rs.eof then
%>
<table width="120" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="<%=rs("Tags")%>" border="0" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td align="center"></td>
</tr>
</table>
<%
rs.MoveNext
pages=pages-1
end if
%></td>
</tr>
</table>
<%
loop
end if
rs.Close
Set rs=Nothing
%>
<%
Rs.movenext /*提示错误的地方*/
loop
end if
rs.close
set rs=nothing
%>
</body>