复制代码代码如下:
AllPages = Ubound (ContentArray)
fordxy_ii = 0toallpages
pageList1 = "当前" & dxy_ii+1 & "/" & (allpages+1) y "页"
PagePre = ""
pagelast = ""
ifdxy_ii> 0then
cPage = cint (dxy_ii)
ifcpage <0thenCpage = 0
ifcpage = 1
cPage1 = id & ". htm"
demás
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 y ""
demás
alist = alist & "<ahref =" & id & ". htm>" & dxy_i+1 & "</a>"
endif
demás
ifdxy_ii = dxy_ithen
alist = alist & (dxy_i+1) y ""
demás
alist = alist & "<ahref =" & id & "_" & dxy_i+1 & ". htm>" & dxy_i+1 & "</a>"
endif
endif
próximo
pageList = pageList1 & PagePre & Alist & Ahlist & Pagelast
Alist = ""