搜索没找到答案才发的,问题是如何给页码换行?我第一个页已经可以换行了,但是第二页的页码不能换行。

workey 2008-04-22 03:21:25
第一个页面正常,其他页面例如第二页开始或任意个页面点击后。都是一横排显示页码了。
只有第一页是每个20个页码换行,其他页面都是一个横排。

为什么会这样呢?是不是点击其他页面的时候,循环代码没有执行呀?
html输出是这样的
这个是第一页
<a href='?Page=20'>20</a><br/><a href='?Page=21'>21</a>
这是其他页
<a href='?Page=20'>20</a><a href='?Page=21'>21</a>
-----------------------------------------------------------------------
dim NUM
NUM=1
for i = page1 to page2
if Pagenews = i then
response.write "<a style='color:#FF3366;' href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
else
response.write "<a href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
end if
if NUM mod 20=0 then
response.write "<br />"
end if
NUM=NUM+1
next
----------------------------------------------------------------------
希望能得到答复同时解释下方法,谢谢。
...全文
45 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
workey 2008-04-22
谢谢2楼回复,可是不是那个原因。呵呵~
回复
workey 2008-04-22
'分页函数
'===========rs.PageSize = 20
'===========PageNews = int(Request.QueryString("page"))
'===========rs.AbsolutePage = PageNews
function DisplayPartPage(PathStr) 'PathStr是路径,后边加&
if PageNews = 0 then PageNews = 1
if PageNews = "" then PageNews = 1
PageC = rs.PageCount
if PageNews > PageC then PageNews = PageC
Dim PageStr,PageStr_2,page1,page2
page1 = 1
page2 = rs.pagecount
if PageNews = 1 and PageC = 1 then
PageStr = ""
elseif PageNews > PageC then
PageStr = "<a href='?"&PathStr&"page=1'><<首页</a>"
elseif PageNews = 1 and PageNews < PageC then
PageStr = "<a href='?"&PathStr&"page="&PageNews+1&"'>下一页></a>"
PageStr = PageStr & "<a href='?"&PathStr&"page="&PageC&"'>尾页>></a>"
dim num
num = 1
for i = page1 to page2
if Pagenews = i then
response.write "<a style='color:#FF3366;' href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
else
response.write "<a href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
end if
if num mod 20 =0 then
response.write"<br/>"
end if
num = num+1
next
elseif PageNews > 1 and PageNews = PageC then
response.write"<a href='?"&PathStr&"page=1'><<首页</a>"
response.write"<a href='?"&PathStr&"page="&PageNews-1&"'><上一页</a>"
for i = page1 to page2
if Pagenews = i then
response.write "<a style='color:#FF3366;' href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
else
response.write "<a href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
end if
next
else
response.write"<a href='?"&PathStr&"page=1'><<首页</a>"
response.write"<a href='?"&PathStr&"page="&PageNews-1&"'><上一页</a>"
for i = page1 to page2
if Pagenews = i then
response.write "<a style='color:#FF3366;' href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
else
response.write "<a href='?"&PathStr&"Page=" & cstr(i) & "'>" & cstr(i) & "</a>"
end if
next
response.write"<a href='?"&PathStr&"page="&PageNews+1&"'>下一页></a>"
response.write"<a href='?"&PathStr&"page="&PageC&"'>尾页>></a>"
End if
PageStr_2 = "<a>共" &rs.recordcount& "条记录 "&rs.PageSize&"条记录/页</a>"
response.write PageStr&PageStr_2
end function

明白了。后面2段for没加代码的原因。
回复
No_Data_Found 2008-04-22
把 < 换成 <

把 > 换成 >
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-22 03:21
社区公告
暂无公告