|
第五章 网上聊天系统分析 5.1 系统概论 内容来自www.paper51.com
1) 系统目标： copyright paper51.com
网上聊天系统是为人们之间进行交流和联系提供的一个平台。通过提供完善的网上聊天系统服务，可以达到增进彼此之间的了解，增进人与人之间的感情交流。 内容来自论文无忧网 www.paper51.com 2) 系统功能简介： copyright paper51.com 此系统是以用户为中心的人性化设计，总体来看，系统可以看作是用户模块和注册模块两大模块的协调运作。 paper51.com 3) 用户登陆功能： 内容来自论文无忧网 www.paper51.com 用户通过提交用户名称和用户密码进行登陆，系统便会根据这些登陆资料，辨别出用户是否存在。 内容来自论文无忧网 www.paper51.com 4) 聊天室功能： http://www.paper51.com
聊天室中将显示用户留的信息，及当前在线的用户。 copyright paper51.com 5.2系统的功能设计 内容来自论文无忧网 www.paper51.com 5.2.1系统的功能结构 内容来自论文无忧网 www.paper51.com 该聊天管理系统可以在Windows 2000 Server操作系统平台上运行，Web服务器为IIS，数据库服务器为Microsoft Access数据库，开发工具采用的VBScript和DreamWeaver。用户登录通过判断，合法登录后可以在聊天室留下你想说的话。 copyright paper51.com
5.2.2系统的功能特点 内容来自www.paper51.com 1）.操作简单、界面简洁：完全控件式的页面布局 copyright paper51.com 2）.即时可见：对用户的留言将立即在主页的对应栏目显示出来，达到"即时见效"的功能 内容来自www.paper51.com 3）.需要注册才能进入聊天室发言。 http://www.paper51.com 4）显示当前在线的用户。 paper51.com 第六章 系统功能模块的实现 copyright paper51.com 6.1 系统的具体实现 内容来自论文无忧网 www.paper51.com 1.创建一个公共数据库连接对象 内容来自www.paper51.com <% 内容来自www.paper51.com dim sql copyright paper51.com dim rs,rsadd 内容来自www.paper51.com name=request("txt1") http://www.paper51.com password=request("txt2") http://www.paper51.com setrs=server.createobject("adodb.recordset") copyright paper51.com
setrsadd=server.createobject("adodb.recordset") paper51.com
conn ="DBQ=" + server.mappath("mydb.mdb") +";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"> 内容来自www.paper51.com 2 验证用户是否合法 内容来自论文无忧网 www.paper51.com <%@Language=VBScript %> paper51.com <% copyright paper51.com dimname,pwd,email,person http://www.paper51.com
dim sql paper51.com dim rs,rsadd http://www.paper51.com name=request("txt1") http://www.paper51.com password=request("txt2") paper51.com ifname="lyf" and password="2000" then 内容来自www.paper51.com session("name")=name 内容来自论文无忧网 www.paper51.com Response.Redirect"main.asp" 内容来自www.paper51.com else 内容来自论文无忧网 www.paper51.com setrs=server.createobject("adodb.recordset") paper51.com setrsadd=server.createobject("adodb.recordset") 内容来自www.paper51.com conn ="DBQ=" + server.mappath("mydb.mdb") +";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 内容来自论文无忧网 www.paper51.com sql="select* from user where username='"&name&"'andpassword='"&password&"'" 内容来自论文无忧网 www.paper51.com rs.Opensql,conn,1,1 内容来自论文无忧网 www.paper51.com if not rs.EOFthen copyright paper51.com sql="select* from activetable where name='"&name&"'" copyright paper51.com rsadd.Opensql,conn,1,1 内容来自www.paper51.com ifrsadd.EOF then http://www.paper51.com rsadd.Close http://www.paper51.com
sql="insertinto activetable(name) values('"&name&"')" 内容来自论文无忧网 www.paper51.com rsadd.Opensql,conn,1,1 paper51.com session("name")=name 内容来自论文无忧网 www.paper51.com
Response.Redirect"main.asp" paper51.com else paper51.com response.write"<script language=JavaScript>" & chr(13) &"alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()"& "</script>" 内容来自www.paper51.com endif http://www.paper51.com else 内容来自论文无忧网 www.paper51.com response.write"<script language=JavaScript>" & chr(13) &"alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()"& "</script>" 内容来自论文无忧网 www.paper51.com end if copyright paper51.com
end if paper51.com
%> 内容来自www.paper51.com 3. 提交表单的方法有两种：get方法和post方法。此系统都是采用post方法提交，因为，get提交数据大小不能超过64k,如果超过64k其于数据将自动掉失. paper51.com |