ASP文章手动分页 ASP长篇文章分页显示

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

pages=Ubound(arrContent)+1
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
end if
if CurrentPage <1 then CurrentPage=1
if CurrentPage> pages then CurrentPage=pages

response.write arrContent(CurrentPage-1)

response.write" </p> <p align= 'center '> <b>"
if CurrentPage> 1 then
response.write" <a href= '" & strFileName &"?ArticleID=" & ArticleID &"&ArticlePage=" & CurrentPage-1 &" '> 上一页 </a> &nbsp;&nbsp;"
end if
for i=1 to pages
if i=CurrentPage then
response.write" <font color= 'red '> [" & cstr(i) &"] </font> &nbsp;"
else
response.write" <a href= '" & strFileName &"?ArticleID=" & ArticleID &"&ArticlePage=" & i &" '> [" & i &"] </a> &nbsp;"
end if
next
if CurrentPage <pages then
response.write"&nbsp; <a href= '" & strFileName &"?ArticleID=" & ArticleID &"&ArticlePage=" & CurrentPage+1 &" '> 下一页 </a>"
end if
response.write" </b> </p>"
end if
end sub