ASP实现超长文章内容因太长自动分页或手动分页
作者：佚名 文章来源：网络 更新时间
：2008-9-20 10:52:19
以下是几种文章内容过长实现的内容分页源代码.
| ’按标识手动分页 function manualPage(str) pages=request.QueryString("page") contentstr=split(str,"{$page$}") Response.Write(ContentStr(pages)) Response.Write("<p/>") Response.Write("<div class=""pageList"">") For i = 0 to ubound(ContentStr) Response.Write("<a href=’?ID="&id&"&page="&i&"’>"&i+1&"</a> ") Next Response.Write("</div>") end function |
| ’按长度分页 function autoPage(str,fontnum) if len(str)>fontnum then if len(str) mod fontnum>0 then ’计算总页数 pagecontent=len(str)\fontnum+1 else pagecontent=len(str)\fontnum end if Dim arr() ReDim arr(pagecontent) for m = 1 to pagecontent if m<>pagecontent then arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum) else arr(m)= mid(str,(m*fontnum-fontnum+1),len(str)) end if next if Request.QueryString("page")<>"" then Response.Write(arr(Request.QueryString("page"))) else Response.Write(arr(1)) end if Response.Write("<p/>") Response.Write("<div class=""pageList"">") for i = 1 to pagecontent Response.Write("<a href=?ID="&id&"&page="&i&">"&i&"</a> ") next Response.Write("</div>") else Response.Write(str) end if end function |
=============================
在页面中
| <% if Instr(Content,"{$page$}")=0 then ’判断是否是手工分页标志，不是就自动分页 call autoPage(Content,2000) else call manualPage(Content) end if %> |
【相关文章:】
ASP实现域名绑定子目录
ASP简单计数器(读写Txt文件)
asp生成某一范围内的随机数
DataList分页代码
JS代码实现的自动分页效果
内容分页实现方法
数字分页函数
ASP连接Access或SQLServer数据库的终极代码
SQL Server 的通用分页显示存储过程
ASP连接数据库ACCESS2007的代码
【发表评论】【打印此文】【关闭窗口】【点击数： 】
★好玩的休闲小游戏★
网友评论：
数据载入中，请稍后……