如何編寫翻頁函式?
page.inc <% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 引數TotalPage:全部頁數;CurPage:當前頁數;strUrl:翻頁使用的連線地址. DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "<TABLE WIDTH=''100%''>" Response.Write "<tr><td width=''100%'' align=''right''>" Response.Write "頁數:" & CurPage & "/" & TotalPage & " " IF InStr(strUrl,"?")=0 THEN strPage="?Page=" ELSE strPage="&Page=" END IF IF Curpage>1 THEN Response.Write "<a href=" & strUrl &strPage&"1>第一頁</a>" ELSE Response.Write "第一頁" END IF IF CurPage>=2 THEN Response.Write "<a href=" & strUrl & strPage &CurPage-1&">上一頁</a>" ELSE Response.Write "上一頁" END IF IF cInt(CurPage)<cInt(TotalPage) THEN Response.Write "<a href=" & strUrl & strPage &CurPage+1&">下一頁</a>" ELSE Response.Write "下一頁" END IF IF cInt(CurPage) <>cInt(TotalPage) THEN Response.Write "<a href=" & strUrl & strPage & TotalPage&">最末頁</a>" ELSE Response.Write "最末頁" END IF Response.Write "</td></tr></table>" END SUB Function GetValidPageNo(PageCount,CurPage) Dim iPage iPage=CurPage IF cInt(CurPage)<1 THEN iPage= 1 END IF IF cInt(iPage) > cInt(PageCount) THEN iPage= PageCount END IF GetValidPageNo=iPage END Function %> 看看引用這個函式的例子: chunfeng.asp <!--#include Virtual="page.inc"--> <% SET objConn=Server.CreateObject("ADODB.CONNECTION") SET objRst=Server.CreateObject("ADODB.RECORDSET") objConn.Open Application("dsn") strSQL="select * from 要使用的查詢 objRst.Open strSQL,objConn,adOpenStatic ' 開啟資料記錄. objRst.PageSize=20 ' 設定單頁的資料記錄數 iPageCount=objRst.PageCount ' 定義了一個頁碼數量的變數. If Len(Request.QueryString("Page"))=0 Then CurPage=1 Else CurPage=CInt(Request.Querystring("Page")) End If ' 得到當前的頁碼. objRst.AbsolutePage=CurPage ' 設定記錄集中的當前頁. ' 開始呼叫顯示翻頁的函式,顯示頁數欄. ' 函式原型:ShowPageBar(TotalPage,CurPage,strUrl) . strUrl="chunfeng.asp" ' 定義連線的URL,可以用我們自己的頁面地址. ShowPageBar iPageCount,CurPage,strUrl ' 呼叫完成.
objConn.Close SET objRst=NOTHING SET objConn=NOTHING %>
您可能感興趣的文章:
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/70015112/viewspace-2869934/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 如何使用 vue + typescript 編寫頁面 (Vue生命週期函式)VueTypeScript函式
- 如何更好的編寫async函式函式
- 解析如何在Bash中編寫函式函式
- 如何編寫Loader[翻譯]
- js編寫trim()函式JS函式
- 如何編寫高質量的函式 -- 敲山震虎篇函式
- 提高程式碼質量:如何編寫函式函式
- c函式編寫規範函式
- 如何編寫高質量的 JS 函式(1) -- 敲山震虎篇JS函式
- 如何編寫冪等的Bash指令碼(函式)? · Fatih Arslan指令碼函式
- 教你如何運用python 6.7 編寫printTable()函式表格列印Python函式
- [譯] 編寫函式式的 JavaScript 實用指南函式JavaScript
- 第2章 編寫測試函式函式
- 用TypeScript編寫釋出函式庫TypeScript函式
- 如何寫好 C main 函式AI函式
- css中四種頁面編寫樣式CSS
- 如何編寫高質量的函式 -- 命名/註釋/魯棒篇函式
- 編寫小而美函式的藝術函式
- C++ 的函式分檔案編寫C++函式
- 函式可重入性及編寫規範函式
- 感悟篇:如何寫好函式式程式碼函式
- Web Scraper如何翻頁Web
- 編寫一個通用的事件監聽函式事件函式
- 一個用lua編寫的自定義函式函式
- Hive中配置與編寫自定義UDF函式Hive函式
- 編寫自己的php擴充套件函式 (轉)PHP套件函式
- 編寫函式:遞迴求逆序 (Append Code) ★函式遞迴APP
- 如何編寫高質量的 JS 函式(3) --函數語言程式設計[理論篇]JS函式函數程式設計
- 乾淨的程式碼: 編寫可讀的函式函式
- 編寫一個物件&&陣列深copy函式方法物件陣列函式
- TOM大神編寫的show_space函式程式碼函式
- Excel 開始支援使用 JavaScript 編寫自定義函式ExcelJavaScript函式
- 編寫自己的php擴充套件函式(一) (轉)PHP套件函式
- 如何編寫高質量的函式 -- 打通任督二脈篇[理論卷]函式
- 如何編寫高質量的函式 -- 打通任督二脈篇[實戰卷]函式
- 如何編寫python的正規表示式Python
- 編寫HTML頁面常見的CSS樣式問題HTMLCSS
- 分頁函式 (轉)函式