If Request("name")="" or Request("pass")="" Then 判别用户名与暗码是不是为空
a="名字或暗码不克不及为空!<br>" 假如为空，则界说此毛病变量
Response.Redirect "chatadd1.asp?a=" & a & " " 毛病一旦呈现当即前往上岸界面
end if
Set Conn=Server.CreateObject("ADODB.Connection") 假如客户输出非空，则入手下手查询数据库
Connstr="DBQ="+server.mappath("chat.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr
sql="SELECT * FROM 用户表 WHERE 姓名='" & Request("name") & "'" 检查数据库中是不是存在这个用户
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then 假如数据库中还没有这个用户，则
sz = "'" & Request("IP") &_ 把该用户写入用户数据库
"', '"& Request("name") &_
"', '"& Request("D4") &_
"', '"& Request("pass") & "'"
into_db = "INSERT INTO 用户表 ( IP, 姓名, 性别, 暗码 ) VALUES(" &_ 写入用户数据库
sz & ")"
conn.Execute(into_db)
Else 假如数据库中已存在这个用户，则
If Request("pass")<>Rs("暗码") Then 检查他的暗码是不是准确。
a="这个名字已被他人利用,或你输出的口令不合错误!<br>" 假如暗码毛病则界说毛病信息
Response.Redirect "chatadd1.asp?a=" & a & " " 当即前往上岸界面并前往此毛病信息
end if
end if
time1=now 假如上岸表单没有任何毛病，则入手下手成为在线用户并进入聊天
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("chat.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr
sql="SELECT * FROM 在线用户表 WHERE 姓名='" & Request("name") & "'" 检查在线名单中是不是存在这个用户
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then 假如在线名单中切实其实没有这个用户，则
sz = "'" & Request("name") &_ 在在线用户表中添加这个用户
"', '"& Request("D4") &_
"', '"& time1 & "'"
into_db = "INSERT INTO 在线用户表 ( 姓名, 性别, 上岸工夫 ) VALUES(" &_ 添加这个用户
sz & ")"
conn.Execute(into_db)
name=Request("name")
sex=Request("D4")
ming="办理员公布" 办理员入手下手公布接待这位（师长教师／密斯）的惠临
sz="<font size=5 color=#FF0000><strong>" & "强烈热闹接待" & name & sex & "的惠临"
into_db2 = "INSERT INTO 聊天表 ( 姓名,措辞 ) VALUES('" & ming & "','" & sz & "')"
conn.Execute(into_db2)
<%
B3=Request("B3")
If B3="讲话" Then 筹办把用户讲话写到聊天表中
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("chat.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr
%>
<%
word=Request("word")
if Request("word")="" then 假如甚么都没写就讲话，则默许讲话为两眼开开,正在发愣
word="两眼开开,正在发愣....."
end if
%>
B5=Request("B5")
If B5="分开聊天室" Then 假如用户选择分开聊天室则
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("chat.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr 从在线名单中把他删除
sql5="delete * FROM 在线用户表 WHERE 姓名='" & Request("name") & "'"
conn.Execute(sql5)