<%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 %> <% i=1 for i=1 to totalpages if i=currentpage then %> selected> <%=i%> <%else%> > <%=i%> <% end if next %> <%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 %> <% i=1 for i=1 to totalpages if i=currentpage then %> selected> <%=i%> <%else%> > <%=i%> <% end if next %> <%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 %>

rs对像出错(记录集不存在,缺少rs.open语句)

什么东西 不会是源代码吧 累死也看不懂