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

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

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

#39創(chuàng)建一個(gè)frame控件 ，復(fù)制4個(gè) index分別為0，1，2，3，4 創(chuàng)建2個(gè)按鈕，#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í)，只需要傳遞記錄集和每頁(yè)顯示的記錄的條數(shù)2可以點(diǎn)擊鏈接進(jìn)行翻頁(yè)，也可以直接輸入頁(yè)碼，回車后翻頁(yè)3不要考慮文件名，程序的每次翻頁(yè)都能在當(dāng)前頁(yè)面想清楚了上面3個(gè)問(wèn)題，我們的公共翻頁(yè)模塊就可以。

3 點(diǎn)擊上方的開(kāi)發(fā)工具，然后在打開(kāi)的下方菜單中，找到代碼中的宏選項(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。

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