首頁 > 開發者 > ASP

asp分頁代碼

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<%''本程式檔案名稱為：Pages.asp%>
<%''包含ADO常量表檔案adovbs.inc，可從"\Program Files\Common Files\System\ADO"目錄下拷貝%>
<!--#Include File="adovbs.inc"-->
<%''＊建立資料庫連接，這裡是Oracle8.05資料庫
 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")　 ''建立Recordset對象 rs.CursorLocation=adUseClient
''設定記錄集指標屬性
''＊設定一頁內的記錄總數，可根據需要進行調整　rs.PageSize=10
''＊設定查詢語句
StrSQL="Select ID,姓名,住址,電話 from 通訊錄 Order By ID"
rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText%>
<HTML><HEAD>
<title>asp分頁</title>
<script language=javascript> //點擊"[第一頁]"時響應：

 function PageFirst() {　
 　document.MyForm.CurrentPage.selectedIndex=0;　
  document.MyForm.CurrentPage.onchange(); } //點擊"[上一頁]"時響應：
 
 
  function PagePrior() {　　
  　 document.MyForm.CurrentPage.selectedIndex--;　
   document.MyForm.CurrentPage.onchange(); } //點擊"[下一頁]"時響應：
  
  
    function PageNext() {　
 　document.MyForm.CurrentPage.selectedIndex++;　
  document.MyForm.CurrentPage.onchange();} //點擊"[最後一頁]"時響應：
 
 
   function PageLast() {　
   　 document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
   　 document.MyForm.CurrentPage.onchange(); } //選擇"第？頁"時響應：
  
    function PageCurrent() { //Pages.asp是本程式的檔案名稱　
    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>[資料庫中沒有記錄！]</font>")
ELSE
''指定當前頁碼　 If Request("CurrentPage")="" Then
AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
End If
''建立表單MyForm,方法為Get
Response.Write("<form method=Get name=MyForm>")
Response.Write("<p align=center><font size=2 color=#008000>")
''設定翻頁超連結
if rs.PageCount=1 then
Response.Write("[第一頁] [上一頁] [下一頁] [最後一頁] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一頁] [上一頁] ")
Response.Write("[<a href=javascript:PageNext()>下一頁</a>] ")　　　　　Response.Write("[<a href=javascript:PageLast()>最後一頁</a>] ")
else
if rs.AbsolutePage=rs.PageCount then
Response.Write("[<a href=javascript:PageFirst()>第一頁</a>] ")　　　　　　　Response.Write("[<a href=javascript:PagePrior()>上一頁</a>] ")　　　　　　　Response.Write("[下一頁] [最後一頁] ")
else
Response.Write("[<a href=javascript:PageFirst()>第一頁</a>] ")　　　　　　　　Response.Write("[<a href=javascript:PagePrior()>上一頁</a>] ")　　　　　　　　Response.Write("[<a href=javascript:PageNext()>下一頁</a>] ")　　　　　　　　Response.Write("[<a href=javascript:PageLast()>最後一頁</a>] ")
end if
end if
end if
''建立下拉式清單方塊，用於選擇瀏覽頁碼
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>")　''當前頁碼
else
Response.Write("<option>"&i&"</option>")
end if
Next
Response.Write("</select>頁/共"&rs.PageCount&"頁 共"&rs.RecordCount&"條記錄</font>")
Response.Write("</form>")
''建立表格，用於顯示
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
''顯示表頭
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>")
''顯示內容
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>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

相關關鍵詞：
asp or asp net asp to asp net asp net and asp asp language asp tags newline asp substring asp
相關文章
ASP學習總結：錯誤碼
反爬蟲：利用ASP.NET MVC的Filter和緩衝（入坑出坑）
ASP.NET Core 2.0利用MassTransit整合RabbitMQ
實戰中的asp.net core結合Consul叢集&Docker實現服務治理
asp DateDiff實現文字在特定時間後消失
設定和讀取ASP.Net全域變數的方法

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

熱門內容

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