|
4.4 数据库的设计 用户的管理:包括合法系统用户的注册,登录,退出等功能。. copyright paper51.com 设计要求是: paper51.com 1 activetable表 记录当前在线的用户。 内容来自论文无忧网 www.paper51.com 2 message 表 记录当前用户所留的信息。 http://www.paper51.com
3 user 表 当前所有注册用户的信息。 paper51.com 4.5 实现数据库之间的联系 paper51.com 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 copyright paper51.com
4.6 数据库的连接方法 内容来自www.paper51.com 1.Access数据库的DSN-less连接方法: http://www.paper51.com
setadocon=Server.Createobject("adodb.connection") paper51.com
adoconn.Open"Driver={MicrosoftAccess Driver(*.mdb)};DBQ="& _Server.MapPath("数据库所在路径") 内容来自www.paper51.com 2.Access OLEDB连接方法： 内容来自论文无忧网 www.paper51.com setadocon=Server.Createobject("adodb.connection") copyright paper51.com adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_"Data Source=" & Server.MapPath("数据库所在路径") http://www.paper51.com 第五章 网上聊天系统分析 内容来自论文无忧网 www.paper51.com
5.1 系统概论 paper51.com 1) 系统目标： 内容来自www.paper51.com 网上聊天系统是为人们之间进行交流和联系提供的一个平台。通过提供完善的网上聊天系统服务，可以达到增进彼此之间的了解，增进人与人之间的感情交流。 内容来自www.paper51.com 2) 系统功能简介： copyright paper51.com 此系统是以用户为中心的人性化设计，总体来看，系统可以看作是用户模块和注册模块两大模块的协调运作。 内容来自www.paper51.com
3) 用户登陆功能： http://www.paper51.com
用户通过提交用户名称和用户密码进行登陆，系统便会根据这些登陆资料，辨别出用户是否存在。 paper51.com 4) 聊天室功能： 内容来自www.paper51.com
聊天室中将显示用户留的信息，及当前在线的用户。 copyright paper51.com 5.2系统的功能设计 copyright paper51.com
5.2.1系统的功能结构 内容来自论文无忧网 www.paper51.com
该聊天管理系统可以在Windows 2000 Server操作系统平台上运行，Web服务器为IIS，数据库服务器为Microsoft Access数据库，开发工具采用的VBScript和DreamWeaver。用户登录通过判断，合法登录后可以在聊天室留下你想说的话。 内容来自论文无忧网 www.paper51.com 5.2.2系统的功能特点 内容来自www.paper51.com 1）.操作简单、界面简洁：完全控件式的页面布局 内容来自www.paper51.com 2）.即时可见：对用户的留言将立即在主页的对应栏目显示出来，达到"即时见效"的功能 paper51.com 3）.需要注册才能进入聊天室发言。 内容来自www.paper51.com 4）显示当前在线的用户。 copyright paper51.com
第六章 系统功能模块的实现 paper51.com
6.1 系统的具体实现 http://www.paper51.com
1.创建一个公共数据库连接对象 paper51.com <% copyright paper51.com dim sql 内容来自论文无忧网 www.paper51.com
dim rs,rsadd paper51.com name=request("txt1") copyright paper51.com password=request("txt2") 内容来自www.paper51.com
setrs=server.createobject("adodb.recordset") paper51.com setrsadd=server.createobject("adodb.recordset") copyright paper51.com
conn ="DBQ=" + server.mappath("mydb.mdb") +";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"> 内容来自www.paper51.com 2 验证用户是否合法 http://www.paper51.com <%@Language=VBScript %> 内容来自论文无忧网 www.paper51.com
<% 内容来自www.paper51.com
dimname,pwd,email,person http://www.paper51.com
dim sql http://www.paper51.com dim rs,rsadd http://www.paper51.com name=request("txt1") copyright paper51.com password=request("txt2") http://www.paper51.com
ifname="lyf" and password="2000" then http://www.paper51.com session("name")=name http://www.paper51.com Response.Redirect"main.asp" 内容来自www.paper51.com
else 内容来自www.paper51.com setrs=server.createobject("adodb.recordset") 内容来自论文无忧网 www.paper51.com
setrsadd=server.createobject("adodb.recordset") 内容来自www.paper51.com conn ="DBQ=" + server.mappath("mydb.mdb") +";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" http://www.paper51.com
sql="select* from user where username='"&name&"'andpassword='"&password&"'" 内容来自论文无忧网 www.paper51.com rs.Opensql,conn,1,1 copyright paper51.com
if not rs.EOFthen 内容来自www.paper51.com sql="select* from activetable where name='"&name&"'" http://www.paper51.com
rsadd.Opensql,conn,1,1 copyright paper51.com ifrsadd.EOF then http://www.paper51.com rsadd.Close paper51.com sql="insertinto activetable(name) values('"&name&"')" copyright paper51.com rsadd.Opensql,conn,1,1 paper51.com session("name")=name copyright paper51.com Response.Redirect"main.asp" http://www.paper51.com else http://www.paper51.com response.write"<script language=JavaScript>" & chr(13) &"alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()"& "</script>" 内容来自www.paper51.com
endif paper51.com else paper51.com response.write"<script language=JavaScript>" & chr(13) &"alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()"& "</script>" http://www.paper51.com end if paper51.com end if paper51.com %> 内容来自www.paper51.com |