If Request("name")="" or Request("pass")="" Then 判斷用戶名與密碼是否為空 a="名字或密碼不能為空!<br>" 如果為空,則定義此錯(cuò)誤變量 Response.Redirect "chatadd1.asp?a=" & a & " " 錯(cuò)誤一旦出現(xiàn)立即返回登陸界面 end if
Set Conn=Server.CreateObject("ADODB.Connection") 如果客戶輸入非空,則開始查詢數(shù)據(jù)庫 Connstr="DBQ="+server.mappath("chat.mdb")+";DRIVER={Microsoft access Driver (*.mdb)};" Conn.Open connstr sql="SELECT * FROM 用戶表 WHERE 姓名='" & Request("name") & "'" 查看數(shù)據(jù)庫中是否存在這個(gè)用戶 Set Rs=conn.Execute(sql) If Rs.Bof OR Rs.Eof Then 如果數(shù)據(jù)庫中還沒有這個(gè)用戶,則 sz = "'" & Request("IP") &_ 把該用戶寫入用戶數(shù)據(jù)庫 "', '"& Request("name") &_ "', '"& Request("D4") &_ "', '"& Request("pass") & "'" into_db = "INSERT INTO 用戶表 ( IP, 姓名, 性別, 密碼 ) VALUES(" &_ 寫入用戶數(shù)據(jù)庫 sz & ")" conn.Execute(into_db)
Else 如果數(shù)據(jù)庫中已經(jīng)存在這個(gè)用戶,則 If Request("pass")<>Rs("密碼") Then 查看他的密碼是否正確。 a="這個(gè)名字已經(jīng)被別人使用,或者你輸入的口令不對(duì)!<br>" 如果密碼錯(cuò)誤則定義錯(cuò)誤信息 Response.Redirect "chatadd1.asp?a=" & a & " " 立即返回登陸界面并返回此錯(cuò)誤信息 end if end if
time1=now 如果登陸表單沒有任何錯(cuò)誤,則開始成為在線用戶并進(jìn)入聊天 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") & "'" 查看在線名單中是否存在這個(gè)用戶 Set Rs=conn.Execute(sql) If Rs.Bof OR Rs.Eof Then 如果在線名單中的確沒有這個(gè)用戶,則 sz = "'" & Request("name") &_ 在在線用戶表中添加這個(gè)用戶 "', '"& Request("D4") &_ "', '"& time1 & "'" into_db = "INSERT INTO 在線用戶表 ( 姓名, 性別, 登陸時(shí)間 ) VALUES(" &_ 添加這個(gè)用戶 sz & ")" conn.Execute(into_db)
name=Request("name") sex=Request("D4") ming="管理員宣布" 管理員開始宣布?xì)g迎這位(先生/女士)的光臨 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="發(fā)言" Then 準(zhǔn)備把用戶發(fā)言寫到聊天表中 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 如果什么都沒寫就發(fā)言,則默認(rèn)發(fā)言為兩眼開開,正在發(fā)呆 word="兩眼開開,正在發(fā)呆....." 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)