| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 773 人关注过本帖
标题:Error:ADODB.Recordset (0x800A0E78)
只看楼主 加入收藏
huljuan
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-8-25
收藏
 问题点数:0 回复次数:2 
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
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
rs对像出错(记录集不存在,缺少rs.open语句)

2005-08-25 11:57
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
什么东西 不会是源代码吧 累死也看不懂
2005-08-25 12:03
快速回复:Error:ADODB.Recordset (0x800A0E78)
数据加载中...
 
   



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

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