[原创]刚才做了半天完成的简易分页类 - ASP技术论坛

maxianfong

等　级：新手上路
帖　子：20
专家分：0
注　册：2005-12-20

第 12 楼

得分:0

本人到是有一个还可以~ 不过就是最后一面显示时，有错误

是这样子显示的
9 1 2 3 4 5 6 7 8 9 10 8 : 共有记录1093第1页/共137页第一页前一页下一页

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<% '=============打开数据库表，要以这种方式打开
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from jjzh where flag=1 order by id desc",conn,1,1
%>
<%'=============分页定义开始，要放在数据库打开之后
rs.PageSize=10 '定义每页记录数，可根据实际自定义
PageNo=REQUEST("Page")
recordcount=rs.recordcount
if PageNo="" or PageNo=0 then PageNo=1
RS.AbsolutePage=PageNo
TSum=rs.pagecount
RowCount=rs.PageSize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
'=============分页定义结束%>
<%'===========循环体开始
do while iPage<rs.PageSize%>
<table width="559" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="559">
<% title=rs("mr")
if len(title)>100 then title=left(title,98)+"..."
response.write title %>
<a href="gqxx_sk.asp?id=<%=rs("id")%>&fenlei=<%=session("qq")%>">[查看详细信息]</a></td>
</tr>
</table>
<table width="559" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="559"> </td>
</tr>
</table>
<%
rs.movenext
iPage=iPage+1
loop
rs.close '释放资源
set rs=nothing
'===========循环体结束%>
<%'===========过程调用，要放在数据库打开后、释放资源前
call listPages()%>
<%'==========分页过程开始，也可单独创建一文件在本文件前包含调用
sub listPages() '定义过程开始%>
<TABLE width=100% height="5" border=0 align=center cellPadding=3 cellSpacing=0>
<TBODY>
<TR>
<TD width=100% align=center bgcolor="#EEEEEE" style="LETTER-SPACING: 1px">
<%if TSum>10 then
if PageNo mod 10=0 then
currid=PageNo
currid1=PageNo-9
else
if TSum mod 10=0 then
currid=int(PageNo/10)*10+10
else
if int(PageNo/10)=int(TSum/10) then currid=(TSum/10)*10 else currid=int(PageNo/10)*10+10
end if
currid1=int(PageNo/10)*10+1
end if
else
currid=TSum mod 10
currid1=int(TSum/10)*10+1
end if%>
<FONT
face=webdings>
<%if PageNo=1 then%>
<span style="color: #FF0000">9</span>
<%else%>
<a href=<%=request.ServerVariables("script_name")%>?Page=1&fenlei=<% =trim(request("fenlei")) %> title="首页">9</a>
<%end if%>
<%if PageNo>10 then%>
<a href=<%=request.ServerVariables("script_name")%>?Page=<%=currid1-1%>&fenlei=<% =trim(request("fenlei")) %> title="前10页">7</a>
<%end if%>
</FONT><strong>
<%
for i=currid1 to currid
if PageNo=i then
response.Write("<font color=red>"&i&"</font>")
else%>
<a href=<%=request.ServerVariables("script_name")%>?Page=<%=i%>&fenlei=<% =trim(request("fenlei")) %>>
<%response.write i%>
</a>
<%end if%>
<%response.write " "%>
<%next%>
</strong><FONT
face=webdings>
<%if currid<TSum then%>
<a href=<%=request.ServerVariables("script_name")%>?Page=<%=currid+1%>&fenlei=<% =trim(request("fenlei")) %> title="后10页">8</a>
<%end if%>
</FONT> <FONT
face=webdings>
<%if PageNo=TSum then%>
<span style="color: #FF0000">:</span>
<%else%>
<a href=<%=request.ServerVariables("script_name")%>?Page=<%=TSum%>&fenlei=<% =trim(request("fenlei")) %> title="尾页">:</a>
<%end if%>
</FONT>共有记录<font color="#FF0000"><%=recordcount%></font>第<font color="#FF0000"><%=PageNo%></font>页/共<font color="#FF0000"><%=TSum%></font>页<a href=<%=request.ServerVariables("script_name")%>?Page=1>
<%If pagecount<>1 Then
Response.Write "<a href="&request.ServerVariables("script_name")&"?Page=1&fenlei="&trim(request("fenlei"))&">"
End If%>
第一页</a>
<%If pagecount<>1 Then
Response.Write "<a href="&request.ServerVariables("script_name")&"?Page="&(PageNo-1)&"&fenlei="&trim(request("fenlei"))&">"
End If%>
前一页
<%If pagecount<>TSum Then
Response.Write "<a href="&request.ServerVariables("script_name")&"?Page="&(PageNo+1)&"&fenlei="&trim(request("fenlei"))&">"
End If %>
下一页</TD>
</TR>
</TBODY>
</TABLE>
<%
end sub '定义过程结束
'==========分页过程结束%>
</body>
</html>