UC知道求助关于ASP留言板分页及倒序
来源：百度知道 编辑：UC知道 时间：2024/07/01 14:10:04
以下是页面代码，要加什么样的代码才能实现分页和倒序呢？请高手帮忙~
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%session("position")="<img src='image/2_r21_c2.gif' width='10' height='10'>"&"留言"
set conn=server.CreateObject("adodb.connection")
database="database\database.mdb"
connstr="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath(database)
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from mess ",conn,3,3
%>
<body>
<table width="670" height="198" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <td height="13"><div align="center"><img src="image/line.gif" width="482" height="10"></div></td>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%session("position")="<img src='image/2_r21_c2.gif' width='10' height='10'>"&"留言"
set conn=server.CreateObject("adodb.connection")
database="database\database.mdb"
connstr="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath(database)
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from mess ",conn,3,3
%>
<body>
<table width="670" height="198" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <td height="13"><div align="center"><img src="image/line.gif" width="482" height="10"></div></td>
实现倒序简单，只要把
rs.open "select * from mess ",conn,3,3
改成
rs.open "select * from mess order by (这里填你数据库mess中时间的记录项目) Desc",conn,3,3
有分页的代码
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From mess Order By (这里填你数据库mess中时间的记录项目) Desc"
Rs.Open Sql,Conn,1,1
TotalRecord=Rs.RecordCount
Rs.PageSize = 10 '这个是分页，一页10个记录
PageSize = Rs.PageSize
PageCount=Rs.PageCount
if not Rs.eof then
If page="" Then
Rs.AbsolutePage = 1
page=1
Else
Rs.AbsolutePage = page
End If
end if
do while i < PageSize And not rs.eof
''这里写重复的内容
rs.movenext
i=i+1
loop
Rs.Close
Set Rs = Nothing