log.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Dim user,pass,ico,fp,sex,rooms,leftuser,userlen,zh,zhasc,userip,roomname,automan,otherinfo,conn,sql,rs
If Not (IsArray(Application("roominfo")) And IsArray(Application("gradeinfo"))) Then Response.Redirect "err.asp?kind=100"
If InStr(Request.servervariables("http_user_agent"), "MSIE") = 0 Then Response.Redirect "err.asp?kind=17"
%>
<!--#INCLUDE FILE="config.asp" -->
<%
user = Request.Form("user")
If zzbird_open <> True And zzbird_master <> Trim(user) Then Response.Redirect "err.asp?kind=29"
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
If zzbird_disip <> "" And zzbird_master <> user Then
	disip = split(zzbird_disip,"|")
	For q = 0 To UBound(disip)
		disip(q) = Replace(disip(q),"*",".")
		Do While InStr(disip(q),"..") <> 0
			disip(q)=Replace(disip(q),"..",".")
		Loop
		If InStr(userip,disip(q))=1 Then Response.Redirect "err.asp?kind=81"
	Next
End If
fp = Request.Form("fp")
If IsArray(Session("info")) Then
	If fp = "ON" Then
		Response.Write "<Script Language=JavaScript>if(confirm('系统检测到你原来的名字“" & Session("info")(0) & "”没有退出，点击“确定”直接用此名字进入聊天室，点击“取消”将该名字退出并返回登陆界面重新登陆。')){top.location.href='chat.asp?fp=1';}else{top.location.href='redirect.asp?user=" & user & "';}</Script>"
	Else
		Response.Write "<Script Language=JavaScript>if(confirm('系统检测到你原来的名字“" & Session("info")(0) & "”没有退出，点击“确定”直接用此名字进入聊天室，点击“取消”将该名字退出并返回登陆界面重新登陆。')){top.location.href='chat.asp';}else{top.location.href='redirect.asp?user=" & user & "';}</Script>"
    End If
  Response.End
End If
pass = Request.Form("pass")
ico = Request.Form("ico")
sex = Request.Form("sex")
rooms = Request.Form("rooms")
If ico = "" Or Not(IsNumeric(ico)) Then ico = 0
If Int(ico) > 84 Or Int(ico) < 0 Then Response.Redirect "err.asp?kind=24"
If user = "" Then Response.Redirect "err.asp?kind=01"
If pass = "" Then Response.Redirect "err.asp?kind=02"
If rooms = "" Then Response.Redirect "err.asp?kind=18"
If InStr(user," ") <> 0 Or InStr(user,"　") <> 0 Or InStr(user,"