复制代码代码如下：
allpages = ubound（contentarray）
fordxy_ii = 0 toallpages
pagelist1 =“当前”＆dxy_ii+1＆“/”＆（allpages+1）＆“页”
pagepre =“”
pagelast =“”
ifdxy_ii> 0
cpage = cint（dxy_ii）
ifcpage <0 thencpage = 0
ifcpage = 1，然后
cpage1 = id＆“。htm”
别的
cpage1 = id＆“ _”＆cpage＆“。htm”
Endif
pagepre =“ <ahref =”＆cpage1＆“>上一页</a>”
Endif
ifdxy_ii <allpagesthenpagelast =“ <ahref =”＆id＆d＆dxy_ii+2＆“。htm>下一页</a>”
fordxy_i = 0 toallPages
ifdxy_i = 0
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 =“”