排序方式解决“上下主题”问题（三）

解决|排序|问题

显示：（排序)main.asp

--------部分，未经优化处理-------

<%
Const adOpenStatic = 3
Const adLockPessimistic = 2
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
DBPath=Server.MapPath("../fpdb/massege.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq="& DBPath
SQLcmd="Select * From MASSEGE Order By A_OrderID Desc"
RS.Open SQLcmd,conn,adOpenStatic,adLockPessimistic
page = CLng(Request("txtpage"))
RS.PageSize = 30
If Page < 1 Then Page = 1
If page > RS.PageCount Then page = RS.PageCount
RS.AbsolutePage = page
%>
<form action="main.asp" method="get">
<table align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="speak.asp" target="rbottom"><font color="#0000FF">发言</font></a></td>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="main.asp"><font color="#0000FF">刷新</font></a></td>
<td height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">留言笔数:<%=RS.RecordCount%></font></td>
<td height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">总页数:<%=RS.PageCount%></font></td>
<td height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">目前页次:<%=page%></font></td>
<td valign="top" align="left" height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">转到<input type="text" name="txtpage" size="2" style="font-size: 8pt; border-style: dotted; border-width: 1">页</font></td>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00">
<font color="#0000FF">
<%
If page <> 1 Then
Response.Write"<a href=main.asp?txtpage=1>第一页</a>"%></font></td>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00">
<font color="#0000FF">
<%Response.Write"<a href=main.asp?txtpage="&(page - 1)&">上一页</a>"%></font></td>
<%
End If
If page <>RS.PageCount Then%><td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00">
<font color="#0000FF">
<%Response.Write"<a href=main.asp?txtpage="&(page + 1)&">下一页</a>" %></font></td>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF"><%Response.Write"<a href=main.asp?txtpage="&RS.PageCount&">最后一页</a>"
End If
%></font></td>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="pob_massege.asp"><font color="#0000FF">精华</font></a></td>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="baoqian.htm"><font color="#0000FF">检索</font></a></td>
<%
If Application("Ukingliu")="kingliu" Then
aaa="on"
Else
aaa="off"
End If
%>
<td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">本版斑竹：<a href="mailto:kingliuzk@chinaren.com">沧海为水</a><img src=http://www.163design.net/a/q/".images/<%=aaa%>.gif" width="15" height="15"></font></td>

时间： 2024-09-15 12:23:59

排序方式解决“上下主题”问题（三）的相关文章

排序方式解决“上下主题”问题（一）

解决|排序|问题 近来不少网友提到论坛"上一主题""下一主题"的显示问题,我使用另一种排序方式解决的,写出来,听听高手的意见. 数据库: ID:贴子的id号,自动编号OrderID:排序基数,以下详细描述...数据: 主体贴:第一个主题贴OrderID为aaaaaaz(其中的6个a是为了这个版面上最多可以有999999*26条主题贴,当然,您可以根据自己的需要更改.z作为排序的识别码,永远无变化.),第二个主题贴为aaaaabz,就是说,每增加一个主题贴,Order

排序方式解决“上下主题”问题

解决|排序|问题 来不少网友提到论坛"上一主题""下一主题"的显示问题,我使用另一种排序方式解决的,写出来,听听高手的意见. 数据库: ID:贴子的id号,自动编号 OrderID:排序基数,以下详细描述 . . . 数据: 主体贴:第一个主题贴OrderID为aaaaaaz(其中的6个a是为了这个版面上最多可以有999999*26条主题贴,当然,您可以根据自己的需要更改.z作为排序的识别码,永远无变化.),第二个主题贴为aaaaabz,就是说,每增加一个主题贴,O

排序方式解决“上下主题”问题（二）

解决|排序|问题 发言:add_massege.asp ------------部分,未经优化整理------------ <body bgcolor="#C8C8E6"><script language="VBScript"> Sub GoBack()form1.btn1.value="返回"history.go(-1)end sub</Script><%name1=Session("Unam

序方式解决“上下主题”问题（三）

显示:(排序)main.asp --------部分,未经优化处理------- <%Const adOpenStatic = 3Const adLockPessimistic = 2Set conn = Server.CreateObject("ADODB.Connection")Set RS = Server.CreateObject("ADODB.Recordset")DBPath=Server.MapPath("../fpdb/massege

口碑网李治国：以公平的排序方式立足于整个市场

本地搜索是本地化生活社区的重要工具,贯穿分类信息和生活黄页等内容,在美国已占有1/4以上搜索市场,在韩国已经超过30%市场,但在中国,这个领域刚刚起步. 2004年6月8日,李治国先生和其他几位创业团队成员创办了口碑网,现有会员已经超过300万.口碑网致力于做百姓的生活好向导,目前已是中国最大的本地化"吃.住.玩"生活社区之一.近日艾瑞网独家专访了口碑网CEO李治国,请他分享本地搜索网站的运营经验. 广告是目前最简单也是最大的市场 艾瑞网:首先想请您谈谈对未来盈利方式的一些看法? 李治

MySQL的字符集和排序方式

字符串类型 MySQL的字符串分为两大类: 1)二进制字符串:即一串字节序列,对字节的解释不涉及字符集,因此它没有字符集和排序方式的概念 2)非二进制字符串:由字符构成的序列,字符集用来解释字符串的内容,排序方式决定字符的大小 字符集和排序方式 字符集和排序方式的关系是这样的:一个字符集可以有一个或多个排序方式,有一个默认的排序方式,我们可以通过 以下例子说明: mysql> show character set like '%gbk%'; +---------+----------------

商品列表排序方式的思考

这里的商品列表不包含站内搜索结果列表,商品搜索结果的排序和内容呈现,请参考我的另一文章:B2C站内搜索初探–排序和内容呈现. 传统零售中,货架的陈列对销量的影响巨大.如何合理的分配有限的空间,通过促销品吸引顾客.从而促进最大利润产品的销售.清理滞销品和库存货,显得尤其重要.网上零售虽然理论上没有货架和空间的限制,但商品的展示机会从来都是不公平和不平等的. 有人总结b2c商品销量是二八法则,20%的商品贡献了80%的销量,但很多网站可能更加极端,10%以下的商品贡献了90%的销量.导致这种结果的原

order-mysql查询语句求助 限定输出数和排序方式

问题描述 mysql查询语句求助 限定输出数和排序方式 从表a中倒叙输出id从20-11的记录这句话怎么写 select * from a where id limit 10,20 order by id desc 这样不对 order和limit无法同时使用...到底要怎么写啊 求大神指点 解决方案 select t.* from (select * from a where id limit 10,20) t order by t.id desc ; 解决方案二: select * from

关于排序方式和排序字段用参数传递的问题

问题描述 RT我想用参数来传递排序字段和排序方式,可老上提示语法错误,请高手帮忙!stringsql="select*fromStudent@SortWay";//stringsql="select*fromStudentOrderbyId@SortWay";SqlParameterparm=newSqlParameter("@SortWay",sortWay);老是出现语法错误,试了好多个了,难道sql语句里这样没有办法实现吗?看了好多存储过程