UC知道分页问题!
来源：百度知道 编辑：UC知道 时间：2024/05/31 13:11:58
<html>
<title>分页技术</title>
<head>
<%
const MaxPerPage=25
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
</head>
<body bgcolor=Thistle>
<P align=center><FONT face=方正舒体><FONT size=5><STRONG>实例
分页技术</STRONG>
<%
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM mytable"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
E
<title>分页技术</title>
<head>
<%
const MaxPerPage=25
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
</head>
<body bgcolor=Thistle>
<P align=center><FONT face=方正舒体><FONT size=5><STRONG>实例
分页技术</STRONG>
<%
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM mytable"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
E
我告诉你吧，你把所有的分页代码存放到一个变量中去，然后在头尾只书写这个变量不就可以了，我就是这么做的，我给你看看物品写的吧。
你自己试试再按你自己的要求改下就可以了。
'用变量存储需要写入的分页横条
dim henglist
henglist="<P>PAGE "¤tpage&" OF "&n&" 共"&rs.recordcount&" 纪录"
k=currentPage
if k<>1 then
henglist=henglist+"[<b>"+"<a href='index.asp?page=1'>首页</a></b>] "
henglist=henglist+"[<b>"+"<a href='index.asp?page="+cstr(k-1)+"'>上一页</a></b>] "
else
henglist=henglist+"[首页] [上一页]"
end if
if k<>n then
henglist=henglist+"[<b>"+"<a href='index.asp?page="+cstr(k+1)+"'>下一页</a></b>] "
henglist=henglist+"[<b>"+"<a href='index.asp?page="+cstr(n)+"'>尾页</a></b>] "
else
henglist=henglist+"[