asp分页显示代码问题求助 100
<!--#includefile="mdb.asp"--><%setrsDe=server.createobject("adodb.recordset")sql="sel...
<!--#include file="mdb.asp"-->
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail order by id asc,id"
rsDe.open sql,conn,1,1
news=news&"<table border=0 cellpadding=0 align=center cellspacing=2 width=950 height=4>"
n=1
While Not rsDe.Eof and n<100
news = news &"<td width=200 height=18>"&rsDe("id")&"<A href='asp.asp?id="&rsDe("id")&"' target='_blank' >"&rsDe("biaoti")&"</A></td>"
if n mod 5 =0 then
news = news &"</Tr>"
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
news=news&"</table>"
response.write ""&news&""
%>
以上代码 显示出来是下图的效果，我想把显示结果分成多页，请教高手帮忙，最好把完整的代码告诉我，谢谢，必有重谢！ 展开
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail order by id asc,id"
rsDe.open sql,conn,1,1
news=news&"<table border=0 cellpadding=0 align=center cellspacing=2 width=950 height=4>"
n=1
While Not rsDe.Eof and n<100
news = news &"<td width=200 height=18>"&rsDe("id")&"<A href='asp.asp?id="&rsDe("id")&"' target='_blank' >"&rsDe("biaoti")&"</A></td>"
if n mod 5 =0 then
news = news &"</Tr>"
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
news=news&"</table>"
response.write ""&news&""
%>
以上代码 显示出来是下图的效果，我想把显示结果分成多页，请教高手帮忙，最好把完整的代码告诉我，谢谢，必有重谢！ 展开
1个回答
展开全部
多年没写asp了，下面的代码把关键的部分写出来了，应该是可以看懂的了。
<%
'连接数据库等操作省略，打开数据库等省略
'rs为打开数据库的对象
const pz=13 '这里定义分页数据，即每页多少条数据
rs.pagesize=pz '这里设置分页的数量,asp分页必须
rs.absolutepage=nowpage '这里的nowpage是用来获取当面的页码 判断nowpager的合法性省略。
allpage=rs.pagecount '这是共有多少页
pagenum=1 '设置一个变量控制页面的数量 这里其实可以不用要，自己测试。
while not rs eof and pagenum<=pz
'中间你要输出的内容
pageunm=pageunm+1
rs.movenext
wend
下面就可以写分页的一代码
如 首页 nowpage=1 下一页 nowpage+1 上一页，nowpage-1 尾页 nowpage=allpage
%>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
