求助关于ASP留言板分页及倒序

以下是页面代码,要加什么样的代码才能实现分页和倒序呢?请高手帮忙~
<%@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>
</tr>
<tr>
<td><div align="center"><% do while not rs.eof
response.Write("<table width='672' height='98' border='1' cellpadding='0' cellspacing='0' bordercolor='#FF9900'><tr><td width='87' bgcolor='#FFCF9C'><div align='center'>"&rs("name")&"</div></td><td width='171' height='20'><div align='center'>"&rs("date")&"</div></td><td width='220'><div align='center'>邮箱:"&rs("mail")&"</div></td><td width='184'>电话:"&rs("tel")&" </td></tr><tr><td width='87' rowspan='2'><div align='center'><img src='image/messimages/yao.gif' width='80' height='80'></div></td><td height='20' colspan='3' bordercolor='#FF9900' bgcolor='#FFCC99'>主题:<font color='#FF0000' size='3' face='黑体'>"&rs("subject")&"</font> </td></tr><tr><td height='56' colspan='3'>"&rs("text")&" </td></tr></table><br>")
rs.movenext
loop%>
</div><font color="#FF0000" size="-3" face="黑体"></td>
</tr>
</table>
</body>

实现倒序简单,只要把
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
温馨提示:内容为网友见解,仅供参考
无其他回答

求助关于ASP留言板分页及倒序
实现倒序简单,只要把 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...

在ASP;里如何写分页的代码“第一页”“下一页”…以及跳转到…,各位...
<a class=b9 href="index.asp?page=<%= page+1 %>&zpfl=<%= Trim(Request.QueryString("zpfl")) %>">下一页 <% else %> 下一页 <% end if %> <% if page<int((rs.recordcount)\/3) then %> <a class=b9 href="index.asp?page=<%= (int((rs.recordcount)\/3))+1 %>&z...

ASP留言板怎样分段?
sql="select * from Table where 标题字段<>"" order by 日期 desc"set rs=Server.CreateObject("ADODB.Recordset")rs.open sql,conn,1,1 < do while not rs.eof > 标题:<% = rs("标题字段") %> 留言内容:<% = rs("内容字段") %> <% rs.movenext if rs.eof then exit do L...

ASP留言板全选删除,分页显示等问题
<% page=1 ' 设置变量PAGE=1 rs.PageSize = 8 '每页显示记录数 if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCoun...

asp数据倒序排列分页显示后点击下一页就变成正序排列内容的第二页了...
这个问题你得把你的SQL语句那段代码及分页那里的代码贴出来,我们才能帮你解决的。你这种情况,我想一般是你点击下一页连接的时候,没有把排序的参数给传到第二页的。

asp分页显示问题(排列问题)
是用table显示数据吧,估计你的table设置了高度为100%,把高度去掉就行了

透彻掌握ASP分页技术
这段代码不详解 相信初入门的都会 具体的解释可以看看《手把手教你用ASP做留言本》教程 接下来这是分页中比较重要的部分 了了三行而已 <%rs pagesize= curpage=Request QueryString( curpage )rs absolutepage=curpage%> 第二句 rs pagesize= 这个什么意思呢?它就是在Recordset对象中的一个内置...

asp分页转到那个分页数代码
我写的函数,你把参数写上去调用就行了.''函数名:showPage ' 功能:页码分页。' 参数:totalPage--总页数。' page--当前页码 ' url--地址,带后缀(不用带page,里面已经定义了),如果还有其他url参数也要带上。' 返回值:无 ' 注意:"下一页 末页"中的color属性的值要完整,否则...

asp如何实现倒序分页显示?
你的sql语句有问题 应该是 select * from news order by id desc ‘id 是你设置的新闻编号

ASP网页中的分页及其自动换行问题
<a href=linkadmin.asp?page=<%=pagenum%>>尾页 | 页次:<%=page%>\/<%=pagenum%>页 | 共<%=pagenum%>页 <!--记录集分页链接代码结束,记录集为空时执行以下代码--> <%else%> <% response.Write("没有结果可显示!") %> < end if rs1.Close()Set rs1 = Nothing ...

相似回答
大家正在搜