用Dreamweaver和ASP實現分頁技術的參考

來源:互聯網
上載者:User

  今天心情有點激動,想把"關於用DW+ASP實現分頁技術的參考"分享給用DW+ASP做網頁的朋友們.去掉只有"第一頁,前一頁,下一頁,最後一頁"的小痛苦

  此效果最後的顯示是:第N頁[共*頁] <<1 2 3 4 5 6 7 8 9 10 >>。

  用DW+ASP做網頁時,在綁定記錄集後,字碼頁裡馬上出現以下代碼:

  <%

  Dim Recordset1

  Dim Recordset1_numRows

  Set Recordset1 = Server.CreateObject("ADODB.Recordset")

  Recordset1.ActiveConnection = MM_資料庫名_STRING

  Recordset1.Source = "SELECT * FROM 表名"

  Recordset1.CursorType = 0

  Recordset1.CursorLocation = 2

  Recordset1.LockType = 1

  Recordset1.Open()

  Recordset1_numRows = 0

  %>

  現在我們要來對代碼做點修改,請在上面代碼中修改為如下的代碼:

  <%

  Dim I

  Dim RPP

  Dim PageNo

  I=1

  RPP=50

  PageNo=CInt(Request("PageNo"))

  ’上面即是新插入的,

  Dim Recordset1

  Dim Recordset1_numRows

  Set Recordset1 = Server.CreateObject("ADODB.Recordset")

  Recordset1.ActiveConnection = MM_資料庫名_STRING

  Recordset1.Source = "SELECT * FROM 資料庫名"

  Recordset1.CursorType = 1 ’將上面代碼的0改為1.

  Recordset1.CursorLocation = 2

  Recordset1.LockType = 1

  Recordset1.Open()

  Recordset1_numRows = 0 ’再在此行的下一行開始加入如下代碼:

  Recordset1.PageSize=RPP

  If PageNo<=0 Then PageNo=1

  If PageNo>Recordset1.PageCount Then PageNo=Recordset1.PageCount

  Recordset1.AbsolutePage=PageNo

  Sub ShowPageInfo(tPageCount,cPageNo)

  Response.Write "第"&cPageNo&"頁[共"&tPageCount&"頁]"

  End Sub

  Sub ShowPageNavi(tPageCount,cPageNo)

  If cPageNo<1 Then cPageNo=1

  If tPageCount<1 Then tPageCount=1

  If cPageNo>tPageCount Then cPageNo=tPageCount

  Dim NaviLength

  NaviLength=10 ’NaviLength:顯示的數字連結個數

  Dim I,StartPage,EndPage

  StartPage=(cPageNoNaviLength)*NaviLength+1

  If (cPageNo Mod NaviLength)=0 Then StartPage=StartPage-NaviLength

  EndPage=StartPage+NaviLength-1

  If EndPage>tPageCount Then EndPage=tPageCount

  If StartPage>1 Then

  Response.Write "<< "

  Else

  Response.Write "<< "

  End If

  For I=StartPage To EndPage

  If I=cPageNo Then

  Response.Write ""&I&""

  Else

  Response.Write "" & I & ""

  End If

  If I<>tPageCount Then Response.Write " "

  Next

  If EndPage

  Response.Write " >>"

  Else

  Response.Write " >> "

  End If

  End Sub

  %>

  上面代碼中:RPP:指定每頁顯示的記錄條數。即每頁顯示幾條資料。

  NaviLength:顯示的數字連結個數,即10就為1 2 3...10的串連個數。

  若要顯示所有串連的頁(個)數,你可以設定為:NaviLength=tPageCount。

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

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

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