Question

asp长文章分页

分到最后一页的时候不显示，三页要显示完的文章，就显示两页，最后一页不显示，高手帮忙看看<%
ArtID=request("ArtID")
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from News where Unid="&request("ArtID")
rs.Open sql,Conn,1,1
Description=rs("Description")
page=request("page")
PageLength=1500
if not isempty(page)then
page=cint(page)
else
page=1
end if
if page<1 then
page=1
end if
Length = Len(Description)
PageCount = CInt(length/PageLength)
if page=1 then
wen= mid(Description,1,1500)
response.write(wen)
else
wen= mid(Description,(page-1)*pagelength,1500)
response.write(wen)
end if
%>
<%if PageCount>1 then%>
<div align=left>
本章共有<%=length%>字
<%
Response.write ( ("本节共")) & PageCount & ("页")&" "&("当前为"&page&"页")
if page<2 then
%>
首页 上一页
<%else%>
<a href=flfg_info.asp?ArtID=<%=ArtID%>&Page=1>首页
</a>
<a href=flfg_info.asp?ArtID=<%=ArtID%>&Page=<%= page-1%>>上一页 </a>
<%
end if
if pagecount-page<1 then
%>
下一页 末页
<%else%>
<a href=flfg_info.asp?ArtID=<%=ArtID%>&Page=<%= page+1%>>下一页</a>
<a href=flfg_info.asp?ArtID=<%=ArtID%>&Page=<%=pagecount%>>末页</a>
<%
end if
%>
<br>
</div>
<%end if%>

Answer 1

建议手动分页！
在内容上加特殊符号如“|||”
遇到这个符号就自动分行。
举个简单的例子吧：
文章内容为
<%sContent="abc|||123|||456"'当然三个|||是自己手动加的，就是您想分页的地方，

ContentStr=split(sContent,"|||")
if request("page")="" then
pagenum=0
else
if cint(request("page"))>cint(ubound(ContentStr)) then
pagenum=ubound(ContentStr)
else pagenum=request("page")
end if
end if

response.write ContentStr(pagenum)'取出分页的内容

'页数
for i=0 to ubound(split(content,"|||"))
response.write "<a href='?page="&i&"'>"&i&"</a>"
Next
%>

写到这里应该有思路了吧。i相当于是页数咯。让他去获取，默认是0

Answer 2

直接用简单的分页不就行了。
比如首页和尾页直接链接到page=1 和page=rs.pagecount不就行了啊,这二个不用加条件了吧.
if page>1 then 上一页
if page<1 then 下一页
输出的时后rs.movenext后加个 if rs.eof then exit for

Answer 3

建议采用JS分页，根据高度分页
你这样的话，你保证截取的地方不正好是代码的一半或者什么的？
当然如果非要用ASP的，建议采用手动分页