asp文章内容分页的函数

<%
'=================================================
'过程名：ManualPagination
'作 用：采用手动分页方式显示文章具体的内容
'参 数：ArticleID,strContent
'=================================================
Sub ManualPagination(ArticleID,strContent)
dim CurrentPage
dim ContentLen,MaxPerPage,pages,i
dim arrContent,strFileName
strFileName="ShowArticle.asp"
ContentLen=len(strContent)
CurrentPage=trim(request("ArticlePage"))
if Instr(strContent,"|||")<=0 then
   response.write strContent
   'response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
   arrContent=split(strContent,"|||")
   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>  "
   end if
   for i=1 to pages
    if i=CurrentPage then
     response.write "<font color='red'>[" & cstr(i) & "]</font> "
    else
     response.write "<a href='" & strFileName & "?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a> "
    end if
   next
   if CurrentPage<pages then
    response.write " <a href='" & strFileName & "?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
   end if
   response.write "</b></p>"
end if
End Sub
%>
　　

 

转载于:https://www.cnblogs.com/subendong/archive/2013/01/29/2881118.html