UC知道ASP编写分页至今头晕，求救
来源：百度知道 编辑：UC知道 时间：2024/06/30 19:02:42
我的输出是这样的代码
<% dim sql,rs_qt
sql="select * from soft_tb where softtype_2='"&request("s1")&"' and name like '%"&request("keyword")&"%' or softdata like '%"&request("keyword")&"%'"
set rs_qt=server.CreateObject("ADODB.recordset")
rs_qt.open sql,conn,1,1
if rs_qt.RecordCount<>0 then
%>
接着循环语句是
<%
while not rs_qt.eof
%>
<%
rs_qt.movenext
wend
%>
我想要分页，怎么分？谢谢
(下楼的，不行哦，出错了)
<% dim sql,rs_qt
sql="select * from soft_tb where softtype_2='"&request("s1")&"' and name like '%"&request("keyword")&"%' or softdata like '%"&request("keyword")&"%'"
set rs_qt=server.CreateObject("ADODB.recordset")
rs_qt.open sql,conn,1,1
if rs_qt.RecordCount<>0 then
%>
接着循环语句是
<%
while not rs_qt.eof
%>
<%
rs_qt.movenext
wend
%>
我想要分页，怎么分？谢谢
(下楼的，不行哦，出错了)
...
rs.open sql,conn,1,1
dim maxperpage,page,ii
maxperpage=20 '每页最多的记录数
rs.pagesize=maxperpage '设定每页最大记录数
page=request("page")
if not isnumeric(page) then page=1
page=clng(page)
if page>rs.pagecount then page=rs.pagecount
if page<1 then page=1
if not rs.eof then rs.absolutepage=page ''跳到指定记录,否则每页都从第一条开始...
for ii=1 to maxperpage
response.write .... '输出记录以及其他一些操作
rs.movenext
next
'以下开始输出分页
if page=1 then
response.write "[首页][上页]"
else
response.write "[<a href='?page=1'>首页</a>][<a href='?page="&(page-1)&"'>上页</a>]"
end if
if page=rs.pagecount then
response.write "[下页][末页]"
else
response.write "[<a href='?page="&(page+1)&"'>下页</a>][<a href='?page="&rs.pagecount&"'&