这里是一个手动分页的过程，在显示的时候，直接调用就行了，比如：ManualPag(rs("content"))。前提条件是在发表文章的时候，在合适的地方手动加入了 [page] 这个标记，否则，不管文章多长，他也会显示成一页。
这种方法有一个缺点，就是用户如果不会加这个分页标记的话，那就会产生不好的结果。比如用户先回车了，但后来他觉得应该分页，他把光标定位在上一段文字结尾加了@R_200_6404@，那么<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' 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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
