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

发言:add_massege.asp

------------部分,未经优化整理------------

1<body bgcolor="#C8C8E6">
2<script language="VBScript">   
3Sub GoBack()   
4form1.btn1.value="返回"   
5history.go(-1)   
6end sub   
7</script>   

name1=Session("Uname")
If name1="" Then
Response.Write"<font color="blue" size="3"><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 color="blue" size="5"><center>"
Response.Write"<br/>"
Response.Write"<br/>"
Response.Write"请填写你的名字/密码~ <p>"

1<form name="form1">
2<input name="btn1" onclick="GoBack" type="button" value="返回"/>
3</form>   

Response.End
End If
If name&lt;&gt;name1 Or psw&lt;&gt;psw1 Then
Response.Write"<font color="blue" size="5"><center>"
Response.Write"<br/>"
Response.Write"<br/>"
Response.Write"您的名字/密码有错误,请仔细填写!~ <p>"

1<form name="form1">
2<input name="btn1" onclick="GoBack" type="button" value="返回"/>
3</form>   

Response.End
End If
If subject="" Then
Response.Write"<font color="blue" size="5"><center>"
Response.Write"<br/>"
Response.Write"<br/>"
Response.Write"请填写您的发言主题~ <p>"

1<form name="form1">
2<input name="btn1" onclick="GoBack" type="button" value="返回"/>
3</form>   

Response.End
End If
IF orderid&lt;&gt;"" 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="&amp; 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="&amp; 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)

If f&lt;122 Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d)+Chr(e)+Chr(f+1)+"z"

=qqq

Else
If e&lt;122 Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d)+Chr(e+1)+"az"

=qqq

Else
If d&lt;122 Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d+1)+"aaz"

=qqq

End If
End If
End If
RS.Close
myconn.Close
End if
text=Server.HTMLEncode(Request("txtText"))

=text

On error resume next
Set conn = Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../fpdb/massege.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq="&amp; DBPath
SQLcmd = "Insert Into MASSEGE(A_OrderID,A_Level,A_Name,A_NID,A_Work,A_Add,A_Mail,A_Subject,A_Text,A_IP,A_Time)Values('"&amp;qqq&amp;"','"&amp;level&amp;"','"&amp;name&amp;"','"&amp;eee&amp;"','"&amp;work&amp;"','"&amp;add&amp;"','"&amp;mail&amp;"','"&amp;subject&amp;"','"&amp;text&amp;"','"&amp;ip&amp;"','"&amp;now&amp;"')"
conn.Execute SQLcmd
conn.Close
Response.Redirect"succ.htm"

1</p></center></font></p></center></font></p></center></font></p></center></font></body>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus