複製代碼代碼如下：
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 =“”