在ASP中如何将一篇文章做一个分页显示出来?
比如有一个数据表data.mdb,表中有一个字段“Content”是存放文章的,我想在页面1.asp中点击文章标题,转到页面2.asp来显示文章正文,但当这篇文章很长的时...
比如有一个数据表data.mdb,表中有一个字段“Content”是存放文章的,我想在页面1.asp中点击文章标题,转到页面2.asp来显示文章正文,但当这篇文章很长的时候我想分多页把他显示出来,每页可以显示几百个文字或包含图片这样,分页效果像: 上一页 [1] 2 [3][4] [5] 下一页 ,请问可以这样实现吗?要实现这样的分页效果怎么样写代码?如果代码可以用我加分给。谢谢!
补充一下,要显示的不是记录集,更不是一条条的记录,是要把这个字段里的一篇文章分为多页来显示出来。 请帮助写一下这方面的代码可以吗?或提供相关的一些文章也可以。 展开
补充一下,要显示的不是记录集,更不是一条条的记录,是要把这个字段里的一篇文章分为多页来显示出来。 请帮助写一下这方面的代码可以吗?或提供相关的一些文章也可以。 展开
2个回答
展开全部
这个能实现啊,程序你可以根据自己的实际情况来写,也可以用现成的类,我写了一个这样的程序,但是不是很好,有很多的BUG,我也就不拿出来出丑了~~
这个是我自己写的,程序是强行在你指定的地方分页,我正在考虑怎样才能只能的分页
<%
'//===================================================
' 海沙原创文章分页类v1.0
' 作者 海沙
' 说明 此分程序为海沙原创,使用时请注明作者。
' 本程序为原创,难免存在bug,还望指出。
' 程序修改后请发我一份
' QQ:287394875
' E-mail:yyrcjc@sina.com
'//===================================================
num=10'设置每页显示的字数
content="测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试1测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试2测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试3测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试"
if not isempty(request("page")) then'获取当前页数
page=cint(request("page"))
if page>(len(content)/num)+1 then
page=(len(content)/num)+1
end if
else
page=1
end if
page=page-1
textcontent=mid(content,num*page+1,num)'提取当前页内容
response.Write textcontent&"<br>"
for i=1 to (len(content)/num)+1
response.Write("<a href=a.asp?page="&i&">第"&i&"页</a>")
next
response.Write len(textcontent)%>
这个是我自己写的,程序是强行在你指定的地方分页,我正在考虑怎样才能只能的分页
<%
'//===================================================
' 海沙原创文章分页类v1.0
' 作者 海沙
' 说明 此分程序为海沙原创,使用时请注明作者。
' 本程序为原创,难免存在bug,还望指出。
' 程序修改后请发我一份
' QQ:287394875
' E-mail:yyrcjc@sina.com
'//===================================================
num=10'设置每页显示的字数
content="测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试1测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试2测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试3测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试"
if not isempty(request("page")) then'获取当前页数
page=cint(request("page"))
if page>(len(content)/num)+1 then
page=(len(content)/num)+1
end if
else
page=1
end if
page=page-1
textcontent=mid(content,num*page+1,num)'提取当前页内容
response.Write textcontent&"<br>"
for i=1 to (len(content)/num)+1
response.Write("<a href=a.asp?page="&i&">第"&i&"页</a>")
next
response.Write len(textcontent)%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询