1317行左右   作  用：刷新图片内容页

1679行左右   作  用：刷新下载内容页面

289行左右    作  用：刷新文章内容页面

453行左右    作  用：刷新专题页面

文章分页改：

[QUOTE]
       If CurrPage = N Then
        ArticlePageStr = ArticlePageStr & "<font color=red>[" & N & "]</font>&nbsp;&nbsp;"
       Else
        ArticlePageStr = ArticlePageStr & "<a href=" & FolderPath & RefreshRS("Fname") & ">[" & N & "]</a>&nbsp;&nbsp;"
       End If
        Else
       If CurrPage = N Then
         ArticlePageStr = ArticlePageStr & "<font color=red>[" & N & "]</font>&nbsp;&nbsp;"
       Else
         ArticlePageStr = ArticlePageStr & "<a href=" & FolderPath & Fname & "_" & N & FExt & ">[" & N & "]</a>&nbsp;&nbsp;"
      End If
       End If

[/QUOTE]

这个好像是列表页的。呵呵

可能在582行开始左右：

[QUOTE]  '-----------------------------------------------------------------------------------------------------------------------------
  '过程名：GetPageStr
  '作  用：取得分页的通用函数
  '参  数：PageContent--分页内容,LinkUrl--链接地址,Index-首页名称
  '        FileContent--待保存的文件内容,FilePath---待保存路径,SecondDomain --二级域名 ,ShowTurnToFlag ---是否显示转到下拉框
  '------------------------------------------------------------------------------------------------------------------------------[/QUOTE]