复制代码代码如下所示：
allpages = UBound（消息内容数组）
对于dxy_ii = 0 allpages
pagelist1 =电流dxy_ii + 1 / （allpages + 1）页面
预=
pagelast =
如果dxy_ii > 0
CPage = Cint（dxy_ii）
如果CPage＜0然后CPage = 0
如果CPage = 1
cpage1 = ID.htm
其他的
cpage1 = IDCPage _ .htm
最后如果
预=最后一页
最后如果
如果dxy_ii在下一页
对于dxy_i = 0 allpages
如果dxy_i = 0
如果dxy_ii = dxy_i然后
一dxy_i + 1 =
其他的
一个，dxy_i + 1
最后如果
其他的
如果dxy_ii = dxy_i然后
list = list（dxy_i + 1）
其他的
一个，dxy_i + 1
最后如果
最后如果
下一个
pagelist = pagelist1pageprealistahlistpagelast
list =