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 %>