聊天室详细解释(3).pdfVIP

接下来，我 们 开始 对 用 户登 陆与 发言 实例程序 进行分析： chatadd1.asp 1、用户登陆 %Response.Buffer=true%　　　　　　　　　　　　　　　　指定缓存为真 body bgcolor=#F8E17A %if Request(name)= then%　　　　　　　　　　　　　判断用户名是否 为空，以判断用户是否在聊天界面 %addr=Request(REMOTE_ADDR)%　　　　　　　 　　　　　获得用户Ｉ Ｐ form method=POST action=chatadd1.asp pinput type=hidden name=IP value=%=addr%p 用户登 陆表单 p请输入匿名:input type=text name=name size=15 密码:input type=password name=pass size=15 性别:select name=D4 size=1 style=color: rgb(0,0,128) option value=先生先生/option option value=女士女士/option /select input type=submit value=发送 name=B1 input type=reset value= 复原 name=B2/p /form %=Request(a)%　　　　　　　　　　　　　　　　　　　 返回的错误变量 %else%　　　　　　　　　　　　　　　　　　　　　　　　用户确在聊天界面中 %B1=Request(B1) If B1=发送 Then　　　　　　　　　　　　　　　　　　 　开始判断用户名与密 码　　　　　　　　 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 s