实验二 制作聊天室程序.docVIP

动态网页制作实验报告 计算机科学与技术系1105班 2013．05．13 实验二 制作聊天室程序 一、实验目的和要求 掌握ASP内置对象的基本语法知识 掌握使用Request对象获取客户请求信息 掌握使用Response对象实现服务器向客户端的响应 掌握使用Application对象实现用户共享信息的存储 掌握使用Session对象临时保存用户相关信息。 二、实验内容 利用ASP内置对象实现聊天室。要求： （1）当前在线人数，和当前在线人员名单。 （2）用户登录。 （3）用户聊天内容的显示。 （4）用户聊天信息的输入。 提示：使用框架实现页面的布局。 三、实验重点和难点 使用Application对象保存用户共享信息 使用Session对象保存用户相关信息 Global.asa文件的定义和应用 四、实验过程 1．在硬盘上新建文件夹，并将其创建为虚拟目录chatroom。 2．打开DreamWeaver8.0，新建站点（chatroom）。 3．创建网站网页，共五个文件： Login.asp，用户登录 Check.asp，用户登录处理 Main.htm，聊天室主界面（框架实现） Talk.asp，显示聊天内容 Talking.asp，输入聊天内容 Userlist.asp，显示在线用户 Exit.asp，退出聊天室 4．根据错误提示调试程序。 一 、登陆模块 登陆界面的程序：%@ import namespace=System.Data.OleDb% script language=vb runat=server Sub Sure_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim theName, psw, strSql1 As String theName = username.Text psw = P1.Text Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(user.mdb)) conn.Open() strSql1 = select * from userinfo where nc= Trim(theName) and psw= psw Dim cmd1 As New OleDbCommand(strSql1, conn) Dim dr As OleDbDataReader dr = cmd1.ExecuteReader() 判断用户输入信息是否正确（与数据库对比） If (dr.Read()) Then dr.Close() 存在此用户则将online设置为1,即用户在线 Dim strSql2 As String = update userinfo set online=1 where nc= Trim(theName) Dim cmd2 As New OleDbCommand(strSql2, conn) cmd2.ExecuteNonQuery() conn.Close() 将用户名赋予Session变量，以便在其他页面中识别当前用户 Session(username) = Trim(theName) 将页面跳转到主页 Response.Redirect(main.aspx) Else message.Text = 您的名字或密码错误，请重新选择a href=login.aspx登录 End If End Sub /script html xmlns=/1999/xhtml head runat=server title无标题页/title /head body bgcolor=#1199CC center img src=I:\小孩.jpg height=300 width=1000/ /center form id=form1 runat=server center strong 请输入