ASP长文章分页的两个方法,函数
2013-08-26 15:21
399 查看
'按标识手动分页 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.NET长文章分页显示函数
- 一个ASP.NET长文章分页显示函数
- 一个ASP.NET长文章分页显示函数
- 一个ASP.NET长文章分页显示函数
- ASP长文章内容自动分页函数
- ASP实例代码:长文章分页代码设置方法
- ASP长文章内容自动分页函数
- PHP长文章分页函数,带使用方法,不会分割段落,翻页在底部
- asp,php,asp.net长文章内容分页函数
- ASP.NET长文章实现通用以及高效的分页方法
- 一个ASP.NET长文章分页显示函数
- ASP实现长文章自动分页的函数代码
- asp.net文章内容分页方法
- PHP长文章分页函数,带使用方法,不会分割段落,翻页在底部
- ASP.NET长文章分页显示函数
- ASP实现长文章自动分页的函数代码
- PHP长文章分页函数,带使用方法,不会分割段落,翻页在底部
- 一个ASP.NET长文章分页显示函数(转自:鹰之旅途)
- PHP 长文章分页函数 带使用方法,不会分割段落,翻页在底部