ＡＳＰ分页 - ASP技术论坛

zacom

等　级：论坛游民
威　望：2
帖　子：381
专家分：15
注　册：2007-9-15

第 2 楼

得分:0

怎么没人帮忙说下思路呢?

没有最好只有更好

2007-10-16 20:30

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 4 楼

得分:0

个人所知的分页算法
(总纪录数/每页的纪录数)=总页数
注意这里要取总纪录数与每页纪录数的余数
用程序表达为
IF 总纪录数 Mod 每页纪录数 =0 Then
总页数=(总纪录数/每页的纪录数)
Else
总页数=(总纪录数/每页的纪录数)+1
End IF

2007-10-16 21:01

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 6 楼

得分:0

如果楼主想用ADODB.Recordset的话可以直接使用这个对象自身的分页算法。

2007-10-16 21:10

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 8 楼

得分:0

[CODE]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">



<%
'声明数据库记录集对象
Dim rsano
Dim oWebI
'创建数据库记录集对象
Set rsano=Server.CreateObject("ADODB.Recordset")
'设定数据库记录集游标类型
rsano.cursortype=3
'打开记录集对象
rsano.Open "select * From ANOUCE ORDER BY AnnounceTheDate DESC",con
'设定每页显示记录数
rsano.pagesize=25
'得到请求的页号
page=clng(request("page"))
IF request("page")<>"" then
page=clng(request("page"))
Else
page=1
End IF
IF page<1 Then page=1
If page>rsano.pagecount Then page=rsano.pagecount
rsano.absolutepage=page
'网页样式初始化代码
Dim PageStyleT
Set oWebI=New WebSetInf
Set PageStyleT=New PageStyle
Call QueryStyle("网站公告页面",PageStyleT)
%>
<title><%=oWebI.WebName%>-网站公告页面</title>

<style type="text/css">

</style>
<STYLE type=text/css>
A {
TEXT-TRANSFORM: none; TEXT-DECORATION: none
}
UNKNOWN {
TEXT-DECORATION: underline
}
.style22 {font-size: 12px}
.style16 {font-size: 14px}
BODY {
background-color: <%=PageStyleT.BackGround%>;
}
</STYLE>
</head>
<BODY>
<table width="294" height="46" border="0" cellspacing="0">
<tr>
<td width="338"><div align="center" class="style22">公告标题</div></td>
<td width="95"><div align="center" class="style22">发布日期</div></td>
</tr>
<%
'定义循环变量
dim iPage
For iPage=1 to rsano.Pagesize
'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式
Response.Write("<tr>")
Response.write("<td><span class=style16><a href=announceview.asp?anbh="&rsano.Fields(0).Value&" target=_self>"&rsano.Fields(1).Value&"</a></span></td>")
Response.Write("<td><span class=style22>"&FormatDateTime(rsano.Fields(4).Value,2)&"</span></td>")
Response.Write("</tr>")
rsano.MoveNext
IF rsano.EOF Then
Exit For
End If
Next
%>
</table>
<table width="293" border="0">
<tr>
<%
'翻页控制代码
IF page<>1 Then
Response.Write("<td><span class=style22><a href=announce.asp?page=1>第一页</a></span></td>")
Response.Write("<td><span class=style22><a href=announce.asp?page="&(page-1)&">上一页</a></span></td>")
Else
Response.Write("<td><span class=style22>第一页</span></td>")
Response.Write("<td><span class=style22>上一页</span></td>")
End IF
IF page<>rsano.pagecount then
Response.Write("<td><span class=style22><a href=announce.asp?page=" & (page+1) & ">下一页</a></span></td>")
Response.Write("<td><span class=style22><a href=announce.asp?page=" & rsano.pagecount & ">最后一页</a></span></td>")
Else
Response.Write("<td><span class=style22>下一页</span></td>")
Response.Write("<td><span class=style22>最后一页</span></td>")
End IF
%>
<td><span class=style22>共<%=rsano.pagecount%>页</span></td>
<td><span class=style22>当前第<%=page%>页</span></td>
</tr>
</table>
<%
'网页对象析构代码
Set PageStyleT=Nothing
rsano.Close
con.Close
Set rsano=Nothing
Set con=Nothing
Set oWebI=Nothing
%>
</body>
</html>[/CODE]
使用ADODB.RecordSet的最简单的分页代码

2007-10-16 21:20