asp
各页面间的关系如图所示
第五章内容详细设计
5.1程序变量的定义与应用
本系统中的变量可以定义可以不定义只有几个做了专门的定义
db是连接数据库的变量
rs记录集对象
strsqlSQL对象
5.2模块详细设计
5.2.1聊天室
关于聊天室的所有源程序都在xyl/lts下,分别如下:
index.asp---聊天室首页
chat.asp----聊天界面框架主文件
input.asp---输入聊天内容文件
main.asp---显示聊天信息文件
exit.asp----退出聊天文件
聊天室首页主要显示当前在线人数,并要求用户输入昵称后进入聊天界面.
程序如下:
聊天室
<%=Application("user_online")%>人在线
输入昵称
框架主文件程序如下:
聊天室
<%
Session("user_name")=Request("user_name")
DimsayStr
sayStr="来自"&Request.ServerVariables("Remote_Addr")&"的"
sayStr=sayStr&""&Session("user_name")&""
sayStr=sayStr&"于"&Time&"来临"
sayStr=""&sayStr&""
Application.Lock
Application("show")=sayStr&""&Application("show")
Application("user_online")=Application("user_online")+1
%>
此网页使用了框架,但您的浏览器不支持框架。
输入聊天内容文件用来输入发言,并可以选择着色和表情程序如下:
发言区
发言:
颜色:
<%IfRequest("mycolor")="#000000"Then%>
黑色
<%Else%>
黑色
<%EndIf%>
<%IfRequest("mycolor")="#FF0000"Then%>
红色
<%Else%>
红色
<%EndIf%>
<%IfRequest("mycolor")="#FFFF00"Then%>
黄色
<%Else%>
黄色
<%EndIf%>
<%IfRequest("mycolor")="#3333FF"Then%>
蓝色
<%Else%>
蓝色
<%EndIf%>
表情:
无
开心
忧伤
哭
微笑
怀疑
离开聊天室
<%
IFRequest("say")<>""Then
Dimsay,mycolor,myemote,user_name
user_name=Session("user_name")
say=Server.HtmlEncode(Request("say"))
mycolor=Request("mycolor")
myemote=Request("myemote")
Ifmyemote="无"Then
myemote=""
EndIf
DimsayStr
sayStr=""&user_name&Time&myemote&"说:"
sayStr=sayStr&""&say&""
Application.Lock
Application("show")=sayStr&""&Application("show")
IfLen(Application("show"))>10000Then
Application("show")=Mid(Application("show"),1,10000)
EndIf
Application.Unlock
EndIf
%>
显示聊天信息文件main.asp
这个文件很简单,就是将application中的信息写出来。页面每隔5秒自动控制刷新一次,程序如下:
<%
Response.WriteApplication("show")
%>
5.2.2留言板的设计
add.asp---添加留言
delete.asp-删除留言
lyb.asp---留言板主页
留言板主页程序主要加了个分页显示
添加留言程序如下:
<%optionexplicit%>
<%Response.Buffer=True%>
<%
dimdb
setdb=server.CreateObject("adodb.connection")
db.Open"driver={microsoftAccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
%>
<%
Dimtitle,body,name,email
title=Request.Form("title")
body=Request.Form("body")
name=Request.Form("name")
email=Request.Form("email")
DimSql,sValues
Sql="InsertIntoguest(name"
sValues="Values('"&name&"'"
Sql=Sql&",title"
sValues=sValues&",'"&title&"'"
Ifbody<>""Then
Sql=Sql&",body"
sValues=sValues&",'"&body&"'"
EndIf
Ifemail<>""Then
Sql=Sql&",email"
sValues=sValues&",'"&email&"'"
EndIf
Sql=Sql&",submit_date"
sValues=sValues&",'"&date&"'"
Sql=Sql&")"&sValues&")"
db.Execute(Sql)
db.Close
Response.Redirect"lyb.asp"
%>
删除留言程序如下:
<%optionexplicit%>
<%Response.Buffer=True%>
<%
dimdb
setdb=server.CreateObject("adodb.connection")
db.Open"driver={microsoftAccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
%>
删除留言
<%
Dimsql,guest_id
guest_id=Request.QueryString("guest_id")
sql="DeleteFromguestWhereguest_id="&guest_id
db.Execute(sql)
db.Close
Response.Redirect"lyb.asp"
%>
5.2.3bbs设计:
bbs.asp---bbs首页
brow.asp-详细信息页
dj.asp----点击次数
fb.asp----发表页
huifu.asp-回复页
BBS首页主要程序就是用来分页显示
详细信息页的程序如下:
<%
dimdb
setdb=server.CreateObject("adodb.connection")
db.Open"driver={microsoftAccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
%>
UntitledDocument
<%
Dimbbs_id
bbs_id=Request("bbs_id")
Dimsql,rs
sql="Select*FrombbsWherebbs_id="&bbs_id
Setrs=db.Execute(sql)
%>
详细信息
[返回]&title=<%=rs("title")%>">[回复]
原文主题:
<%=rs("title")%>
原文内容:
<%=rs("body")%>
<%=rs("wm")%>发表于<%=rs("submit_date")%>
<%
sql="Selecttitle,body,wm,submit_dateFrombbsWhere"
sql=sql&"parent_id="&bbs_id
sql=sql+"OrderBysubmit_datedesc"
Setrs=db.Execute(sql)
DimI
I=0
DoWhileNotrs.Eof
I=I+1
%>
回复:<%=I%>
主题:
<%=rs("title")%>
内容:
<%=rs("body")%>
<%=rs("wm")%>发表于<%=rs("submit_date")%>
<%
rs.MoveNext
Loop
%>
点击次数页的程序如下:
<%Response.buffer=true%>
<%
dimdb
setdb=server.CreateObject("adodb.connection")
db.Open"driver={microsoftAccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
%>
<%
Dimbbs_id
bbs_id=Request("bbs_id")
sql="UpdatebbsSethits=hits+1Wherebbs_id="&bbs_id
db.Execute(sql)
db.Close
Response.Redirect"brows.asp?bbs_id="&bbs_id
%>
发表页的程序如下:
<%
dimdb
setdb=server.CreateObject("adodb.connection")
db.Open"driver={microsoftAccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
IfRequest("title")<>""AndRequest("wm")<>""Then
Dimtitle,body,layer,parent_id,child,hits,ip,user_name
title=Request.Form("title")
body=Request.Form("body")
wm=Request.Form("wm")
layer=1
parent_id=0
child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dimsql,svalues
sql="InsertInto
bbs(title,layer,parent_id,child,hits,ip,wm,submit_date"
svalues="Values('"&title&"',"&layer&","&parent_id&","&child&","&hits&",'"&ip&"','"&wm&"','"&date()
&"'"
Ifbody<>""Then
sql=sql&",body"
svalues=svalues&","&"'"&body&"'"
EndIf
sql=sql&")"&svalues&")"
db.Execute(sql)
db.Close
Response.Redirect"bbs.asp"
EndIf
%>
UntitledDocument
发表文章
主题:
内容:
>
姓名:
回复的程序如下:
<%
dimdb
setdb=server.CreateObject("adodb.connection")
db.Open"driver={microsoftAccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
%>
UntitledDocument
回复文章
[返回]
<%
Dimbbs_id,title
bbs_id=Request("bbs_id")
title=Request("title")
%>
主题:
">
内容:
>
姓名:
<%
IfRequest("title")<>""AndRequest("wm")<>""Then
Dimbody,layer,parent_id,child,hits,ip,user_name
title=Request.Form("title")
body=Request.Form("body")
wm=Request.Form("wm")
layer=2
parent_id=bbs_id
child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dimsql,svalues
sql="InsertIntobbs(title,layer,parent_id,child,hits,ip,wm,submit_date"
svalues="Values('"&title&"',"&layer&","&parent_id&","&child&","&hits&",'"&ip&"','"&wm&"','"&date()&"'"
Ifbody<>""Then
sql=sql&",body"
svalues=svalues&","&"'"&body&"'"
EndIf
sql=sql&")"&svalues&")"
db.Execute(sql)
sql="UpdatebbsSetchild=child+1Wherebbs_id="&bbs_id
db.Execute(sql)
db.Close
Response.Redirect"brows.asp?bbs_id="&bbs_id
EndIf
%>
5.2.4一些主要页面代码分析
我的档案
页面示图
用户登录进入首先看到的就是自己的基本信息
页面代码分析:
<%
dimyhmc,mm,yhid
yhmc=session("yhm")
mm=session("mm")
yhid=session("yhmc_id")
ifyhmc=""ormm=""then
response.redirect"../default.asp"
else
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
endif
%>
校友列表页面示图
可以通过链接进入同学录的校友信息页面
代码分析
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&
server.MapPath("../data/yhzc.mdb")
dimstrsql,rs
strsql="select*fromdaborderbydab_id"
setrs=db.execute(strsql)
%>
各系页面(页面最上面的导航这里以计算机系的页面为主讲解)
可以能过链接看同学录中的同学分别是哪个系的方便同学们相互查找
代码分析:
查找计算机系:
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&
server.MapPath(".../data/yhzc.mdb")
dimstrsql,rs
strsql="select*fromdabwherexx='jsj'"
setrs=db.execute(strsql)
%>
查找管理系
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
dimstrsql,rs
strsql="select*fromdabwherexx='gl'"
setrs=db.execute(strsql)
%>
查找经贸系
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
dimstrsql,rs
strsql="select*fromdabwherexx='jm'"
setrs=db.execute(strsql)
%>
查找文化传媒系
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
dimstrsql,rs
strsql="select*fromdabwherexx='whcm'"
setrs=db.execute(strsql)
%>
查找艺术系
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
dimstrsql,rs
strsql="select*fromdabwherexx='ys'"
setrs=db.execute(strsql)
%>
照片上传
页面示图
页面代码
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/yhzc.mdb")
Setrs=Server.CreateObject("ADODB.Recordset")
sql="select*fromdabwhereyhmc_id="&session("yhmc_id")
rs.opensql,db
%>
<%
dimdba
setdba=server.createobject("adodb.connection")
dba.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.MapPath(".../data/picture.mdb")
Setrs=Server.CreateObject("ADODB.Recordset")
sql="select*frompicturewhereyhmc_id="&session("yhmc_id")
rs.opensql,dba
%>
UntitledDocument
functionmysubmit(theform)
{
if(theform.big.value=="")
{
alert("请点击浏览按钮,选择您要上传的jpg或gif文件!")
theform.big.focus;
return(false);
}
else
{
str=theform.big.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg"&&extname!=".gif")
{
alert("请选择jpg或gif文件!");
return(false);
}
}
return(true);
}
5.3关键代码分析:
<%
dimdb
setdb=server.createobject("adodb.connection")
db.open"driver={microsoftaccessdriver(*.mdb)};
dbq="&server.MapPath(".../data/yhzc.mdb")
%>
该程序主要就是基于ODBC的连接,建立connection对象,利用server对象的creatobject方法与数据库连接.
5.4页面设计
页面主色为绿色,主要以链接为主.
5.5运行需求
在调试和运行过程中,应该能够让系统正常使用时不出错,若运行时遇到不可恢复的系统错误,也应该保证数据完好无损,对数据的精确度、时间特性、适应性等都有一定要求,要求系统运行时,能够保证数据的正确性、信息的可靠性、
实现的高效性、系统的易使用性、系统管理的可维护性、信息的可测试性、数据的复用性、数据库的安全保密性、数据的可移植性以及网络互联性。
5.6主题鲜明、富有特色
在目标明确的基础上,完成网站的构思创意即总体设计方案。对网站的整体风格和特色做出定位,规划网站的组织结构。
要做到主题鲜明突出,力求简洁,要点明确,以简单明确的语言和画面告诉大家
上一篇:Asp原创网上书店2(论文和程序)
下一篇:成本管理详细介绍