man_touxianok.asp

基于ASP开发的聊天室源码

<%
If Not IsArray(Session("info")) Then Response.Redirect "err.asp?kind=20"
info = Session("info")
If InStr(Application("maninfo"),"," & info(0) & ",") <> 0 Then Response.Redirect "manyou.asp"
gradeinfo = Application("gradeinfo")
If gradeinfo(info(1),9) <> True And gradeinfo(info(1),10) <> True Then Response.Redirect "err1.asp?kind=06"
name = Trim(Request.Form("manname"))
name = Replace(name," ","")
name = Replace(name,"'","")
name = Replace(name,chr(34),"")
name = Server.HTMLEncode(name)
If name = "" Then Response.Redirect "err.asp?kind=55"
touxian = Request.Form("touxian")
If gradeinfo(info(1),9) <> True And name = info(0) Then Response.Redirect "err1.asp?kind=07"
If gradeinfo(info(1),10) <> True And name <> info(0) Then Response.Redirect "err1.asp?kind=08"
If InStr(touxian," ") <> 0 Or InStr(touxian,"　") <> 0 Or InStr(touxian,"