asp文章内容分页的函数
2013-01-29 11:22
162 查看
<% '================================================= '过程名: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 %>
相关文章推荐
- ASP长文章内容自动分页函数
- asp,php,asp.net长文章内容分页函数
- ASP长文章内容自动分页函数
- 文章内容分页显示函数
- 一个ASP.NET长文章分页显示函数
- 手动分页方式显示文章具体的内容函数的使用
- Asp.net文章内容分页
- 一个ASP.NET长文章分页显示函数(转自:鹰之旅途)
- asp.net文章内容分页代码
- PHP文章内容分页函数
- asp.net 文章内容分页显示的代码
- ASP实现长文章自动分页的函数代码
- asp.net中文章内容分页
- asp.net文章内容分页方法
- Asp.NET生成静态页面并分页(文章内容分页)-NET编程
- asp.net 文章内容分页显示的代码
- asp.net 文章内容分页显示的代码
- ASP实现长文章自动分页的函数代码
- ASP 通用文章分页函数(非记录集分页), 返回多个结果, 字典实现 By shawl.qiu
- 一个ASP.NET长文章分页显示函数