ASP文章过长自动分页代码

来源：百度知道 编辑：UC知道 时间：2024/06/01 10:11:11
我现在想解决这样一个问题。
因为一些新闻文字过多，页面会比较长。我想让内容达到一定到数量就自动分页。
这个怎么实现啊。
我是菜鸟。
大家能不能给我一段代码 我让研究研究啊
谢谢大家了。
文字的我已经搞定了 如果文章中有图片又会出错怎么办

URL：***.asp?id=3&page=1

当前ID=3的文章内容假设为text="ABCDEFADSFADSFEFADF"
假设每页显示字数：8个
那么，总页数=Len(text)/8 这里注意：如果文字总数不能被8整除，说明有余数，这样的话，无论如何都要+1，而不是四舍五入。如当前是2(3/8) 也就是2+1=3页

if page=0 then page=1
if page>3 then page=3
response.write Mid(text,(page-1)*8+1,8)
这样的分页比较传统、简单。但不太适合通过编辑器传输的即带有HTML或UBB代码的文本。自己想想为什么吧。

<%
sql="select * from rijihuifu where xcid="&id&" order by id desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<tr><td><span>没有任何留言</span></td></tr>"
Response.End
Else
mRs.PageSize =8'每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page