杭州交通信息网新乡二十二所待遇高吗:ASP编写分页至今头晕，求救
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 05:41:41
<% 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&"'>末页</a>]"
end if
'分页显示结束...
以上代码只是介绍个大概思路...具体的根据实际情况修改使用..&_&
<td height="30" class="content"><div align="right"><span class="song13black">每页<%=rs.pagesize%>条 共<%=rs.recordcount%>条 <%=pagenum%>/ <%=rs.pagecount%>页 <a href="news.asp" class="song13black">首页</a>
<%if pagenum>1 then%>
<a href="news.asp?pagenum=<%=(pagenum-1)%>"> 上一页</a>
<%else%>
上一页
<%end if%>
<%if pagenum<trim(pagecount1) then%>
<a href="news.asp?pagenum=<%=pagenum+1%>" class="song13black">下一页</a>
<%else%>
下一页
<%end if%>
<a href="news.asp?pagenum=<%=pagecount1%>" class="song13black">尾页</a> </span> </div></td>