复制代码代码如下::
Allpages = Ubound (ContentArray)
fordxy_ii = 0toAllpages
pagelist1 = "当前" & dxy_ii+1 & "/" & (AllPages+1) & "页"
PagePre = ""
Pagelast = ""
ifdxy_ii> 0Then
cpage = cint (dxy_ii)
IFCPAGE <0TheCPage = 0
ifcpage = 1Then
CPAGE1 = ID & "HTM"
anders
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 & "" "
anders
Alist = Alist & "<Ahref =" & id & ". Htm>" & dxy_i+1 & "</a>"
Endif
anders
ifdxy_ii = dxy_ithen
Alist = Alist & (dxy_i+1) & "" "
anders
alist = alist & "<aRef =" & id & "_" & dxy_i+1 & ". Htm>" & dxy_i+1 & "</a>"
Endif
Endif
nächste
pagelist = pagelist1 & pagepre & alist & ahlist & pagelast
Alist = ""