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>分頁示例/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 rs.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>p>") Response.Write("/form>")
''顯示表頭 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>")
