求asp长文章分页代码
求asp长文章分页代码我做的新闻发布系统,用文本框提交新闻的时候分页成功,但我改用eWebEditor文本编辑器提交新闻内容的时候就不能分页。希望朋友门帮忙怎么解决这个问...
求asp长文章分页代码
我做的新闻发布系统,用文本框提交新闻的时候分页成功,但我改用eWebEditor文本编辑器提交新闻内容的时候就不能分页。
希望朋友门帮忙怎么解决这个问题
如下是我用的分页代码,如果有更好请传我,谢谢
<%.......dim content
content=rs("content")%>
<% dim page,pagecount,thispage,linenum,allline
const pageline=20 ''每页显示20行
linenum=split(content,"<br>") ''本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 ''全文<br>(换行标记)总数
pagecount=int(allline\pageline)+1 ''计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
for i=0 to allline-1
if i+1>thispage*pageline-pageline and i<thispage*pageline then
response.write linenum(i) &"<br>" ''输出分页后的内容
end if
next
response.write chr(13)&"<hr>"
response.write "<p align=''center''>总共"&allline&"行 "&pagecount&"页 每页"&pageline&"行 "
for i=1 to pagecount
if thispage=i then
response.write i & " "
else
response.write "<a href='view.asp?action=view&newsclass="&class2&"&id="&id&"&page="&i&"'>"&i&"</a>"
end if
next %> 展开
我做的新闻发布系统,用文本框提交新闻的时候分页成功,但我改用eWebEditor文本编辑器提交新闻内容的时候就不能分页。
希望朋友门帮忙怎么解决这个问题
如下是我用的分页代码,如果有更好请传我,谢谢
<%.......dim content
content=rs("content")%>
<% dim page,pagecount,thispage,linenum,allline
const pageline=20 ''每页显示20行
linenum=split(content,"<br>") ''本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 ''全文<br>(换行标记)总数
pagecount=int(allline\pageline)+1 ''计算总页数
page=request("page")
if isempty(page) then
thispage=1
else
thispage=cint(page)
end if
for i=0 to allline-1
if i+1>thispage*pageline-pageline and i<thispage*pageline then
response.write linenum(i) &"<br>" ''输出分页后的内容
end if
next
response.write chr(13)&"<hr>"
response.write "<p align=''center''>总共"&allline&"行 "&pagecount&"页 每页"&pageline&"行 "
for i=1 to pagecount
if thispage=i then
response.write i & " "
else
response.write "<a href='view.asp?action=view&newsclass="&class2&"&id="&id&"&page="&i&"'>"&i&"</a>"
end if
next %> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询