ASP Paging Technology Source code

Last Update:2017-02-28 Source: Internet

Author: User

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

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%>

<% ' * 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>
<%
"= = = Program under win2000server+iis5.0+oracle8.05 Test pass = =
' = = = Author: Xiachuntao e-mail:bluesky_521@yeah.net===
%>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

ASP Paging Technology Source code

Contact Us

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support