查看: 11454|回复: 1

ASP文章内容分页

[复制链接]

踏浪

电梯直达

1^#

发表于 2009-11-30 23:56:30 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
dim articleStr,CurrentPage,Maxlen,totalLen,i,j,n
articleStr="一面在政策的大树下乘凉，一面又想拿丰厚的回报，把天下好事都沾光，还得别人闭嘴，不说闲话，这是怎样一种逻辑？更何况，真要对电力职工收入做出公正合理的鉴定，也没电监会什么事，哪有左手为右手辩护的，害臊不害臊？." 'articleStr为文章内容。
'以下就是对articleStr进行分页
Maxlen=10
totalLen=len(articleStr)
if totalLen mod Maxlen = 0 then
pageCounts=fix(totalLen/Maxlen)
else
pageCounts=fix(totalLen/Maxlen)+1
end if
Response.write "总页数："&pageCounts&"<br>"
CurrentPage=Request("page")
if CurrentPage="" then
CurrentPage=1
end if
if Clng(CurrentPage)>pageCounts then CurrentPage=pageCounts
i=(CurrentPage-1)*Maxlen+1
j=Maxlen
Response.write mid(articleStr,i,j)&"<br>"
if CurrentPage<2 then
Response.write "首页上一页"
else
Response.write "<a href='?page=1'>首页</a> <a href='?page="&Cint(CurrentPage)-1&"'>上一页</a>"
end if
if CurrentPage>3 then Response.write"..."
for n = CurrentPage-3 to CurrentPage+3
if n>0 and Clng(n)<=pageCounts then
Response.write"<a href='?page="&n&"'>["&n&"]</a> "
end if
next
if CurrentPage+3<pageCounts then Response.write"..."
if Clng(CuttentPage)=pageCounts then
Response.write "下一页末页"
else
Response.write "<a href='?page="&Cint(CurrentPage)+1&"'>下一页</a> <a href='?page="&Cint(pageCounts)&"'>末页</a>"
end if
%>
引用地址:http://zhidao.baidu.com/question/22855654.html

收藏0

使用道具举报

返回列表

GMT+8, 2024-11-17 23:22 , Processed in 0.077908 second(s), 9 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册