JB51 Content Paging Function [Original]_ application Tips

Copy Code code as follows:

Allpages=ubound (Contentarray)
For Dxy_ii=0 to Allpages
pagelist1= "Current" &dxy_ii+1& "/" & (allpages+1) & "page"
Pagepre= ""
Pagelast= ""
If Dxy_ii>0 Then
Cpage=cint (Dxy_ii)
If Cpage<0 then cpage=0
If Cpage=1 Then
cpage1=id& ". htm"
Else
cpage1=id& "_" &cpage& ". htm"
End If
Pagepre= "<a href=" &cpage1& "> previous page </a>"
End If
If Dxy_ii<allpages then pagelast= "<a href=" &id& "_" &dxy_ii+2& ".htm> next page </a>"
For Dxy_i=0 to Allpages
If Dxy_i=0 Then
If Dxy_ii=dxy_i Then
alist=dxy_i+1& ""
Else
alist=alist& "<a href=" &id& ".htm>" &dxy_i+1& "</a>"
End If
Else
If Dxy_ii=dxy_i Then
alist=alist& (dxy_i+1) & ""
Else
alist=alist& "<a href=" &id& "_" &dxy_i+1& ".htm>" &dxy_i+1& "</a>"
End If
End If
Next
Pagelist=pagelist1&pagepre&alist&ahlist&pagelast
Alist= ""