db.open "driver={microsoft access driver (*.mdb)};
dbq=" & server.MapPath(".../data/yhzc.mdb")
%>
照片数据库连接程序：
<%
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};
dbq=" & server.MapPath(".../data/yhzc.mdb")
%>
4.3.1创建数据库链接(Connection)
链接用以保持一些关于正在访问的数据的一些状态信息，以及链接者信息。ASP文件中如果要访问数据，必须首先创建与数据库的链接，其语法如下：
set Conn=Server.createObject(“ADOBD.CONNECTION”)
这条语句创建了链接对象Conn，接下来：
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data.Source="&Server.MapPath(""&db&"")
conn.Open connstr
这条语句打开链接，用到了DSN，本例为“connstr”。
以上两个步骤缺一不可，因为链接对象的创建与打开是两回事，只有打开了才真正可以使用。
4.3.2创建数据对象(Record Set)
ADO中的数据对象通常保存的是查询结果。Record Set是ADO中最复杂的对象，有许多属性和方法。Record Set保存的是一行行的记录，并标有一个当前记录。以下是创建方法：
Set Record Set=Conn.Execute(sqtStr)
这条语句创建并打开了对象Record Set，其中Con是先前创建的链接对象，rs是一个字串，代表一条标准的SQL语句。例如：
rs=“SELECT * FROM shop_books”
Set Record Set=mConn.Execute(rs)
这条语句执行后，对象Record Set中就保存了表tab1中的所有记录。
注意：数据库文件在本系统的xyl/date文件夹中。
网友注册模块
网友注册模块包含以下子模块。
会员注册
yhzc.htm
yhzc.asp
yhbrow.asp
datj.asp
用户登录
default.asp
yhdl.asp
wdda.asp
各页面的关系如图所示
网友个人管理模块与与浏览信息模块
网友个管理模块包含以下子模块
档案注册
修改密码
修改档案信息
相片上传
留言板
资料管理子模块包含以下面。
yhbrow.asp
gmm.asp
gda.asp
zpsc.asp
lyb.asp
各页面间的关系如图所示:
管理员模块
管理员模块包含以下几个页面
glydl.asp
glybrow.asp
delete.asp
各页面间的关系如图所示
内容详细设计
5.1程序变量的定义与应用
本系统中的变量可以定义可以不定义只有几个做了专门的定义
db 是连接数据库的变量
rs 记录集对象
strsql SQL对象
5.2 模块详细设计
5.2.1 聊天室
关于聊天室的所有源程序都在xyl/lts下,分别如下:
index.asp---聊天室首页
chat.asp----聊天界面框架主文件
input.asp---输入聊天内容文件
main.asp---显示聊天信息文件
exit.asp----退出聊天文件
聊天室首页主要显示当前在线人数,并要求用户输入昵称后进入聊天界面.
程序如下:
<Script Language="java script">
<!--
function check_Null(){
if (document.form1.user_name.value==""){
alert("昵称不能为空!");
return false;
}
return true;
}
// -->
</Script>
<table width="69%" height="158" border="1" align="center"bgcolor="#CCFFFF">
<tr>
<td><h2 align="center">聊天室</h2>
<center>
<%=Application("user_online")%>人在线
<p>
<form method="post" action="chat.asp" name="form1" onsubmit="java script: return check_Null();">
输入昵称
<input type="text" name="user_name" size="10">
&nbs