regok.asp

基于ASP开发的聊天室源码

<!--#INCLUDE FILE="config.asp" -->
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
If Session("user")="" Then Response.Redirect "err.asp?kind=01"
If Session("user")="" Or Request.Form("pass")="" Then Response.Redirect "err.asp?kind=02"
If Request.Form("pass")<>Session("pass") Then
	Session.Abandon
	Response.Redirect "err.asp?kind=12"
End If
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then userip=Request.ServerVariables("REMOTE_ADDR")
user=Session("user")
pass=Session("pass")
ico=Request.Form("ico")
If ico="" Or Not(IsNumeric(ico)) Then ico=0
If Int(ico)>84 Or Int(ico)<0 Then Response.Redirect "err.asp?kind=24"
fp=Request.Form("fp")
sex=Request.Form("sex")
rooms=Request.Form("rooms")
Session("user")=""
Session("pass")=""
If InStr(application("zzbird_name"),"," & user & ",")<>0 Then Response.Redirect "err.asp?kind=14"
roominfo=Application("roominfo")
For j = 0 to UBound(roominfo,1)
	If cstr(roominfo(j,0))=cstr(rooms) Then
		If 1<int(roominfo(j,4)) And user<>zzbird_master Then Response.Redirect "err.asp?kind=58"
		If ubound(Application("online"&rooms))>=roominfo(j,2) And user<>zzbird_master Then Response.Redirect "err.asp?kind=59"
		roomname=roominfo(j,1)
		automan=roominfo(j,3)
		If user=automan Then Response.Redirect "err.asp?kind=69"
	End If
Next
If roomname="" Or automan="" Then Response.Redirect "err.asp?kind=19"
nowtime=now
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set Rs=server.createobject("adodb.recordset")
sql="select * from userinfo where user='"&user&"'"
rs.open sql,conn,1,3
If Not(rs.EOF And rs.BOF) Then
	rs.Close
	Set Rs = Nothing
	Conn.Close
	Set Conn = Nothing
	Response.Redirect "err.asp?kind=11"
Else
	pass = StrReverse(pass)
	lenpass = Len(pass)
	password=""
	for i=1 to lenpass
	k=int(right(nowtime,1))*(1+0.1*i)-15
	if k<2 then k=k+5
	password=password+chr(asc(mid(pass,i,1))-int(lenpass*1.5)+int(i*1.1)+k)
	next
	Rs.AddNew
	Rs("user")=user
	Rs("pass")=password
	Rs("value")=0
	Rs("monthv")=0
	Rs("lastmonth")=month(date)
	Rs("times")=1
	Rs("firsttime")=nowtime
	Rs("lasttime")=nowtime
	Rs("grade")=1
	Rs("lockgrade")=false
	Rs("friend")=","
	Rs("unfriend")=","
	Rs("email")=server.HTMLEncode(Request.Form ("email"))
	if IsNumeric(Request.Form("oicq")) then Rs("oicq")=Request.Form ("oicq")
	if IsNumeric(Request.Form("icq")) then Rs("icq")=Request.Form ("icq")
	Rs("home")=server.HTMLEncode(Request.Form ("home"))
	Rs("phone")=server.HTMLEncode(Request.Form ("phone"))
	Rs("tname")=server.HTMLEncode(Request.Form ("tname"))
	if IsNumeric(Request.Form("yb")) then Rs("yb")=Request.Form ("yb")
	Rs("place")=server.HTMLEncode(Request.Form ("place"))
	Rs("born")=server.HTMLEncode(Request.Form("byear")) & ";" & server.HTMLEncode(Request.Form("bmonth")) & ";" & server.HTMLEncode(Request.Form("bday")) & ";"
	Rs("job")=server.HTMLEncode(Request.Form ("job"))
	Rs("lastip")=userip
	Rs.Update
	Rs.Close
	Set Rs=Nothing
	Conn.Close
	Set Conn=Nothing

	dim info(14)
	info(0) = user
	info(1) = 1
	If user = zzbird_master Then
		gradeinfo = Application("gradeinfo")
		info(1) = ubound(gradeinfo,1)
	End If
	info(2) = now
	info(3) = "n"
	info(4) = ico
	info(5) = sex
	info(6) = roomname
	info(7) = rooms
	info(8) = 0
	info(9) = now
	info(10) = automan
	info(11) = 0
	info(12) = ""
	info(13) = ","
	info(14) = ","
	Session("info") = info
	If fp<>"" Then
		Response.Redirect "chat.asp?fp=1"
	Else
		Response.Redirect "chat.asp"
	End if
End if
%>