复制代码代码如下 :
AllPages = ubound (contentArray)
fordxy_ii = 0toallpages
pagelist1 = "1"& dxy_ii+1 & "/"& (AllPages+1) & "页"
pagepre = ""
pagelast = ""
ifdxy_ii> 0then
cpage = cint (dxy_ii)
ifcpage <0thencpage = 0
ifcpage = 1then
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
alist = ""