BK网络学院

首页搜索登录
首页业界网页平面多媒体程序数据库办公工具服务器系统网络安全站长认证壁纸
加入收藏 | 网站地图 | | RSS | WAP
你好,游客 登录 注册 搜索

ASP教程:实现长文章分页功能

[日期:2009-09-17] 作者: 来源:网翼收集 [字体: ]

要动态的还是静态的。先给你动态的吧。这个问题我弄了很久了,你好幸运有现成的给你,下面编写的函数
'按标识手动分页
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>&nbsp;")
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=http://www.webyi.com/wschool/program/ASP/20090808/16173.HTML?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
                      %>

关键词:

收藏 推荐 打印 | 录入:blue1000 | 阅读:
本文评论   查看全部评论 (2)
表情: 姓名: 字数
点评:
       
评论声明
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事/刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
第 2 楼
* 匿名 发表于 2016/12/25 14:52:47
http://www.blue1000.com/bkhtml/c16/2009-09/65130.htm 关于治病捐款的感谢信 http://www.blue1000.com/show/16685.html 捐款感谢信范文大全 http://www.blue1000.com/show/16684.html
第 1 楼
* 匿名 发表于 2016/12/24 14:44:37
http://www.blue1000.com/bkhtml/c16/2009-09/65130.htm 2016-2017学年度小学四年级班主任工作计划 http://www.blue1000.com/show/13082.html 2017年秋季学期六年级班主任工作计划 http://www.blue1000.com/show/13080.html