參考代碼如下lt！DOCTYPE html PUBLIC quotW3CDTD XHTML 10 TransitionalENquot quotDTDxhtml1transitionaldtdquot。

你可以參考下以下代碼 lt #39翻頁函數(shù) 參數(shù)列表#39sql 查詢所有記錄條數(shù)的SQL語句 #39page 當(dāng)前頁 #39pagelistnum每頁顯示記錄數(shù) #39link翻頁鏈接除PAGE參數(shù)外 function fysql，page，pagelistnum，linkdim rs，znum，zpage page。

首先是HTML代碼，非常簡單，列出我們需要渲染的文字 A B C D E F。

#39創(chuàng)建一個frame控件 ，復(fù)制4個 index分別為0，1，2，3，4 創(chuàng)建2個按鈕，#39程序代碼Dim a Private Sub Command1_ClickIf a 0 Then a = a 1 Call b Else a = 0 Command1Enabled = False Command2。

1調(diào)用該模塊時，只需要傳遞記錄集和每頁顯示的記錄的條數(shù)2可以點(diǎn)擊鏈接進(jìn)行翻頁，也可以直接輸入頁碼，回車后翻頁3不要考慮文件名，程序的每次翻頁都能在當(dāng)前頁面想清楚了上面3個問題，我們的公共翻頁模塊就可以。

3 點(diǎn)擊上方的開發(fā)工具，然后在打開的下方菜單中，找到代碼中的宏選項(xiàng)，點(diǎn)擊4 進(jìn)入宏窗口中，在“宏的位置”欄，設(shè)置為Word 命令，接著在“宏名”欄，設(shè)置為AutoScroll，然后點(diǎn)擊右上角的。

ApplicationSendKeys quotPGDNquot可以模擬按下PageDown鍵引發(fā)的向下滾屏操作比如在Workbook事件中Private Sub Workbook_SheetBeforeDoubleClickByVal Sh As Object， ByVal Target As Range， Cancel As Boolean。

頁=詮釋 requestquerystring “頁” 如果“頁lt 1 ，然后頁= 1 如果requestquerystring “網(wǎng)頁，然后quot=quotquot頁= 1 如果年底 rsabsolutepage =頁 ％ lt ％ 如果“頁lt 一則 responsewrite “的。