复制代码代码如下：
allpages = ubound（contentArray）
fordxy_ii = 0toallpages
pageList1 = "当前"＆dxy_ii+1＆ "/"＆（allpages+1）＆ "页"
pagepre = ""
pagelast = ""
ifdxy_ii> 0then
cpage = cint（dxy_ii）
ifcpage <0thencpage = 0
ifcpage = 1then
cpage1 = id＆ "。htm"
それ以外
cpage1 = id＆ "_"＆cpage＆ "。htm"
endif
PagePre = "<ahref ="＆cpage1＆ ">上一页</a>"
endif
ifdxy_ii <allpagesthenpageLast = "<ahref ="＆id＆ "_"＆dxy_ii+2＆ "。htm>下一页</a>"
fordxy_i = 0toallpages
ifdxy_i = 0then
ifdxy_ii = dxy_ithen
alist = dxy_i+1＆ ""
それ以外
alist = alist＆ "<ahref ="＆id＆ "。htm>"＆dxy_i+1＆ "</a>"
endif
それ以外
ifdxy_ii = dxy_ithen
alist = alist＆（dxy_i+1）＆ ""
それ以外
alist = alist＆ "<ahref ="＆id＆ "_"＆dxy_i+1＆ "。htm>"＆dxy_i+1＆ "</a>"
endif
endif
次
PageList = PageList1＆PagePre＆Alist＆Ahlist＆Pagelast
alist = ""