排序方式解决“上下主题”问题
日期：2012-03-18 浏览次数：20877 次
来不少网友提到论坛“上一主题”“下一主题”的显示问题，我使用另一种排序方式解决的，写出来，听听高手的意见。
数据库：
ID:贴子的id号，自动编号
OrderID:排序基数，以下详细描述
.
.
.
数据：
主体贴：第一个主题贴OrderID为aaaaaaz（其中的6个a是为了这个版面上最多可以有999999*26条主题贴，当然，您可以根据自己的需要更改。z作为排序的识别码，永远无变化。），第二个主题贴为aaaaabz，就是说，每增加一个主题贴，OrderID上涨一个字母。
子帖：第一个子贴在父贴的OrderID的基础上，在z前面增加一位a，第二个子贴在父贴的OrderID的基础上，在z的前面增加一位b，以此类推。也就是说，同一层的贴子，每增加一个，OrderID上涨一个字母，同上，z永远不变。
可以看出，同一层的贴子OderID的位数相同；而回复同一主题的贴子，OrderID的前n位相同；这样，贴子所在层数可以由OrderID的位数得出；而贴子的总体排序by OrderID desc;而上一主题贴就是字符减一，下一主题贴就是字符加一咯！ 发言：add_massege.asp
------------部分，未经优化整理------------
<body bgcolor="#C8C8E6">
<script language="VBScript">
Sub GoBack()
form1.btn1.value="返回"
history.go(-1)
end sub
</Script>
<%
name1=Session("Uname")
If name1="" Then
Response.Write"<font size=3 color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"只有会员才能使用此项功能，请您注册或登录！ <p>"
Response.Write"<a href=main1.htm>回上页</a>"
Response.End
End If
psw1=Session("Upsw")
orderid=Request("txtOrderid")
face=Request("R1")
level=Request("txtLevel")
name=Request("txtName")
psw=Request("txtPsw")
work=Session("Uwork")
add=Session("Uadd")
eee=Session("Unid")
mail=Request("txtMail")
subject=Request("txtSubject")
ip=Request.ServerVariables("Remote_Addr")
If name ="" OR psw ="" Then
Response.Write"<font size=5 color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"请填写你的名字/密码～ <p>"
%>
<form name=form1>
<input type="button" name="btn1" value="返回" >
</form>
<%
Response.End
End If
If name<>name1 Or psw<>psw1 Then
Response.Write"<font size=5 color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"您的名字/密码有错误，请仔细填写！～ <p>"
%>
<form name=form1>
<input type="button" name="btn1" value="返回" >
</form>
<%
Response.End
End If
If subject="" Then
Response.Write"<font size=5 color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"请填写您的发言主题～ <p>"
%>
<form name=form1>
<input type="button" name="btn1" value="返回" >
</form>
<%
Response.End
End If
IF orderid<>"" Then
j=Len(orderid)
mmm=Left(orderid,j-1)
Set conn = Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../fpdb/massege.mdb")
conn.Open"Driver={Microsoft Access Driver (*.mdb)};dbq="& DBPath
Set RS = conn.Execute("Select A_ID,A_OrderID From MASSEGE")
DO While not RS.EOF
nnn=RS("A_OrderID")
If Left(nnn,j-1)=mmm Then
aaa=Asc(Mid(nnn,j,1))
If aaa=122 Then
qqq=mmm+"a"+"z"
Else
qqq=mmm+Chr(aaa+1)+"z"
End If
End If
RS.MoveNext
Loop
RS.Close
conn.Close
Else
Set myconn = Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../fpdb/massege.mdb")
myconn.Open"Driver={Microsoft Access Driver (*.mdb)};dbq="& DBPath
SQLcmd1="Select * From MASSEGE Where A_Level = '0' Order By A_ID DESC"
Set RS = myconn.Execute(SQLcmd1)
nnn=RS("A_OrderID")
a=Asc(Left(nnn,1))
b=Asc(Mid(nnn,2,1))
c=Asc(Mid(nnn,3,1))
d=Asc(Mid(nnn,4,1))
e=As
