man_roomok.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
dim v1,v2,v3,v4,v5,sql
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
oldgradeinfo=Application("gradeinfo")
if oldgradeinfo(info(1),14)<>true then Response.Redirect "err.asp?kind=83"
v1 = Trim(Request.Form("v1"))
v2 = Trim(Request.Form("v2"))
v3 = Trim(Request.Form("v3"))
v4 = Trim(Request.Form("v4"))
v5 = Trim(Request.Form("v5"))
v1 = Replace(v1,"　","")
v2 = Replace(v2,"　","")
v3 = Replace(v3,"　","")
v4 = Replace(v4,"　","")
v5 = Replace(v5,"　","")
v1len = 0
for i = 1 to len(v1)
 zh = mid(v1,i,1)
 zhasc = asc(zh)
 if zhasc < 0 then
  v1len = v1len + 2
 else
  v1len = v1len + 1
  if server.HTMLEncode(v1) <> v1 or CStr(server.URLEncode(zh)) <> CStr(zh) then Response.Redirect "err.asp?kind=86"
 end if
next
if v1len > 12 then Response.Redirect "err.asp?kind=87"

v3len = 0
for i = 1 to len(v3)
 zh = mid(v3,i,1)
 zhasc = asc(zh)
 if zhasc < 0 then
  v3len = v3len + 2
 else
  v3len = v3len + 1
  if server.HTMLEncode(v3) <> v3 or CStr(server.URLEncode(zh)) <> CStr(zh) then Response.Redirect "err.asp?kind=88"
 end if
next
if v3len > 12 then Response.Redirect "err.asp?kind=89"

v5 = server.HTMLEncode(v5)
if v1 = "" or v2 = "" or v3 = "" or v4 = "" or v5 = "" then Response.Redirect "err.asp?kind=84"
if not (IsNumeric(v2) and IsNumeric(v4)) then Response.Redirect "err.asp?kind=85"
v2 = Int(v2)
v4 = Int(v4)
v3 = server.HTMLEncode(v3)
v5 = server.HTMLEncode(v5)
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set Rs = Server.CreateObject("ADODB.RECORDSET")
sql = "select * from room where roomname='" & v1 & "'"
Rs.open sql,conn,1,3
if Rs.EOF and Rs.BOF then
 Rs.AddNew
 Rs("roomname") = v1
 Rs("max") = v2
 Rs("automan") = v3
 Rs("mingrade") = v4
 Rs("text") = v5
 Rs.Update
else
 If Trim(Rs("roomname")) = v1 and Int(Rs("max")) = v2 and Trim(Rs("automan")) = v3 and Int(Rs("mingrade")) = v4 and Trim(Rs("text")) = v5 Then
  Rs.Close
  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
  Response.Redirect "err.asp?kind=101"
 End If
 Rs("roomname") = v1
 Rs("max") = Int(v2)
 Rs("automan") = v3
 Rs("mingrade") = Int(v4)
 Rs("text") = v5
 Rs.Update
end if
Rs.Close

sql="select * from room"
rs.open sql,conn,3,3
If Rs.Eof and Rs.bof then
  rs.Close
  Set rs=Nothing
  Conn.Close
  Set Conn=Nothing
  Response.Write"<script>alert('读取服务器的数据库时发生错误.这可能是:\r\n\r\n\r\n网站管理员没有定义任何房间."');</script>"
  Response.End
End If
 co=int(rs.recordcount-1)
 dim roominfo()
 redim roominfo(co,5)
 dim online()
 redim online(0)
 Application.Lock
 for i=0 to co
  roominfo(i,0)=Rs("id")
  roominfo(i,1)=Rs("roomname")
  roominfo(i,2)=Rs("max")
  roominfo(i,3)=Rs("automan")
  roominfo(i,4)=Rs("mingrade")
  roominfo(i,5)=Rs("text")
  If not IsArray(Application("online"&roominfo(i,0))) Then
   Application("online"&roominfo(i,0))=online
   Application("zzbird_name_"&roominfo(i,0))=""
  End If
  rs.MoveNext
 next
 Application("roominfo")=roominfo
 Application.UnLock
rs.Close
set rs=Nothing
Conn.Close
Set Conn = Nothing

Response.Redirect "man_room.asp"
%>