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

liguodong003

liguodong003

2016-01-29 18:32

排序方式解决“上下主题”问题(二),排序方式解决“上下主题”问题(二)
  发言: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="返回" onClick="GoBack"
</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="返回" onClick="GoBack"
</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="返回" onClick="GoBack"
</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=Asc(Mid(nnn,5,1))
f=Asc(Mid(nnn,6,1))
%
<%=Chr(a)%11<%=Chr(b)%22<%=Chr(c)%33<%=Chr(d)%44<%=Chr(e)%55<%=Chr(f)%66
<%
If f<122 Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d)+Chr(e)+Chr(f+1)+"z"
%
<%=qqq%77
<%
Else
If e<122 Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d)+Chr(e+1)+"az"
%
<%=qqq%88
<%
Else
If
展开更多 50%)
分享

猜你喜欢

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

ASP
排序方式解决“上下主题”问题(二)

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

ASP
排序方式解决“上下主题”问题(三)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

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

ASP
排序方式解决“上下主题”问题(一)

解决JTable排序问题的方法详解

编程语言 网络编程
解决JTable排序问题的方法详解

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

谈Photoshop学习:用专业方式解决问题

PS PS教程
谈Photoshop学习:用专业方式解决问题

关于Select Where In 的排序问题

编程语言 网络编程
关于Select Where In 的排序问题

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

谈两种数据库内容HTML格式的输出方法

谈两种数据库内容HTML格式的输出方法

操作系统备份与还原之XP篇

操作系统备份与还原之XP篇
下拉加载更多内容 ↓