ASP课程设计实验报告1Word下载.docx
《ASP课程设计实验报告1Word下载.docx》由会员分享，可在线阅读，更多相关《ASP课程设计实验报告1Word下载.docx（21页珍藏版）》请在冰点文库上搜索。
自动编号
用户的标识
yhm
文本（80）
登录的用户名
mm
文本（160）
登录的密码
表4-2数据库表lyb的结构
姓名
Email
数字
用户的邮箱
主题
文本
留言的标题
内容
留言的内容
时间
日期/时间
回复的时间
2.通讯录
通讯录架构：
数据库文件bjtxl.mdb文件包括两个表，分别为alogin和txl。
alogin用来存储登录界面的用户名和密码信息，txl用来存储同学的信息，表3和表5所示
表4-3数据库表alogin的结构
字段名
文本（20）
表4-4数据库表txl的结构
同学信息的标识
xm
同学的姓名
lxfs
同学的联系方式
bz
备注
3.BBS论坛
数据库文件bbspp1.mdb文件包括两个表，分别为发言表和用户表。
发言表用来存储登录界面的用户名和密码信息如表4-5，用户表用来存储同学的信息。
表4-5BBS用户表
用户名
密码
电子信箱
临时身份
网址
表4-6
三、个人网站的实现
1．身份认证
主要代码如下：
<
%
syhm=request（"
yhm"
）
smm=request（"
mm"
setrs=server.CreateObject（"
Adodb.recordset"
sql="
select*fromaloginwhereyhm='
"
&
syhm&
'
rs.opensql,conn
ifsyhm="
then
response.Write（"
管理员的名不能为空!
%>
linkhref="
css/alogin1.css"
rel="
stylesheet"
type="
text/css"
/>
<
p>
ahref=javascript:
history.back（）>
请输入管理员名！
/a>
br>
response.End（）
endif
ifsmm="
密码不能为空"
）
请输入密码！
br/>
response.end（）
endif
ifsyhm<
>
chenqing"
response.write（"
您不是系统管理员！
请重新输入系统管理员名！
else
ifsmm=rs（"
）then
response.Redirect（session（"
file"
））
else
密码错误！
请重新输入密码！
rs.close
setrs=nothing
conn.close
setconn=nothing
/p>
2留言簿
※handle.asp：
处理程序主要代码如下：
%
读取各字段的数据
Name=Request（"
Name"
Email=Request（"
Email"
Subject=Request（"
Subject"
Memo=Request（"
Memo"
检查各字段是否输入了数据
IfName="
OrEmail="
OrSubject="
OrMemo="
Then
Response.Write（"
字段空白不接受！
Response.End'
不再处理以下的程序
EndIf
插入到数据库
setconn=Server.CreateObject（"
ADODB.Connection"
conn.Open（"
driver={MicrosoftAccessDriver（*.mdb）};
dbq="
&
_
Server.MapPath（"
lyb.mdb"
））
SQL="
INSERTINTOlyb（姓名,email,主题,内容）VALUES（'
Name&
"
'
Email&
Subject&
Memo&
）"
Response.Write（SQL）
conn.Execute（SQL）
conn.close（）
Response.Redirect（"
display.asp"
%>
※display.asp：
显示程序主要代码如下：
连接数据库，做查询
sql="
SELECT*FROMlybORDERBY时间DESC"
setrs=conn.Execute（sql）
按照的样式输出
WhileNotrs.EOF
TABLEBORDER="
0"
BORDERCOLOR="
#111111"
TR>
TD>
B>
FONTSIZE="
4"
COLOR="
#008080"
姓名：
/FONT>
/B>
/TD>
%=rs（"
姓名"
）%>
/TR>
Email:
AHREF="
MAILTO:
email"
/A>
主题：
TDWIDTH="
542"
HEIGHT="
17"
主题"
时间：
时间"
内容<
内容"
/TABLE>
HR>
rs.movenext（）
Wend
“留言簿”登录留言页面运行效果如图2所示
⑶聊天室
图2留言簿登录留言界面
3.聊天室
（1）聊天室信息输入界面其主要代码如下：
<
mywords=Request（"
message"
oneSentence="
Session（"
username"
oneSentence=oneSentence&
编号:
no"
）&
说:
"
mywords
Application.Lock（）
Application（"
talk"
）=Application（"
oneSentence&
Application.UnLock（）
HTML>
BODYBGCOLOR="
LIGHTBLUE"
FORMMETHOD="
POST"
ACTION="
MESSAGE.ASP"
<
INPUTNAME="
TYPE="
TEXT"
SIZE="
50"
INPUTTYPE="
SUBMIT"
VALUE="
SEND"
/FORM>
/BODY>
/HTML>
（2）聊天信息显示页面其主要代码如下：
HEAD>
METAHTTP-EQUIV="
REFRESH"
CONTENT="
3;
URL=display.asp"
SCRIPTLANGUAGE="
JavaScript"
functionscrollWindow（）
{
this.scroll（0,65000）
setTimeout（'
scrollWindow（）'
200）
}
scrollWindow（）
/SCRIPT>
/HEAD>
BODY>
Response.Write（Application（"
“聊天室”聊天界面运行效果如图3所示。
图3聊天室聊天界面
4.通讯录
通讯录的功能是保存手机号码、E-mail地址、住宅电话等常用的联系信息，或对以前的信息进行分组、管理和更新、并根据用户要求把后台数据库信息发布到前端的浏览器，直观显示给用户。
其主要包括四个方面：
添加记录、查询记录、删除记录、修改记录。
其通讯录查询记录程序的主要代码如下：
xm2=request.form（"
xm"
sqlstmt="
SELECT*fromtxlwherexm='
xm2&
setrs=server.createobject（"
adodb.recordset"
rs.opensqlstmt,conn,1,1
totalerec=rs.recordcount
iftotalerec=0then
response.write"
没有符合条件的记录,请重新输入！
response.end
table>
tr>
td>
姓名<
/td>
联系方式<
td备注<
/tr>
%dowhilenotrs.eof%>
tralign="
center"
td>
lxfs"
bz"
rs.movenext
loop
setconn=nothing
/table>
“通讯录”查询主页面运行效果如图4所示。
图4通讯录浏览页界面
4．BBS论坛
※Vew.Asp
SetConn=Server.CreateObject（"
Connstr="
DBQ="
+server.mappath（"
bbspp1.mdb"
）+"
;
DefaultDir=;
DRIVER={MicrosoftAccessDriver（*.mdb）};
DriverId=25;
FIL=MSAccess;
ImplicitCommitSync=Yes;
MaxBufferSize=512;
MaxScanRows=8;
PageTimeout=5;
SafeTransactions=0;
Threads=3;
UserCommitSync=Yes;
Conn.Openconnstr
bodybgcolor="
#FBF0C8"
link="
#000080"
vlink="
P>
nbsp;
ahref="
wordadd1.asp?
No=<
%Response.WriteRequest（"
No"
我要发言<
leave.asp?
离开论坛<
adminlogin.asp"
管理员入口<
SELECT*FROM发言表WHERE发言次序=1ORDERBYIDDESC"
dimrootRs
SetrootRs=Server.CreateObject（"
ADODB.RecordSet"
rootRs.Opensql,conn,1,1
IfrootRs.BofORrootRs.EofThen
Response.Write"
目前还没有发言内容。
else
setname1=rootrs（"
发言标题"
setname2=rootrs（"
用户名"
setname3=rootrs（"
回复数"
setname4=rootrs（"
电子信箱"
setNum=rootrs（"
Num"
rootRs.pagesize=10
rootRs.AbsolutePage=1
ifRequest（"
page"
）<
thenrootRs.AbsolutePage=Request（"
RowCount=rootRs.pagesize
IfNotrootRs.EofThen
tableborder="
1"
cellspacing="
width="
650"
height="
20"
bgcolor="
#FDBD6F"
cellpadding="
%DoWhileNotrootRs.EofANDRowCount>
0%>
tdwidth="
95"
valign="
top"
fontcolor="
#800000"
mailto:
%Response.Writename4%>
%Response.WriteName2%>
/font>
295"
%Response.WriteName1%>
%Response.WriteName3%>
人回复<
145"
vew2.asp?
Num=<
%Response.WriteNum%>
言论内容<
%rootRs.MoveNext
RowCount=RowCount-1
Loop
IfrootRs.pagecount>
1then
tableborder='
0'
b>
帖子分页：
/b>
Fori=1torootRs.pagecount
ahref='
vew.asp?
page="
i&
No="
Request（"
）&
[<
]<
Next
Endif
rootRs.close
SetrootRs=nothing
conn.close
Setconn=nothing
/body>
/html>
图5帖子显示页面
※Wordadd1.asp
%LogTime=Now（）%>
%Num=Cstr（Hour（LogTime））&
Cstr（Minute（LogTime））&
Cstr（Second（LogTime））&
Cstr（Int（Rnd*10000））%>
SELECT*FROM用户表WHERE临时身份<
'
and临时身份='
SetRs=conn.Execute（sql）
IfRs.BofORRs.EofThen
临时身份出错,你无权发言,请从新登陆。
Setname1=rs（"
Setmail=rs（"
Seturl=rs（"
网址"
%Response.Writename1%>
E_mail：
%Response.Writemail%>
主页：
%Response.Writeurl%>
formmethod="
action="
wordadd2.asp"
inputtype="
hidden"
name="
rewordnum"
value="
Num1"
%Response.Write"
inputtype='
hidden'
name='
Num'
value='
Num&
升级会员 