瑞星卡卡安全论坛

新闻内容过长，想做一个分页显示的效果，ASP的。

急！求助

分页显示很简单的。分页显示必须用到Set rs=Server.CreateObject("ADODB.RECORDSET")
如：首先建立RECORDSET
<%Dim rs,conn,sql
Set rs=Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
sql="Select * From 你的数据库表名"
rs.open sql,conn,1,1              '因为要用到分页。所以用键盘指针
'下面查询记录。如果非空就显示记录。反知给出提示。
If RS.BOF OR RS.EOF Then
  Response.Write"现在还没有数据。"
Response.End
Else
  Dim page_size                    '定义每页多少条记录
  Dim page_no                      '定义当前是第几页
  Dim page_total                    '定义总页数
  page_size=10                      '每页显示10条记录
Rem 如果第一次打开，则page_no为1，否则由传回的参数决定
  If Request.QueryString("page_no")="" Then
      Page_no=1
Else
      Page_no=Cint(Request.QueryString("page_no"))
End If
rs.PageSize=page_size                    '设置每页多少条记录
page_total=rs.PageCount                  '返回总页数
rs.AbsolutePage=page_no                  '设置当前显示第几页
Dim i
i=page_size
Do While Not rs.EOF And i>0
i=i-1
Rem 下面为你要输出的内容
With Response
    .Write""&rs("姓名")&""
    .Write""
End With
rem 等等都是你要输出的内容
rs.MoveNext
Loop
Response.Write"<p>请选择数据页:"
For i=1 To page_total
  IF=page_no Then
  Response.Write i & " "
Else
  Response.Write"<a href='index.asp?page_no="&i&"'>"&i&"</a> "
End IF
next
End IF
'关闭对象
rs.Close
set rs=nothing
Conn.Close
set conn=nothing
%>

谢谢了，不过我想要的记录中的一个字段内的内容过长，我想让内容页分页显示，就像新闻一页显示要好几屏，我想在分几页显示一条新闻。请赐教！再次感谢！

那你在加入数据库的时候设定一个标志。超过一定的长度写入一个标志。读出时先判断长度，超过的话就分页。原理和上面的分页程序一样。