ASP动态网页课程设计文档格式.docx
- 文档编号:22207961
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:26
- 大小:360.36KB
ASP动态网页课程设计文档格式.docx
《ASP动态网页课程设计文档格式.docx》由会员分享,可在线阅读,更多相关《ASP动态网页课程设计文档格式.docx(26页珍藏版)》请在冰豆网上搜索。
登录的密码
表2数据库表txl的结构
同学信息的标识
xm
同学的姓名
lxfs
文本(80)
同学的联系方式
bz
备注
⑵留言簿
留言簿数据库包括两个表GuestBook和hfBook。
GuestBook用来存储教师留言信息,hfBook用来存储教务员的回复信息,表3和表4所示。
hfBook数据库表中的字段“rID”存储原主题的ID,该ID就是GuestBook数据库表中的ID字段。
表3数据库表GuestBook的结构
留言的标识
姓名
留言人的姓名
文本(160)
留言人的E-mail
主题
文本(255)
留言的主题
留言
留言的内容
时间
日期/时间
留言的时间,now()
IP
文本
留言人的IP地址
Verify
数字
验证标志,暂时没用
表4数据库表hfBook的结构
回复信息的唯一标识
rID
原来主题的ID
用户名
回复人的姓名
回复人的IP地址
回复内容
回复的内容
回复的时间
三、系统实现
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.聊天室
进入聊天室需要进行身份认证,完成此操作过后,自动跳转至聊天界面,在页面上方可以可见当前在线人数,其主要代码如下:
※message.asp:
聊天室的信息输入界面
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>
※display.asp:
聊天信息显示页面
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.留言簿
留言簿包含提交留言,浏览留言,编辑留言(修改和删除),清除重写四大模块,其中编辑留言需要身份认证才可以进行修改、删除操作;
并且浏览留言采用分页显示技术。
“留言簿”主页面运行效果如图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"
显示程序
连接数据库,做查询
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留言簿主页面
4.通讯录
通讯录的功能是保存姓名、E-mail地址、家庭住址等常用的联系信息。
模块包含浏览记录,查询记录,添加记录和编辑记录(修改和删除)四个部分,其中添加记录和编辑留言需要身份认证。
浏览留言采用分页显示技术,通讯录主页面运行效果如图3所示,其主要代码如下:
※add.asp:
添加记录
adodb.recordset"
rs.open"
txl"
conn,1,2
rs.addnew
rs("
xm"
)=request.Form("
lxfs"
bz"
rs.Update
response.write"
记录己经被成功输入。
setconn=nothing
※del.asp:
删除记录
id=request.querystring("
id"
SQLstmt="
DELETEfromtxlwhereid="
id&
conn.execute(SQLstmt)
Server.Transfer"
tongxunlu.asp"
※query.asp:
查询记录
xm2=request.form("
sqlstmt="
SELECT*fromtxlwherexm='
xm2&
setrs=server.createobject("
rs.opensqlstmt,conn,1,1
totalerec=rs.recordcount
iftotalerec=0then
没有符合条件的记录,请重新输入!
response.end
table>
tr>
td>
姓名<
/td>
联系方式<
td备注<
/tr>
%dowhilenotrs.eof%>
tralign="
center"
td>
rs.movenext
loop
/table>
※mod.asp:
修改记录
id3=request.form("
xm3=request.form("
lxfs3=request.form("
bz3=request.form("
sqlstmt="
UPDATEtxlsetxm='
xm3&
lxfs='
lxfs3&
bz='
bz3&
whereid="
id3&
conn.execute(sqlstmt)
conn.close
setconn=nothing
server.transfer"
图3通讯录主页面
图4通讯录浏览
5.图片计数器
图片计数器是Application对象的一个用途,因为Application是所有的用户所共有的,所以可以存储计数器的值,当有新用户访问网页时自动增值计数器的值。
其代码如下:
%Application.Lock()
Application("
Counter"
)=Application("
)+1
Application.UnLock()
FunctionG(counter)
DimS,i
S=CStr(counter)
Fori=1toLen(S)
myimage=myimage&
IMGSRC="
Mid(S,i,1)&
.gif>
Next
G=myimage
EndFunction%>
PALIGN="
CENTER"
您是本站第<
%=G(Application("
))%>
位贵宾!
/P>
6.当前时间
当前时间是now()自动调用系统时间实现的,其代码如下:
scriptlanguage="
vbscript"
document.write(now())
/script>
7.在线人数统计
在线人数统计采用Application对象和Session对象来编写。
当网站开启时就自动调用global.asa文件,此时其中的Application_OnStart首先被调用,然后执行其中的语句,Application("
whosOn"
)被自动清零。
然后当第一位用户登录网站时,Session_OnStart被调用,此时Application("
)被自动加一。
当第二位、第三位用户登录时,又被加一,所以显示的是在线的人数。
※CountOnLine.asp
%Response.Write("
现在有"
whoson"
人在线"
※global.asa
ScriptLANGUAGE="
VBScript"
RUNAT="
SERVER"
SubApplication_OnStart()
)=0
EndSub
SubSession_OnStart()
)=Cint(Application("
))+1
SubSession_OnEnd()
))-1
/Script>
8.广告轮显
广告图片的动态显示时利用内置组件ADROTATOR来实现的。
使用该组件,可以在每次访问中显示不同的图标,可以设置广告的不同权重使得显示频率不同。
※ad.asp
3"
;
URL=DEFAULT.ASP>
%setMyAdvertise=Server.CreateObject("
MSWC.AdRotator"
CENTER>
%=MyAdvertise.GetAdvertisement("
ad.txt"
)%>
/CENTER>
※ad.txt
REDIRECTad_redir.asp
WIDTH230HEIGHT60BORDER0
*
yule.gif
../../web/mifeng.html娱乐天宫
40
welcome.gif
../../zhuye.asp我的地盘我做主
30
lvhai.gif
../../web/lvhai.mht安徽绿海商务学院
※ad_redir.asp
%Response.Redirect(Request("
url"
))%>
9.文件链接组件
文件链接组件使用户可以在你页面中自由跳转,当有许多并列的页面时,改组件非常有用,可以大大简化每个页面加入相应链接信息的这个过程。
※link.asp
总文件个数为:
SetLink=Server.CreateObject("
MSWC.nextlink"
Response.Write(Link.GetListCount("
link.txt"
BR>
%Sum=Link.GetListCount("
)'
返回文件总数
ForI=1toSum'
用循环依次写出所有的文件链接
ahref="
%=Link.GetNthURL("
I)%>
target="
_blank"
%=Link.GetNthDescription("
%Next%>
※link.txt
wenjian/01.asp咏白海棠wenjian/02.asp荷塘月色
wenjian/03.asp三国演义wenjian/05.asp咏菊问菊
wenjian/06.asp赤壁怀古
10.记录客户端的IP地址
该程序中OpenTextFile(path,8,true)方法有三个参数,第一个参数“path”打开文件的地址;
第二个参数“8”是打开方式,这里是以追加的形式打开;
第三个参数“true”表示如果该文件不存在就创建一个新文件。
Request.ServerVariables("
REMOTE_ADDR"
)为客户端的IP地址,这样所有访问过该页面的IP地址就被记录下来了。
%path=Server.MapPath("
test.log"
setMyFileObject=Server.CreateObject("
Scripting.FileSystemObject"
setMyTextFile=MyFileObject.OpenTextFile(path,8,true)
MyTextFile.WriteLine(Request.ServerVariables("
MyTextFile.Close()
11.文件上传
文件上传组件可以使用户在ASP页面中接受客户浏览器上传的文件。
本文件上传包含下载、浏览、删除操作,其中删除操作需要身份认证,用户上传的文件保存到数据库中,Acc
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ASP 动态 网页 课程设计