标题:Error:ADODB.Recordset (0x800A0E78)
取消只看楼主
huljuan
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-8-25
 问题点数:0 回复次数:0 
Error:ADODB.Recordset (0x800A0E78)
<%sub pic_body()%>
<% sql="select * from autopiccat" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof if request.querystring("piccat_id")<>Cstr(rs("piccat_id")) then %> "><%=rs("piccat_name")%> <%else%> <%=rs("piccat_name")%> <% end if rs.movenext loop if rs.eof and rs.bof then %> Return to have no picture at present classification <% end if dim totalpic,Currentpage,totalpages,i sql="select * from autopic order by pic_id DESC" if request.querystring("piccat_id")<>"" then sql="select * from autopic where piccat_id="&request.querystring("piccat_id")&" order by pic_id DESC" end if set rs=server.createobject("adodb.recordset") totalcs=rs.recordcount '些行出错 %>
Have <%=totalcs%> pictures totally at present
<% if not rs.eof then rs.movefirst rs.pagesize=picperpage if trim(request("page"))<>"" then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount end if else currentpage=1 end if if currentpage<>1 then if (currentpage-1)*picperpage <% i=i+1 if i mod 3 = 0 then%> <% end if rs.movenext loop else if rs.eof and rs.bof then %> <%end if%>
')"> " border="0" width="140" height="105" border="0" title="pic name:<%=rs("pic_name")%> Click the number of times:<%=rs("pic_count")%>">
Have no picture at present!
<% end if if not request("type")=1 then %>
">
total[<%=totalpages%>]Page <% if CurrentPage<2 then response.write "Home Page Front Page " else response.write "Home Page " response.write "Front Page " end if if totalpages-currentpage<1 then response.write "Next Page Tail Page" else response.write "Next Page Tail Page" end if %>
<%end if%>
Browse the seniority
<% sql="SELECT top "&toppicnum&" * FROM autopic ORDER by pic_count DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof %> ')" title="Click the number of times:<%=rs("pic_count")%>"><%=rs("pic_name")%> <% rs.movenext loop if rs.eof and rs.bof then%>Return to have no picture at present<%end if%><%call br%>
<% sql="SELECT top "&bestpic&" * FROM autopic where isbest = 1 ORDER by pic_date DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof %>
')"> " border="0" width="140" height="105" border="0" title="pic name:<%=rs("pic_name")%> Click the number of times:<%=rs("pic_count")%>">
<% rs.movenext loop if rs.eof and rs.bof then%>Return to have no picture at present<%end if%>
<% rs.close set rs=nothing end sub %> <%sub pic_body()%>
<% sql="select * from autopiccat" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof if request.querystring("piccat_id")<>Cstr(rs("piccat_id")) then %> "><%=rs("piccat_name")%> <%else%> <%=rs("piccat_name")%> <% end if rs.movenext loop if rs.eof and rs.bof then %> Return to have no picture at present classification <% end if dim totalpic,Currentpage,totalpages,i sql="select * from autopic order by pic_id DESC" if request.querystring("piccat_id")<>"" then sql="select * from autopic where piccat_id="&request.querystring("piccat_id")&" order by pic_id DESC" end if set rs=server.createobject("adodb.recordset") totalcs=rs.recordcount '些行出错 %>
Have <%=totalcs%> pictures totally at present
<% if not rs.eof then rs.movefirst rs.pagesize=picperpage if trim(request("page"))<>"" then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount end if else currentpage=1 end if if currentpage<>1 then if (currentpage-1)*picperpage <% i=i+1 if i mod 3 = 0 then%> <% end if rs.movenext loop else if rs.eof and rs.bof then %> <%end if%>
')"> " border="0" width="140" height="105" border="0" title="pic name:<%=rs("pic_name")%> Click the number of times:<%=rs("pic_count")%>">
Have no picture at present!
<% end if if not request("type")=1 then %>
">
total[<%=totalpages%>]Page <% if CurrentPage<2 then response.write "Home Page Front Page " else response.write "Home Page " response.write "Front Page " end if if totalpages-currentpage<1 then response.write "Next Page Tail Page" else response.write "Next Page Tail Page" end if %>
<%end if%>
Browse the seniority
<% sql="SELECT top "&toppicnum&" * FROM autopic ORDER by pic_count DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof %> ')" title="Click the number of times:<%=rs("pic_count")%>"><%=rs("pic_name")%> <% rs.movenext loop if rs.eof and rs.bof then%>Return to have no picture at present<%end if%><%call br%>
<% sql="SELECT top "&bestpic&" * FROM autopic where isbest = 1 ORDER by pic_date DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof %>
')"> " border="0" width="140" height="105" border="0" title="pic name:<%=rs("pic_name")%> Click the number of times:<%=rs("pic_count")%>">
<% rs.movenext loop if rs.eof and rs.bof then%>Return to have no picture at present<%end if%>
<% rs.close set rs=nothing end sub %>
搜索更多相关主题的帖子: Recordset ADODB 
2005-08-25 11:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-25991-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.213427 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved