UC知道万分火急!!!asp分页
来源：百度知道 编辑：UC知道 时间：2024/06/01 10:11:52
代码如下:
<%
pagenum=request("page")
if page="" or pagenum<1 then
page=1
else
page=pagenum
end if
%>
<%
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mdb\start.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from xinwen order by x_id", conn, 3, 3
if not rs.eof then
rs.pagesize=5
rs.absolutepage=page
end if
while not rs.eof and i<rs.pagesize
%>
<br>
<a href="xinwen.asp?x_id=<%=rs("x_id")%>"><%=rs("x_biaoti")%></a>
<%
rs.movenext
i=i+1
wend
%>
<br>
<br>
共<%=(rs.pagecount)%>页
<%if cint(page)>1 then%>
<a href="fuck.asp?page=&
<%
pagenum=request("page")
if page="" or pagenum<1 then
page=1
else
page=pagenum
end if
%>
<%
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mdb\start.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from xinwen order by x_id", conn, 3, 3
if not rs.eof then
rs.pagesize=5
rs.absolutepage=page
end if
while not rs.eof and i<rs.pagesize
%>
<br>
<a href="xinwen.asp?x_id=<%=rs("x_id")%>"><%=rs("x_biaoti")%></a>
<%
rs.movenext
i=i+1
wend
%>
<br>
<br>
共<%=(rs.pagecount)%>页
<%if cint(page)>1 then%>
<a href="fuck.asp?page=&
page=request.QueryString("page")
放在if page="" or pagenum<1 then 上面
你的页面跳转以后 执行到if page="" or pagenum<1 then page根本没有赋值，所以一直是空的，他就一直在第一页
ASP 分页类 Kin_Db_Pager
http://down.chinaz.com/soft/24767.htm
这个很好呀，省事多了，这是我用过最好用的分页类了。
pagenum=request("page")
if pagenum="" or pagenum<1 then
page=1
else
page=pagenum
end if
加到 rs.absolutepage=page 前面
楼主的 文件命名很有意思啊 呵呵