想求一个类似这样的asp分页功能

http://news.cz.soufun.com/2007-07-26/1152180.htm
谢谢了，

有人会啊？麻烦大家了

数字分页还是将较长的文章进行分页？

内容分页！

呵呵，。谢谢大家了，我在网站上学会了，我下面的是我已经测试成功的代码

关键是要在后台添加内容时候在想要分页的地方要插入标记，如|||，@@@等

显示新闻内容
<%
If Request("page")="" Then
pageNum=0
Else
pageNum=Request("page")
End if
Content = rs("content")
ContentStr=split(Content,"|||") 我在新闻添加时候添加|||标记
For i=pageNum to pageNum
%>
<%=ContentStr(i)%>
<% Next %>

下面是分页显示数字连接
共
<%
For p = 0 to ubound(ContentStr)
%>
<a href="news.asp?id=<%=rs("id")%>&page=<%=p%>"><font color="#3399CC" size="4"><%=p+1%></font></a>
<% Next %>

[此贴子已经被作者于2007-8-8 15:44:18编辑过]

这是我自己测试过的,从数据库读出来进行文章分页,你可以参考一下
<!--#include file="conn.asp"-->
<%
dim text
dim l
sql="select * from [table] "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.recordcount<>0 then
text=rs("contect")
l=len(text)
rs.close
set rs=nothing

pageall=cint((l/1000+0.5)*100)/100
if pageall<1 then pageall=1
'一页显示1000字

page=cint(request("page"))

if isempty(page) then page=1
if page<=1 then page=1 '最小页第一页
if page>=pageall then page=pageall '最后一页

pagetext=mid(text,page*1000-999,1000)
response.write pagetext

end if
%>
<br />
<a href=read.asp?page=<%=page-1%>>上一页</a>|<a href=read.asp?page=<%=page+1%>>下一页</a>

大家都这么热心肠，感觉就像个大家庭！！呵呵

谢谢大家了，都是有心人。热心人啊，谢谢哦

[此贴子已经被作者于2007-8-9 17:19:50编辑过]