满足SQL条件的分页代码

来源：百度知道 编辑：UC知道 时间：2024/05/24 08:04:32
<%
name1=request.QueryString("name")
set rsa=server.CreateObject("adodb.recordset")
sqla="select * from new where n_iji='"&name1&"' order by n_id desc"
rsa.open sqla,conn,1,1
%>

<%
name1=request.QueryString("name")
set rs=server.CreateObject("adodb.recordset")
sqla="select * from new where n_iji='"&name1&"' order by n_id desc"
rs.open sqla,conn,1,3

if rs.eof and rs.bof then
response.Write("no record")
else

'----------------分页部分参数------------------
rs.pagesize=20 '每页记录条数
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage="1" end if '初始化页数
rs.absolutepage=curpage '将本页设为curpage设置的页数

for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
内容
<%
rs.movenext
next
end if
%>

----------------翻页部分-----------------
<%if curpage=1 then%>
<a title="Top"><font face="webdings" color="#000000"