asp分页函数

<
%'=============分页定义开始，可放在数据库打开前或后
dim action
action=request.QueryString("action") 
 

Const MaxPerPage=20 
 
'定义每页显示记录数，可根据实际自定义
dim totalPut 
 

dim CurrentPage
dim TotalPages
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if 
 
 
 
 
 
 

'=============分页定义结束%>

<
% '=============打开数据库数据表，要以这种方式打开 
 

set rs=server.CreateObject("adodb.recordset")
sql="select * from p_log order by id desc"

rs.open sql,conn,1,1
'sql="select * from ht_cp where"
%>

<
%'=============分页类代码开始，需放在数据库数据表打开后
 
 

 
 
 
if err.number<
>
0 then
 
 
 
response.write "<
p align='center'>
数据库中暂时无数据<
/p>
"
 
 
 
end if 
 
 

 
 
 
 
 
if rs.eof And rs.bof then
 
 
 
 
 
 
 
 
 
 
Response.Write "<
p align='center'>
对不起，没有符合条件记录！<
/p>
"
 
 
 
 
 
 
else
totalPut=rs.recordcount
 
 
 
 
 
 
 
 
 
if currentpage<
1 then
 
 
 
 
 
 
 
 
 
 
 
 
 
currentpage=1
 
 
 
 
 
 
 
 
 
end if

 
 
 
 
 
 
 
 
 
if (currentpage-1)*MaxPerPage>
totalput then
 
 
 
 
 
 
 
 
if (totalPut mod MaxPerPage)=0 then
 
 
 
 
 
 
 
 
 
 
currentpage= totalPut \ MaxPerPage
 
 
 
 
 
 
 
 
else
 
 
 
 
 
 
 
 
 
 
 
currentpage= totalPut \ MaxPerPage + 1
 
 
 
 
 
 
 
 
end if
 
 
 
 
 
 
 
 
 
end if

 
 
 
 
 
 
 
 
 
 
if currentPage=1 then
 
 
 
 
 
 
 
 
 
 
 
 
 
showContent 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
' 
showpage totalput,MaxPerPage,""&
request.ServerVariables("script_name")&
"" 

 
 
 
 
 
 
 
 
 
 
else
 
 
 
 
 
 
 
 
 
 
 
 
 
if (currentPage-1)*MaxPerPage<
totalPut then
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
rs.move 
(currentPage-1)*MaxPerPage
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
showContent
 
 
 
 
 
 
 
 
 
 
 
 
' 
 
 
showpage totalput,MaxPerPage,""&
request.ServerVariables("script_name")&
"" 

 
 
 
 
 
 
 
 
 
 
 
else
 
 
 
 
 
 
 
 
 
 
 
 
currentPage=1
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
showContent
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
' 
showpage totalput,MaxPerPage,""&
request.ServerVariables("script_name")&
"" 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
end if
 
 
 
 
 
 
 
end if
 
 
 
 
 
 
 
 
 
 
end if
'=============分页类代码结束%>

<
%'=============循环体开始
 
 
sub showContent
 
 
dim i
 
 
i=0 

 
 
do while not rs.eof%>

 

 

循环体

 

<
%i=i+1
if i>
=MaxPerPage then Exit Do
rs.movenext
loop
rs.close 
 
'释放资源
set rs=nothing
 
End Sub 
 

'=============循环体结束%>
 

<
!--------------------------------------------分页位置---------->

<
%showpage totalput,MaxPerPage,""&
request.ServerVariables("script_name")&
"" 
%>

<
!------------------------------------------------------>

 

 

 

<
%'=============放置分页显示开始
 
Function showpage(totalnumber,maxperpage,filename) 

 
 
 
 
 
Dim n 
 
 
 
 

 
 
 
If totalnumber Mod maxperpage=0 Then 

 
 
 
 
n= totalnumber \ maxperpage 

 
 
 
Else
 
 
 
 
n= totalnumber \ maxperpage+1 

 
 
 
End If %>

 
 
 
<
form method=Post action=<
%=filename%>
>

 
 
 
<
p align="center">

<
%If CurrentPage<
2 Then 
%>

 
 
 
首 页 上一页
 
 
 
<
% Else 
%>

 
 
 
<
a href=<
% = filename %>
?page=1>
首 页<
/a>

 
 
 
<
a href=<
% = filename %>
?page=<
% = CurrentPage-1 %>
>
上一页<
/a>

 
 
 
<
% End If
 
 
 
If n-currentpage<
1 Then 
%>

 
 
 
下一页 尾 页
 
 
 
<
% 
Else 
%>

 
 
 
<
a href=<
% = filename %>
?page=<
% = (CurrentPage+1) %>
>
下一页<
/a>

 
 
 
<
a href=<
% = filename %>
?