复制代码代码如下:
allpages = ubound (contentArray)
fordxy_ii = 0toallpages
pagelist1 = "当前" & dxy_ii+1 & "/" & (allpages+1) & "页"
pagepre = ""
pagelast = ""
IFDXY_II> 0then
CPAGE = CINT (DXY_II)
IFCPAGE <0thencPage = 0
IFCPAGE = 1th
cpage1 = id & ". htm"
آخر
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 & ""
آخر
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
أليس = ""