复制代码代码如下:
allpages = ubound (ContentArray)
fordxy_ii = 0toAllpages
Pagelist1 = "当前" & dxy_ii+1 & "/" & (allpages+1) & "页"
pagepre = ""
pagelast = ""
ifdxy_ii> 0 แล้ว
cpage = cint (dxy_ii)
ifcPage <0ThenCpage = 0
ifcpage = 1 จากนั้น
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 = 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 = ""