[转]asp＋oracle分页

PageSize：每页显示的记录数。
PageCount：根据用户设定好的PageSize和表中的总记录数，系统自动算出总页数。
RecordCount：表中的总记录数。
AbsolutePage：表示当前页码。如将AbsolutePage属性设为3，则当前记录移至第3页第1条（也就是第31条）。
  
知道Recordset具有这几个属性后，相信大家都觉得实现记录的分页显示是很简单的。
先打开数据库及表，再设定好PageSize和AbsolutePage，最后将记录数据输出到浏览器，就可以大功告成。
诚然，使用Access或SQL server作数据库时，就这么简单，因为这两种数据库都支持Recordset的这几个用于分页的属性。
与Access或SQL server相比，Oracle数据库提供更好的安全性，并且在数据量极大的情况下性能占优，
然而Oracle并不支持这些分页属性。本文将介绍一种利用ASP实现对Oracle数据记录分页显示的方法，
使得Oracle用户能够轻松方便地实现记录分页显示。 二、实现过程分析

<%
 sql = "Select * From data" 
 Set conn = Server.CreateObject("ADODB.Connection") 
 Cnn.Open "dsn=servername;uid=user;pwd=password;"
 Set Rs = Server.CreateObject("ADODB.Recordset")
 Rs.CursorType = 3
 Rs.LockType = 3
 Rs.Open sql, conn   //如果没有记录，就退出
If Rs.EOF Then  
Response.End 
End If 
%>

//以下显示表头 
<p align="center">个人资料表<br></p> 
<div align="center"> 
<center> 
<table border="1" width="560" cellspacing="0" cellpadding="0"> 
<tr> 
<td width="140" align="center">编号</td> 
<td width="140" align="center">姓名</td> 
<td width="140" align="center">电话</td>  <td width="140" align="center">E-mail</td>
 </tr>
 <%
 RecordsPerPage=10 //设置每页显示记录数为10条记录
 CurrentPageNumber=0 //设置当前页号为0
 INDEX=1   //设置记录编号为1
 //如果当前页号参数不为空，则将其类型转换为长整型，并调用该参数
 if Request.QueryString("CurrentPageNumber") <> "" then
 CurrentPageNumber=CLng(Request("CurrentPageNumber")) 
 end if 
 //因为默认页号从0开始，所以要将参数减1
 CurrentPageNumber=CurrentPageNumber-1
//以下计算总的记录条数 
TotalRrecord=0 
While (not Rs.EOF) 
Rs.MoveNext 
TotalRecord=TotalRecord 1 
Wend 
//以下计算总页数TotalPageNumber 
if (TotalRecord mod RecordsPerPage)=0 then  
TotalPageNumber=(TotalRecord/RecordsPerPage)  
else  
TotalPageNumber=((TotalRecord/RecordsPerPage) 1) 
end if 
//如果输入页号参数小于0，则显示首页 
If CurrentPageNumber<0 Then  
CurrentPageNumber=0 
end if  
//如果输入页号参数大于总页数减1，则显示最后一页 
if CurrentPageNumber>(TotalPageNumber-1) Then  
CurrentPageNumber=(TotalPageNumber-1) 
end if 
Rs.movefirst  //记录指针返回到第一个记录 
//以下让纪录指针越过输入页号以前的记录，走到当前页的第一个纪录 
PASSNUMBER = CurrentPageNumber*RecordsPerPage 
for i=0 to PASSNUMBER -1  
Rs.movenext 
next 
INDEX = PASSNUMBER 1 
NUMBER = 1 //NUMBER为计数器 
//以下显示当前页的表内容 
While (not Rs.EOF)and (NUMBER <= RecordsPerPage)  
%> 
<tr> 
<td width="140" align="center"><%Response.Write (INDEX)%></td> //编号 
<td width="140" align="center"><%Response.Write Rs("name")%></td> //姓名 
<td width="140" align="center"><%Response.Write Rs("telephone")%></td> //电话 
<td width="140" align="center"><%Response.Write Rs("email")%></td> //电子邮件 
</tr> 
<% 
Rs.MoveNext  
INDEX = INDEX 1 //编号加1 
NUMBER = NUMBER 1 //计数器加1 
Wend  
Rs.close 
%>  
</table>  
</center>  
</div>  
</html> 
//以下表单实现页码导航
<% pageName="display.asp" %>
<FORM Action=<%= pageName%> Method=GET> 
<% 
If CurrentPageNumber<>0 Then
%> 
<A HREF=<%= pageName%>?CurrentPageNumber=1>第一页</A> 
<A HREF=<%= pageName%>?CurrentPageNumber=<%=(CurrentPageNumber)%>>上一页</A> 
<% 
End If 
If CurrentPageNumber<>( TotalPageNumber -1) Then
%> 
<A HREF=<%= pageName%>?CurrentPageNumber=<%=(CurrentPageNumber 2)%>>下一页</A> 
<A HREF=<%= pageName%>?CurrentPageNumber=<%=(TotalPageNumber)%>>最后一页</A> 
<% 
End If  
%> 
输入页码:<INPUT TYPE=TEXT Name=CurrentPageNumber>现在处于第<%=(CurrentPageNumber 1)%>页/共<%=TotalPageNumber%>页