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
%>
Have no picture at present!
|
|
<%end if%>
<%
end if
if not request("type")=1 then
%>
|
|
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
%>
<%
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
%>
Have no picture at present!
|
|
<%end if%>
<%
end if
if not request("type")=1 then
%>
|
|
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
%>
<%
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
%>