asp循环翻页问题

来源：百度知道编辑：UC知道时间：2024/06/04 12:16:57

到底错误在哪里，为什么只读一个值，循环不好用，翻页也不好用
<%
page=clng(request("page"))
sql1="select title from product where tg='1'order by id desc"
set rs11=conn.execute(sql1)
rs11.open sql1,conn,1,1

sql="select * from comment where com_title='"+rs11("title")+"'order by com_id desc"
set rs=conn.execute(sql)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else

%>
<%
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<%
rs.movenext
rs11.movenext
if rs11.eof then exit for
next
%>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
rs11.close
set rs11=nothing
conn.close
set conn=nothing

<%
dim page
page=request("page")
PageSize =10
dim rspic,Sqlpic
set rspic=server.CreateObject("ADODB.RecordSet")
Sqlpic="select * from ephoto order by id desc"
rspic.open Sqlpic,Conn,3,3

rspic.PageSize = PageSize
totalfilm=rspic.recordcount
pgnum=rspic.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rspic.AbsolutePage=page
if rspic.eof or rspic.bof then
response.write " 还没有任何记录！"
else
%>
<%
count=0
do while not (rspic.eof or rspic.bof) and count<rspic.PageSize
%>
…………………………
……………………

<%rspic.movenext
count=count+1
loop
end if%>

……………………
……………………
[共<%=rspic.pagecount%>幅]

ASP横向循环输出+翻页 ASP翻页you 问题 Asp翻页的问题 ASP 翻页代码问题 asp翻页显示问题 ASP翻页问题 asp翻页问题 asp翻页问题，请指点！ asp的循环问题 asp,循环问题

asp循环 翻页问题

asp循环翻页问题