参考代码如下lt！DOCTYPE html PUBLIC quotW3CDTD XHTML 10 TransitionalENquot quotDTDxhtml1transitionaldtdquot。

你可以参考下以下代码 lt #39翻页函数 参数列表#39sql 查询所有记录条数的SQL语句 #39page 当前页 #39pagelistnum每页显示记录数 #39link翻页链接除PAGE参数外 function fysql，page，pagelistnum，linkdim rs，znum，zpage page。

首先是HTML代码，非常简单，列出我们需要渲染的文字 A B C D E F。

#39创建一个frame控件 ，复制4个 index分别为0，1，2，3，4 创建2个按钮，#39程序代码Dim a Private Sub Command1_ClickIf a 0 Then a = a 1 Call b Else a = 0 Command1Enabled = False Command2。

1调用该模块时，只需要传递记录集和每页显示的记录的条数2可以点击链接进行翻页，也可以直接输入页码，回车后翻页3不要考虑文件名，程序的每次翻页都能在当前页面想清楚了上面3个问题，我们的公共翻页模块就可以。

3 点击上方的开发工具，然后在打开的下方菜单中，找到代码中的宏选项，点击4 进入宏窗口中，在“宏的位置”栏，设置为Word 命令，接着在“宏名”栏，设置为AutoScroll，然后点击右上角的。

ApplicationSendKeys quotPGDNquot可以模拟按下PageDown键引发的向下滚屏操作比如在Workbook事件中Private Sub Workbook_SheetBeforeDoubleClickByVal Sh As Object， ByVal Target As Range， Cancel As Boolean。

页=诠释 requestquerystring “页” 如果“页lt 1 ，然后页= 1 如果requestquerystring “网页，然后quot=quotquot页= 1 如果年底 rsabsolutepage =页 ％ lt ％ 如果“页lt 一则 responsewrite “的。