求一段ASP长文章分页代码
- 提问者网友：流星是天使的眼泪
- 2021-04-23 11:22
- 五星知识达人网友：洎扰庸人
- 2021-04-23 12:19
我自己的分页代码，比较完美。你改下其中的链接ID 还有内容段名称等对应就OK了，参考我的网站 www.aliding.com 。
<%
'阿里丁分页头添加
'用法：在添加文章内容处加处分页符号即可
nextpage_string="$$分页$$" '定义一个分页符，不喜欢就改.
page=trim(Request("page")) '文章的页数
if page="" or not isNumeric(page) then page=0 '空页数或不是数字时,默认是第一页.
page=clng(page)
'阿里丁分页头结束
Articleid=trim(Request("Articleid"))
sql = "select * from Article where id="&Articleid
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount=0 then
content=rs("content")
'阿里丁分页头添加:判断是否分页,如有分页,则进行分页显示
if right(content,len(nextpage_string))=nextpage_string then content=left(content,len(content)-len(nextpage_string)) '去掉最后一个分页符.防止一个人无意在最后加一个分页符.导至下面数组出错
if content<>"" then
array_content=split(content,nextpage_string)
else
array_content=split(content&" ",nextpage_string)
end if
max_page_numbers=ubound(array_content) '取出本文章有多少页
if page>max_page_numbers then page=max_page_numbers '容错,如果返回的页数大于原有页数,则
content=array_content(page) '取出当前页的内容,又赋给content,懒得改后面的content名称.
'做一个分页的状态条:
'page_Css=1--第一种样式: 分页：[首页] [上一页] [1] [2] [3] [下一页] [末页] 第N/N页
'page_Css=2--第二种样式: 分页：[首页] [上一页] [下一页] [末页] 第N/N页
'page_Css=3--第三种样式: 分页：[1] [2] [3] 第N/N页
page_Css=1 '控制上下页的样式. 分1,2,3种样式,你喜欢哪种就改一下数字.
if max_page_numbers>0 then '只有一页时,不显示分页状态条.
content=content&"<hr size=1 noshade ><div align='right'>"
select case page_Css
case 1
content=content&"<a title='※分页显示※'><font color='blue'><b>分页:</b></font></a> 第<b><font color='blue'>"&page+1&"</font></b>页 总<font color='blue'><b>"&max_page_numbers+1&"</b></font>页 "
if page=0 then content=content&"<font color=gray>[首页]</font> <font color=gray>[上一页]</font> "
if page<>0 and page<>max_page_numbers then
content=content&"<a href='view.asp?Articleid="&Articleid&"&page=0'>[首页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&page-1&"'>[上一页]</a> "
end if
if page=max_page_numbers then content=content&"<a href='view.asp?Articleid="&Articleid&"&page=0'>[首页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&page-1&"'>[上一页]</a> "
for p=0 to max_page_numbers
content=content&"<a href='view.asp?Articleid="&Articleid&"&page="&p&"' title='快速跳转→第〖"&p+1&"〗页'>[<b>"&p+1&"</b>]</a> "
next
if page=0 then content=content&"<a href='view.asp?Articleid="&Articleid&"&page="&page+1&"'>[下一页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&max_page_numbers&"'>[末页]</a>"
if page<>0 and page<>max_page_numbers then
content=content&"<a href='view.asp?Articleid="&Articleid&"&page="&page+1&"'>[下一页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&max_page_numbers&"'>[末页]</a>"
end if
if page=max_page_numbers then content=content&"<font color=gray>[下一页]</font> <font color=gray>[末页]</font>"
case 2
content=content&"分页: "
if page=0 then content=content&"<font color=gray>[首页]</font> <font color=gray>[上一页]</font> <a href='view.asp?Articleid="&Articleid&"&page="&p+1&"'>[下一页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&max_page_numbers+1&"'>[末页]</a> "
if page<>0 and page<>max_page_numbers then
content=content&"<a href='view.asp?Articleid="&Articleid&"&page=0'>[首页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&page-1&"'>[上一页]</a> "
content=content&"<a href='view.asp?Articleid="&Articleid&"&page="&page+1&"'>[下一页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&max_page_numbers+1&"'>[末页]</a> "
end if
if page=max_page_numbers then content=content&"<a href='view.asp?Articleid="&Articleid&"&page=0'>[首页]</a> <a href='view.asp?Articleid="&Articleid&"&page="&page-1&"'>[上一页]</a> <font color=gray>[下一页]</font> <font color=gray>[末页]</font> "
content=content&"第<b>"&page+1&"</b>/<b>"&max_page_numbers+1&"</b>页"
case 3
content=content&"分页: "
for p=0 to max_page_numbers
content=content&"<a href='view.asp?Articleid="&Articleid&"&page="&p&"'>["&p+1&"]</a> "
next
content=content&"第<b>"&page+1&"</b>/<b>"&max_page_numbers+1&"</b>页"
end select
content=content&" </div>"
end if '结束:只有一页时,不显示分页状态条.
'阿里丁分页头结束:判断是否分页,如有分页,则进行分页显示
- 1楼网友：患得患失的劫
- 2021-04-23 13:17