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