聊天室毕业论文

毕业论文

江苏联合职业技术学院计算机应用技术专业毕业论文网络聊天室系统

学生姓名：陈传勤

学号：

指导老师：徐光

专业：计算机应用技术

年级：06级

学校：南京市莫愁中等专业学校

二零一一年四月

毕业论文

网络聊天室系统

前言

21世纪是个信息化的时代，现代计算机技术的发展，为各行各业的发展创造了一个全新的时代背景——人们的生活、工作等已经越来越离不开计算机科学的运用，而Internet的应用加速了这种趋势，人们越来越需要在互联网上交流各种信息和讨论各种问题，聊天室系统是互联网上一种人与人之间交互的必备工具，特别是做网站必备。以前我们一直使用留言本形式，但是随着网站的大规模化，人们越来越多的迫切需要一种可以易于维护、易于交流而且可以发布多媒体信息的平台，那就要用聊天室系统。由于聊天室程序的绝大多数功能都是基于数据库的，因此其作为掌握数据管理技术的课题来研究是非常合适的。聊天室网站和数据库技术在Internet中的应用越来越广泛，为广大网络用户提供了更加周到和人性化的服务。个性化已逐渐成为当今Web应用的潮流，而Web的信息资源建设是近两年在Internet上的新兴技术，其优秀的即时性和良好的交互性，使得这一新技术在管理和建设上得到广泛的应用。网络与人们的工作、生活和学习的关系越来越密切，在人们的生活中起着不可替代的作用。

毕业论文

[中文摘要]

在聊天室里网民可选择自已的聊天对象，与其进行对话交流，是网民之间相互沟通、交流情感的最佳方式之一。为了满足人们的各种需求，各种类型的网上应用系统层出不穷。为了便于聊天室会员的联系，就产生了网上聊天室系统。

本系统主要采用https://www.360docs.net/doc/db15309214.html,技术，开发语言VB，主要实现的是聊天信息发布，人数统计，资料修改，清除留言等功能，由于水平有限，很多地方做的不是很好，还待以后加以改进。在下面的各章节中,我们将以开发https://www.360docs.net/doc/db15309214.html,(vb)聊天室系统为例,详细的介绍其开发过程和所涉及的问题及解决方法。

[关键词]: 信息化,网络,聊天室,.NET Framework

毕业论文

目录

前言 (2)

目录 (4)

1概述 (5)

1.1 https://www.360docs.net/doc/db15309214.html,技术介绍 (5)

1.1.1 https://www.360docs.net/doc/db15309214.html,的运行原理 (5)

1.1.2 ACCESS 2003数据库技术介绍 (5)

1.2 开发环境的配置 (6)

2需求分析 (6)

2.1 功能需求 (6)

2.2 性能需求 (7)

2.3系统流程图 (7)

3系统设计 (8)

3.1 前台设计与模块图 (8)

3.1.1 主界面设计 (8)

3.1.2 前台模块图 (9)

４详细设计及编码 (10)

4.1 数据库设计 (10)

4.1.1 数据库表 (10)

4.2 网站各个模块设计 (12)

5性能测试与分析 (18)

1、测试 (18)

2、测试方法 (19)

6参考文献 (19)

毕业论文

1概述

1.1 https://www.360docs.net/doc/db15309214.html,技术介绍

按照微软公司的定义，.NET就是微软公司的XML WEB服务平台，它是为了解决互连网应用中存在的普遍问题而预先建立的基础设施。即将程序开发的侧重点从连接到互连网的单一网站或设备上，转移到计算机、设备和服务群组上，使其通力合作，提供更加广泛更加丰富的解决方案。[1]

https://www.360docs.net/doc/db15309214.html,可以用任何与.NET兼容的语言（包括Visual https://www.360docs.net/doc/db15309214.html,、C#和https://www.360docs.net/doc/db15309214.html,）开发应用程序，而不仅仅是使用JavaScript和VBScript。[3]

1.1.1 https://www.360docs.net/doc/db15309214.html,的运行原理

https://www.360docs.net/doc/db15309214.html,文件以.aspx扩展名保存。当安装.NET时，本地的IIS Web服务器会自动配置以查找扩展名为.aspx的文件，且用https://www.360docs.net/doc/db15309214.html,模块（名为aspnet_isapi.dll的文件）处理这些文件。在Web页面中插入https://www.360docs.net/doc/db15309214.html,代码有3种方式。

(1)使用内联代码使用<% %>作为界定符，在ASP中经常使用，在https://www.360docs.net/doc/db15309214.html,中不推荐使用。

(2)使用"

TextBox1.Text = ""

TextBox2.Text = ""

rs.Close()

cnn.Close()

rs = Nothing

cnn = Nothing

End If

4.2.2用户找回密码模块实现：

图4-2 用户丢失密码找回路径

用户找回密码主要是根据前期注册密保问题来校验密保答案，具体代码如下：

Protected Sub getpwd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles getpwd.Click If TextBox1.Text = ""Then

Label1.Text = ""

Else

毕业论文

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

cnn.Open("driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("db.mdb"))

rs.Open("select * from UserInfo where UserName='" & Me.TextBox1.Text & "'", cnn, 2, 2) If Not rs.EOF Then'是否到文件末尾，用户存在于库中

Dim cnn1 As New ADODB.Connection

Dim rs1 As New ADODB.Recordset

cnn1.Open("driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")) rs1.Open("select * from pwdquestion where UserName='"& Me.TextBox1.Text & "'", cnn, 2, 2) '判断密保问题是否存在

If Not rs1.EOF Then'是否到文件末尾

Session("xm") = rs("UserName").Value

Response.Redirect("getpwd.aspx")

rs1.Close()

cnn1.Close()

rs1 = Nothing

cnn1 = Nothing

Else

Label1.Text = ""

End If

Else

Label1.Text = ""

End If

End If

End Sub

4.2.3用户注册模块实现：

本系统提供的注册界面如图4-3所示。

毕业论文

图4-3 网站注册界面

注册新户时需要把用户的资料添加到数据库。

注册时增加新用户函数代码：

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

cnn.Open("driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("db.mdb"))

rs.Open("select * from UserInfo where UserName='" & Me.TextBox1.Text & "'", cnn, 2, 2) If Not rs.EOF Then'是否到文件末尾，能找到结果集

Label1.Text = ""

Else

rs.AddNew()

rs("UserName").Value = Me.TextBox1.Text

rs("Password").Value = Me.TextBox2.Text

rs("photo").Value = Me.Image2.ImageUrl

rs("IP").Value = https://www.360docs.net/doc/db15309214.html,erHostAddress

rs.Update()

rs.Close()

cnn.Close()

rs = Nothing

cnn = Nothing

Label1.Text = ""

End If

Protected Sub DropDownList2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged

毕业论文

Me.Image2.ImageUrl = "tx/" & Me.DropDownList2.Text

End Sub

4.2.4用户注册模块实现：

图4-4 注册密保问题

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click If Me.TextBox1.Text = ""Then

Label1.Text = ""

Else

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

cnn.Open("driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("db.mdb"))

rs.Open("select * from UserInfo where UserName='" & Me.TextBox1.Text & "'", cnn, 2, 2) If Not rs.EOF Then'是否到文件末尾，能找到该用户

Dim cnn1 As New ADODB.Connection

Dim rs1 As New ADODB.Recordset

cnn1.Open("driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")) rs1.Open("select * from pwdquestion where UserName='" & Me.TextBox1.Text & "'", cnn, 2, 2) If Not rs1.EOF Then'没有达到文件末尾，能找到结果集

Label1.Text = ""

rs1.Close()

cnn1.Close()

rs1 = Nothing

毕业论文

cnn1 = Nothing

rs.Close()

cnn.Close()

rs = Nothing

cnn = Nothing

Else

Session("xm") = Me.TextBox1.Text

Response.Redirect("pwdquestion.aspx")

End If

Else

Label1.Text = ""

End If

End If

End Sub

4.2.5聊天信息的实现

聊天室帖子的浏览简要

该模块主要实现聊天信息的浏览功能。该模块的界面如图4-5

图4-5 聊天信息模块界面

聊天信息模块是用一个用户自定义控件实现的，当要用到聊天信息模块时，只要把该自定义控件拖到相应的位置即可，实现该功能的代码如代码所示。要让用户浏览已有的帖子就必须从数据库取出帖子的所有数据显示在网站上，接数据库：Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

毕业论文

Button1.Click

Me.AccessDataSource2.InsertCommand = "insert into ChatInfo(FromName,photo,Content,PostTime,IP) values('" & Session("xm") & "','" & Session("photo1") & "','" & Me.TextBox1.Text & "','" & Now() & "','" & https://www.360docs.net/doc/db15309214.html,erHostAddress & "')"

Me.AccessDataSource2.Insert()

Me.TextBox1.Text = ""

End Sub

4.2.6清除聊天信息：

Protected Sub btclear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

btclear.Click

Dim cnn As New ADODB.Connection

cnn.Open(Me.AccessDataSource1.ConnectionString)

cnn.Execute("DELETE FROM [ChatInfo] ")

End Sub

4.2.7显示在线人数：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

https://www.360docs.net/doc/db15309214.html,bel1.Text = Application("usercount")

End If

End Sub

5性能测试与分析

5.1、测试

因为软件较小，而且时间较短，我们采用自上而下的渐增式测试方法。所以单元

毕业论文

5.2、测试方法

一般来说，对程序测试有两种测试方法：如果已经知道了软件系统应具有的功能，可通过测试来看每个功能是否都能正常使用；如果知道程序的内部工作过程，可以通过测试来检测程序内部是否按照规格说明书的规定正常进行。前一种方法称为黑盒测试，后一种方法称为白盒测试。黑盒测试又称为功能测试，白盒测试又称为结构测试。

经过几个月的毕业设计，因为时间和任务的性质的关系，没有完全按照上述的测试方法进行系统的测试，但经过一些简单的步骤的测试，证明本系统具有相当程序的稳定性。

6参考文献

[1] 邹建峰等编著. https://www.360docs.net/doc/db15309214.html,开发技术详解[M]. 人民邮电出版社，2005, 1-1.

[2] Diffmaker. https://www.360docs.net/doc/db15309214.html,学习手记[N]. 5D互动聊天室，2005, 1-2

[3] Stephen Walther[美]编著. https://www.360docs.net/doc/db15309214.html,揭密[M]. 中国电力出版社，2204,23-25

[4] 唐伍中. 基于https://www.360docs.net/doc/db15309214.html,的在线VOD系统的设计与实现[D].上海师范大学硕士研究生学位论文，2005，9-10

[5] 刘耀儒编著. SQL Server2000教程[M]. 北京科海集团公司，2001,13-14

[6] 武晓军，陈海滨编著. vbscript网页编程实例解析[M]. 清华大学出版社，2001

[7] 点点工作室. 网页三剑客教程[R]. 北京万众博弈科技发展有限公司，2004,40-43