Paging <% ' This procedure file is named:pages.asp%>
<% ' contains the ADO constant table file Adovbs.inc, which can be copied from the \program Files\Common Files\System\ado directory%>
<!--#Include file= "Adovbs.inc"-->
<% ' * Establish a database connection, this is the Oracle8.05 database
Set conn=server.createobject ("ADODB. Connection ")
Conn. Open "Provider=msdaora.1;data source=yoursrcname; User Id=youruserid; Password=yourpassword; "
Set rs=server.createobject ("ADODB. Recordset ")" To create a Recordset object
Rs. Cursorlocation=aduseclient ' Set the recordset pointer property
"* Set the total number of records on one page, adjust as needed
Rs. pagesize=10
' * Set query statement
Strsql= "Select ID, name, address, phone from address book ORDER by ID"
Rs. Open Strsql,conn,adopenstatic,adlockreadonly,adcmdtext
%>
<HTML>
<HEAD>
<title> Pagination Example </title>
<script language=javascript>
When you click on "[First page]", Respond:
function Pagefirst ()
{
Document. myform.currentpage.selectedindex=0;
Document. MyForm.CurrentPage.onchange ();
}
When you click on [prev], respond:
function Pageprior ()
{
Document. myform.currentpage.selectedindex--;
Document. MyForm.CurrentPage.onchange ();
}
When you click on "[Next page]", Respond:
function Pagenext ()
{
Document. myform.currentpage.selectedindex++;
Document. MyForm.CurrentPage.onchange ();
}
When you click on "[last page]", Respond:
function Pagelast ()
{
Document. Myform.currentpage.selectedindex=document. Myform.currentpage.length-1;
Document. MyForm.CurrentPage.onchange ();
}
Select "section"? Page response:
function Pagecurrent ()
{//pages.asp is the file name of this program
Document. Myform.action= ' pages.asp? Page= ' + (document. MYFORM.CURRENTPAGE.SELECTEDINDEX+1)
Document. Myform.submit ();
}
</Script>
</HEAD>
<body bgcolor= "#ffffcc" link= "#008000" vlink= "#008000" alink= "#FF0000" ">
<%if Rs. Eof THEN
Response.Write ("<font size=2 color= #000080 no records in the >[database!") ]</font> ")
ELSE
' Specify the current page number
If Request ("currentpage") = "" Then
Rs. Absolutepage=1
Else
Rs. ABSOLUTEPAGE=CLNG (Request ("CurrentPage"))
End If
' Create form MyForm, method to get
Response.Write ("<form method=get name=myform>")
Response.Write ("<p align=center><font size=2 color= #008000 >")
' Set the page-Flip hyperlink
If Rs. Pagecount=1 Then
Response.Write ("[first page] [prev] [next] [last]")
Else
If Rs. Absolutepage=1 Then
Response.Write ("[First] [prev]")
Response.Write ("[<a href=javascript:pagenext () > next page </a>]")
Response.Write ("[<a href=javascript:pagelast () > last page </a>]")
Else
If Rs. Absolutepage=rs. PageCount Then
Response.Write ("[<a Href=javascript:pagefirst () > First page </a>]")
Response.Write ("[<a href=javascript:pageprior () > previous page </a>]")
Response.Write ("[Next page] [last page]")
Else
Response.Write ("[<a Href=javascript:pagefirst () > First page </a>]")
Response.Write ("[<a href=javascript:pageprior () > previous page </a>]")
Response.Write ("[<a href=javascript:pagenext () > next page </a>]")
Response.Write ("[<a href=javascript:pagelast () > last page </a>]")
End If
End If
End If
' Create a Drop-down list box to select the Browse page number
Response.Write ("<select size=1 name=currentpage onchange=pagecurrent () >")
For I=1 to Rs. PageCount
If Rs. Absolutepage=i Then
Response.Write ("<option selected>" &i& "</option>") ' current page number
Else
Response.Write ("<option>" &i& "</option>")
End If
Next
Response.Write ("</select> page/Total" &rs. pagecount& "Page Total" &rs. recordcount& "Record </font><p>")
Response.Write ("</form>")
' Create a table for displaying
Response.Write ("<table align=center cellspacing=1 cellpadding=1 border=1")
Response.Write ("bordercolor= #99CCFF bordercolordark= #b0e0e6 bordercolorlight= #000066 >")
Response.Write ("<tr bgcolor= #ccccff bordercolor= #000066 >")
Set Columns=rs. Fields
"Show the table header
For I=0 to Columns.count-1
Response.Write ("<td align=center width=200 height=13>")
Response.Write ("<font size=2><b>" &columns (i) .name& "</b></font></td>")
Next
Response.Write ("</tr>")
' Show content
For I=1 to Rs. PageSize
Response.Write ("<tr bgcolor= #99ccff bordercolor= #000066 >")
For J=0 to Columns.count-1
Response.Write ("<td><font size=2>" &columns (j) & "</font></td>")
Next
Response.Write ("</tr>")
Rs.movenext
If Rs. EOF then Exit for
Next
Response.Write ("</table>")
End IF
%>
</BODY>
</HTML>
