手动分页方式显示文章内容

这里是一个手动分页的过程，在显示的时候，直接调用就行了，比如：ManualPag(rs("content"))。前提条件是在发表文章的时候，在合适的地方手动加入了 [page] 这个标记，否则，不管文章多长，他也会显示成一页。

这种方法有一个缺点，就是用户如果不会加这个分页标记的话，那就会产生不好的结果。比如用户先回车了，但后来他觉得应该分页，他把光标定位在上一段文字结尾加了分页符，那么<p></p>又被分割开了……等等。总之，用这种方法，必须发表文章的人对这部分的知识充分了解，并且会正确加入分页标记才行。

'**********************************************************************************************
'函数名：ManualPag
'作  用：手动分页方式显示文章内容
'参  数：ArticleContent ----文章内容
'返回值：
'      
'***********************************************************************************************
sub ManualPag(ByVal ArticleContent)
      Dim CurrPage
      Dim ContentLen,Pages,i
      Dim arrContent
          
      ContentLen = Len(ArticleContent)
      CurrPage = Trim(Request("PageNum"))
          
      If InStr(ArticleContent,"[page]")<=0 Then
           Response.Write(ArticleContent)
           Response.Write("<p></p><p align='center'><b>[1]</b></p>")
       Else
           arrContent=split(ArticleContent,"[page]")
    
           Pages=Ubound(arrContent)+1
           If CurrPage="" Then
              CurrPage=1
           Else
              CurrPage=CInt(CurrPage)
           End If
                
           If CurrPage<1 Then CurrPage=1
           If CurrPage>Pages Then CurrPage=Pages
    
           Response.Write arrContent(CurrPage-1)
    
           Response.Write "<p></p><p align='center' style='font-size:9pt;'><b>本文共" & Pages & "页："
           If CurrPage>1 Then
              Response.Write "<a href='?id=" & id & "&PageNum=" & CurrPage-1 & "'>上一页</a> "
           End If
           for i=1 to Pages
             If i=CurrPage Then
               Response.Write " " & CStr(i) & " "
             Else
               Response.Write "<a href='?id=" & id & "&PageNum=" & i & "'>[" & i & "]</a> "
             End If
           next
           If CurrPage<Pages Then
              Response.Write "<a href='?id=" & id & "&PageNum=" & CurrPage+1 & "'>下一页</a> "
           End If
           Response.Write "</b></p>"
     End If
End sub