内容多了想分页显示，代码怎么写

答案:2 悬赏:0 手机版

解决时间 2021-04-10 20:06

提问者网友：蓝莓格格巫
2021-04-10 17:08

ASP中，查询出来的某条信息字数特别多，我想分几页显示，分页显示的代码该怎么写？

就这种形式的。

最佳答案

五星知识达人网友：野味小生
2021-04-10 18:33

完整的分页代码，符合你的要求
<%
strsql="select * from news order by n_id desc"
setrs rs,strsql
'分页显示初始化
page=request("page")
if page="" then
page=1
else
page=Cint(page)
end if

Section=request("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=15 '每页显示记录数
intSectionSize=5 '多少页为一段，像baidu一样
PrevSectionText="<FONT face=webdings>7</FONT>" '上一段的链接文字
NextSectionText="<FONT face=webdings>8</FONT>" '下一段的链接文字
PrevPageText="<FONT face=webdings>3</FONT>" '上页的链接文字
NextPageText="<FONT face=webdings>4</FONT>" '下页的链接文字

strPageUrl="?t=" & strQueryString

rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount> 0 then
rs.AbsolutePage=page
end if
%>
<%
for i=1 to intPageSize
if rs.eof then exit for
ndate=rs("n_date")
%>

'显示内容

<%
rs.movenext
next
%>

'分页显示代码

共有<%=intCount%>记录，分<%=intPageCount%>页，当前页<%=Page%>，每页显示<%=intPageSize%>条记录
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=1 then
response.Write(PrevSectionText & " ")
else
response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section-1 & "'>" & PrevSectionText & "</a> ")
end if

'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("<strong>[" & p & "]</strong> ")
else
response.Write("<a href='" & strPageUrl & "&page=" & p & "§ion=" & Section & "'>[" & p & "]</a> ")
end if
next
response.Write("页")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section+1 & "'>" & NextSectionText & "</a> ")
end if
%> <select name="page" size="1" onChange="window.location='<%=strPageUrl & "§ion="%>' + (Math.floor((parseInt(this.value)-1)/<%=intSectionSize%>)+1) + '<%="&page="%>' + this.value">
<option value="<%=page%>" selected>第<%=page%>页</option>
<%
for i=1 to rs.pagecount
%>
<option value="<%=i%>" >第<%=i%>页</option>
<%
next
%>
</select>

<%closers rs%>

全部回答

1楼网友：行路难
2021-04-10 18:49

可以用字数分页

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE> New Document </TITLE> <META NAME="Generator" CONTENT="EditPlus"> <META NAME="Author" CONTENT=""> <META NAME="Keywords" CONTENT=""> <META NAME="Description" CONTENT=""> <style> * { font-size:10.2pt; font-family:tahoma; line-height:150%; } .divContent { border:1px solid red; background-color:#FFD2D3; width:500px; word-break:break-all; margin:10px 0px 10px; padding:10px; } </style> </HEAD> <BODY onload=" aa(); "> header <div id="divPagenation"></div>

<div id=divContent><div id=aa></div></div> <input type="hidden" value="<p>女老师竭力向孩子们证明，学习好功课的重要性。 </p><p>她说："牛顿坐在树下，眼睛盯着树在思考，这时，有一个苹果落在他的头上，于是他发现了万有引力定律，孩子们，你们想想看，做一位伟大的科学家多么好，多么神气啊，要想做到这一点，就必须好好学习。" </p><p>"班上一个调皮鬼对此并不满意。他说："兴许是这样，可是，假如他坐在学校里，埋头书本，那他就什么也发现不了啦。" </p><p>女老师竭力向孩子们证明，学习好功课的重要性。 </p><p>她说："牛顿坐在树下，眼睛盯着树在思考，这时，有一个苹果落在他的头上，于是他发现了万有引力定律，孩子们，你们想想看，做一位伟大的科学家多么好，多么神气啊，要想做到这一点，就必须好好学习。" </p><p>"班上一个调皮鬼对此并不满意。他说："兴许是这样，可是，假如他坐在学校里，埋头书本，那他就什么也发现不了啦。" </p><p>女老师竭力向孩子们证明，学习好功课的重要性。 </p><p>她说："牛顿坐在树下，眼睛盯着树在思考，这时，有一个苹果落在他的头上，于是他发现了万有引力定律，孩子们，你们想想看，做一位伟大的科学家多么好，多么神气啊，要想做到这一点，就必须好好学习。" </p><p>"班上一个调皮鬼对此并不满意。他说："兴许是这样，可是，假如他坐在学校里，埋头书本，那他就什么也发现不了啦。" </p><p>女老师竭力向孩子们证明，学习好功课的重要性。 </p><p>她说："牛顿坐在树下，眼睛盯着树在思考，这时，有一个苹果落在他的头上，于是他发现了万有引力定律，孩子们，你们想想看，做一位伟大的科学家多么好，多么神气啊，要想做到这一点，就必须好好学习。" </p><p>"班上一个调皮鬼对此并不满意。他说："兴许是这样，可是，假如他坐在学校里，埋头书本，那他就什么也发现不了啦。" </p><p>女老师竭力向孩子们证明，学习好功课的重要性。 </p><p>她说："牛顿坐在树下，眼睛盯着树在思考，这时，有一个苹果落在他的头上，于是他发现了万有引力定律，孩子们，你们想想看，做一位伟大的科学家多么好，多么神气啊，要想做到这一点，就必须好好学习。" </p><p>"班上一个调皮鬼对此并不满意。他说："兴许是这样，可是，假如他坐在学校里，埋头书本，那他就什么也发现不了啦。" </p>" id="contents" /> footer <SCRIPT LANGUAGE="JavaScript">  </SCRIPT> </BODY> </HTML>

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！