ASP实例教程长文章分页功能-ASP教程-网络编程--廉富顺
作者:知网科技 日期:2013/8/15 14:55:49 人气:
标签:
要动态的还是静态的。先给你动态的吧。这个问题我弄了很久了,你好幸运有现成的给你,下面编写的函数
'按标识手动分页
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
%>
'按标识手动分页
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
%>
(())
顶一下您可能感兴趣的文章
参与讨论
最新评论
联系我们
软件开发: 15838307519(司经理)
网络营销: 13676968269(王经理)
网络建设: 13073737771(郭经理)
24小时服务电话: 0371-56683330
热门文章
猜你喜欢
网络营销分销商城小程序全网营销微商城分销平台信息发布区多商户商城系统网站诊断微商城分销系统开发网络整合营销微分销商城系统分销系统多用户商城系统建设大型网站营销软件分销系统商城app开发高端网站建设哪家好郑州网络营销微商的分销系统郑州网站建设电子商务网站托管微商城分销系统微信开发郑州网站建设公司微分销管理系统网络营销的主要方式网站权重微分销商城开发网站优化微商城开发企业网络营销方案微商分销系统新媒体网络营销SEO优化分销系统开发共享股东系统微信小程序郑州网络营销公司软件开发公司微信小程序拼团系统网络拓展客户分销商成郑州网络推广公司网络推广入门软件开发的公司直销商城双轨直销系统新零售模式郑州网络公司