logo资料库

asp.net聊天室.doc

第1页 / 共9页
第2页 / 共9页
第3页 / 共9页
第4页 / 共9页
第5页 / 共9页
第6页 / 共9页
第7页 / 共9页
第8页 / 共9页
资料共9页,剩余部分请下载后查看
华北科技学院计算机系综合性实验 实 验 报 告 课程名称 网络编程 B 实验学期 2009 至 2010 学年 第 一 学期 学生所在系部 电子信息工程 年级 07 级 专业班级 电信 B071 学生姓名 郭亚立 学号 200703014138 任课教师 崔新伟 实验成绩 计算机系制
华北科技学院计算机系综合性实验报告 《 网络编程 B 》课程综合性实验报告 开课实验室: 基础实验室 2009 年 12 月 9 日 实验题目 一、实验目的 一、实验目的 聊天室的设计 1、掌握 ASP.NET 内部控件的应用。 2、掌握 ASP.NET 内部对象的应用。 3、Application 对象的深入应用。 4、掌握数据库的建立、连接与数据的存取。 5、掌握网页开发的基本流程。 二、设备与环境 二、设备与环境 硬件:多媒体计算机 软件:Windows XP 操作系统、Visual Studio.NET 2005 集成开发环境 三、实验内容 三、实验内容 1、简单文字聊天室的需求分析。 2、系统的功能模块设计,功能模块框图。 3、数据库的设计。 4、系统的详细设计,统计在线人数、实现私聊等功能。 5、应用到的关键技术的详细说明。 四、实验结果及分析 四、实验结果及分析 11、简单文字聊天室的需求分析 、简单文字聊天室的需求分析 1. 有用户注册及登录功能。 2. 有注册信息的简单验证功能。 3. 进入聊天室聊天时可显示用户姓名、发言内容及发言时间。 4. 有统计和显示当前在线人数功能。 5. 使用数据库存储、核对并调用用户信息。 6. 使用 Session 传递用户名。 7.使用 Response 实现各个页面间的链接 第 1 页
华北科技学院计算机系综合性实验报告 22、聊天室的功能模块 、聊天室的功能模块 刀刀聊天室 注册 登录 聊天 退出 按格式进行注册,成功 后,转入登陆页面 注册后,可以进行登陆 登陆后,才可以有权发言,否 则转入登陆页面 1.注册模块: 使用验证控件对部分内容进行验证,将注册的信息存储到已建立好的数据库中,若填入 的信息不符合要求需重新注册,注册成功后转到登录页面。 2.登录模块: 已注册成功的用户(数据库中已存储其注册信息)输入正确的用户名和密码后就可以进 入聊天室,未注册的系统自动返回注册页面,要求用户进行注册;用 Application 存储在线 人数,用 Session 存储用户名。 3.聊天模块 用 Application 显示在线人数。登陆聊天室自动加一,退出聊天室,自动减一。 用 Application 及 session 显示用户姓名、聊天信息及发言时间。 用 Application 存储用户姓名、聊天信息及发言时间。 4.退出模块 第 2 页
华北科技学院计算机系综合性实验报告 33、数据库的设计 、数据库的设计 字段名称 用户名 电子信箱 用户密码 年龄 性别 电话号码 所在城市 数据类型 文本 数字 文本 文本 文本 文本 文本 说明 用户名 电子信箱 用户密码 年龄 性别 电话号码 所在城市 44、系统的详细设计、功能 、系统的详细设计、功能 用户注册,使用验证控件对部分内容验证,将注册的信息存储到建立的数据库中,注 册成功后转到登录页面。 用户登录,已注册过的用户输入数据库中已存储的正确的用户名和密码后能够进入聊天 室,未注册进行注册; 用 Application 存储在线人数,当点击“登录”按钮之后,在线人数的值就会在原来的基 础上加 1,用户名用 Session 存储,当点击聊天室的“退出”按钮后,在线人数的值就会 在原来的基础上减 1。用 Application 显示、存储用户姓名、发言内容及发言时间。整个 过程使用了 Response 实现各个页面间的链接。 55、应用到的关键技术的详细说明 、应用到的关键技术的详细说明  注册功能 Sub Enter_Click(Sender As Object, E As EventArgs) Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("聊天室.mdb")) Dim strSql As String strSql = "Insert Into 用户信息( 用户名,密码,性别,年龄,手机,所在城市,邮箱) Values('" & user_name.Text & "','" & password1.Text & "','" & sex.SelectedItem.Text & "'," & CInt(age.Text) & ",'" & tel.Text & "','" & location.Text & "','" & email.Text & "')" Dim cmd As New OleDbCommand(strSql, conn) conn.Open() 第 3 页
华北科技学院计算机系综合性实验报告 cmd.ExecuteNonQuery() conn.Close() Message.Text = "注册成功" End Sub  在线人数统计功能 Application.Lock() Application("user_number") = Application("user_number") + 1 Application.UnLock() 当点击“登录”按钮之后,通过上述语句将在线人数加1;当点击“退出”按钮后,通过下述语 句将在线人数减1。 Application.Lock() Application("user_number") = Application("user_number") - 1 Application.UnLock()  聊天功能 Application.Lock() '将用户名,ip地址以及发言内容写入application对象中 Application("message") = name & ":" & Now & ":" & " " & content & "" & Application("message") Application.UnLock() show = Application("message") 用户在聊天室页面发言后,通过上述语句实现了存储以及显示用户姓名、发言内容及发言时 间。 66、各个页面输出结果 、各个页面输出结果 第 4 页
华北科技学院计算机系综合性实验报告 第 5 页
华北科技学院计算机系综合性实验报告 第 6 页
华北科技学院计算机系综合性实验报告 第 7 页
分享到:
收藏