复制代码代码如下:
allPages = Ubound (contentArray)
FORDXY_II = 0TOALLPAGES
pageList1 = "当前" & dxy_ii + 1 & "/" & (allPages + 1) & "页"
pagepre = ""
pagelast = ""
ifdxy_ii> 0ment
CPAGE = CINT (DXY_II)
ifcpage <0Tencpage = 0
ifcpage = 1ment
cPage1 = id & ". htm"
autre
cPage1 = id & "_" & cPage & ". htm"
endire
pagepre = "<ahref =" & cpage1 & "> 上一页 </a>"
endire
ifdxy_ii <allpagesthenpagelast = "<ahref =" & id & "_" & dxy_ii + 2 & ". htm> 下一页 </a>"
FORDXY_I = 0TOALLPAGES
ifdxy_i = 0THEN
ifdxy_ii = dxy_ithen
Alist = DXY_I + 1 & ""
autre
Alist = Alist & "<ahref =" & id & ". htm>" & dxy_i + 1 & "</a>"
endire
autre
ifdxy_ii = dxy_ithen
Alist = Alist & (dxy_i + 1) & ""
autre
Alist = Alist & "<ahref =" & id & "_" & dxy_i + 1 & ". htm>" & dxy_i + 1 & "</a>"
endire
endire
suivant
PageList = PageList1 & PagePre & Alist & Ahlist & Pagelast
Alist = ""