One page Code Example
<%'' Program File Name: 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" -->
<% ''' * Create a database connection. Here 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") ''Create A recordset object
Rs. cursorlocation = aduseclient '': set the record set pointer attribute
''' * Sets the total number of records on one page, which can be adjusted as needed.
Rs. pagesize = 10
''' * Set the query statement
Strsql = "select ID, name, address, phone number from Address Book order by ID"
Rs. Open strsql, Conn, adopenstatic, adlockreadonly, ad1_text
%>
<HTML>
<Head>
<Title> paging example </title>
<Script language = JavaScript>
// Response when you click "[first page:
Function pagefirst ()
{
Document. myform. currentpage. selectedindex = 0;
Document. myform. currentpage. onchange ();
}
// Response when you click "[Previous Page:
Function pageprior ()
{
Document. myform. currentpage. selectedindex --;
Document. myform. currentpage. onchange ();
}
// Response when you click "[Next Page:
Function pagenext ()
{
Document. myform. currentpage. selectedindex ++;
Document. myform. currentpage. onchange ();
}
// Response when you click "[last page:
Function pagelast ()
{
Document. myform. currentpage. selectedindex = Document. myform. currentpage. Length-1;
Document. myform. currentpage. onchange ();
}
// Select "nth? Page "response:
Function pagecurrent ()
{// Pages. asp is the program file name
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
''Specifies the current page number
If request ("currentpage") = "" then
Rs. absolutepage = 1
Else
Rs. absolutepage = clng (Request ("currentpage "))
End if
''Create the form myform by using get
Response. Write ("<form method = get name = myform> ")
Response. Write ("<p align = center> <font size = 2 color = #008000> ")
''Sets the paging hyperlink
If Rs. pagecount = 1 then
Response. Write ("[first page] [Previous Page] [Next Page] [last page]")
Else
If Rs. absolutepage = 1 then
Response. Write ("[first page] [Previous Page]")
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 ()> page 1 </a>]")
Response. Write ("[<a href = javascript: pageprior ()> previous page </a>]")
Response. Write ("[Next Page] [last page]")
Else
Response. Write ("[<a href = javascript: pagefirst ()> page 1 </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 browser page number
Response. Write ("th <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 & "records </font> <p> ")
Response. Write ("</form> ")
''Create a table for display
Response. Write ("<Table align = center cellspacing = 1 cellpadding = 1 border = 1 ")
Response. Write ("bordercolor = #99 CCFF bordercolordark = # b0e0e6 bordercolorlight = #000066> ")
Response. Write ("<tr bgcolor = # ccccff bordercolor = #000066> ")
Set columns = Rs. Fields
''Display 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> ")
''Display content
For I = 1 to Rs. pagesize
Response. Write ("<tr bgcolor = #99 CCFF 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
Next
Response. Write ("</table> ")
End if
%>
</Body>
</Html>