asp新闻系统中如何控制新闻内容的显示行数

来源：百度知道 编辑：UC知道 时间：2024/05/16 09:42:31
asp新闻系统中如何控制新闻内容的显示行数，如果内容超过一定行数进行翻页。各位大侠帮帮我着可怜的小菜鸟吧。。
数据库表名News 内容字段名content。
希望写上注释谢谢。
大哥可以给点注释不？我看不懂呀。。。

在要分页的地方加上[NextPage]即可分页显示内容
先读出数据 再使用这个过程

'=================================================
'过程名：ManualPagination
'作 用：采用手动分页方式显示活动具体的内容
'参 数：无
'=================================================
sub ManualPagination()
dim ArticleID,strContent,CurrentPage
dim ContentLen,MaxPerPage,pages,i
dim arrContent
ID=rs("ID")
strContent=rs("content")
ContentLen=len(strContent)
CurrentPage=trim(request("ArticlePage"))
if Instr(strContent,"[NextPage]")<=0 then
response.write strContent
response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
arrContent=split(strContent,"[NextPage]")
pages=Ubound(arrContent)+1
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(C