Asp鲜花网站设计文档
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
摘要：随着计算机及网络技术的飞速发展，Internet/Intranet应用在全球范围内日益普及，当今社会正快速向信息化社会前进，信息自动化的作用也越来越大。
从而使我们从繁杂的事务中解放出来，提高了我们的工作效率。
这里主要阐述一个功能比较强大的鲜花网站系统的前后台操作过程及一些关键技术。
该网站系统是前台应用photoshop8.0等软件，后台结合ASP编程技术、Microsoft office Access 2003、记事本等开发出来的。
关键词：鲜花网站;开发与设计;ASP
1、网页
静态网页是不包含程序代码的网页，它不会在服务器端执行。
静态网页内容经常以HTML 语言编写，在服务器端以.htm或是.html文件格式储存。
对于静态网页，服务器不执行任何程序就把HTML页面文件给客户端的浏览器直接进行解读工作，所以网页的内容不会因为执行程序而出现不同的内容。
动态网页是指网页内含有程序代码，并会被服务器执行的网页。
用户浏览动态网页须由服务器先执行网页的程序，再执行完的结果传送到用户浏览器中。
它们的区别在于动态网页会在服务器执行一些程序。
由于执行程序时的条件不同，所以执行的结果也可能会有所不同，最终用户看到的网页内容也将不同，所以称为动态网页。
使用动态网页可以达到下面一些效果：
●在网页中添加一个滚动显示的广告栏。
●从HTML的表单中接受信息且存到数据库中。
●根据不同访问者显示不同内容，创建个性化主页。
●在主页中添加计数器。
●根据用户浏览器的版本、类型和能力显示不同档次的内容。
●跟踪用户网站上的活动信息并且存入日志文件。
2、 ASP简介
ASP主要为HTML编写人员提供了在服务器端运行脚本的环境，使HTML编写人员可以利用VBScript和Jscript或其他第三方脚本语言来创建ASP，实现有动态内容的网页，如计数器。
其优点如下：
●ASP和现在普遍使用的Windows操作系统以及IE浏览器之间结合紧密。
●ASP所使用的VBScript脚本语言直接来源于VB语言，简单易学，并且其运行环境的
安装以及 ASP脚本的开发环境也很简单。
●目前ASP发展成熟，网上各种资源也很多，可以更方便地查找资料以及与他人交流。
2．1 ASP的运行环境
ASP是一种服务器端的脚本语言，它只能在服务器环境下才能正常运行。
而服务器环境配置要求也很简单，只须在Window NT、Window 2000 、Window XP及更高版本的操作系统上添加和安装IIS组件即可。
ASP对客户端没有任何特殊的要求，只要有一个普通的浏览器就行。
2．2 ASP的工作流程
当浏览请求打开一个ASP页面，Web服务器接收到请求后，按以下流程工作：
（1）
服务器 读取ASP 文件的内容，判断是否有ASP 服务器端的代码需要执行。
判断的方法有两种，一种是查看语句中的ASP 的特有〈% %〉脚本标记；一种是查看ASP 代码是否被指定要运行在服务器端，如〈script runat=“server ” 〉。
（2） 假如有要运行的ASP 代码，服务器会将这些代码挑出来逐行进行解释。
假如没有
要运行的ASP 代码，它仅是简单地通知IIS 这种情况。
（3） 服务器在解释运行脚本后，将脚本的执行结果与静态HTML 代码进行合并，形成
一个最终的网页页面。
（4） 服务器把网页发送给客户端浏览器。
3、配置ASP 运行环境
进行ASP 网页开发之前，必须配置解释ASP 脚本所需的软件环境，这里以Windows XP 操作系统自带的IIS 为例，来讲述其安装和配置方法。
在安装Windows XP 操作系统的时候，IIS 并没有被默认安装，用户可以通过“Windows 组件向导”进行安装。
打开【控制面板】，找到 【添加/删除程序】→【添加/删除WINDOWS 组件】，弹出 【Windows 组件向导】 ，选择 【Internet 信息服务(IIS)】，插入安装盘，按【下一 步】开始安装。
如左图所示：
安装成功后，就可以按照自己的要求配置IIS 了。
IIS 在我们使用的过程中充当着一个虚拟的角色。
也就是我们是“假装的”把本机磁盘空间的一部分空间划归为“服务器”(实际上我们访问的网站是存储在专门的网络服务器上的)。
既然要访问“服务器”上的内容(虽然它存在本机上)，那么也要通过类似于访问网站的模式去访问。
IIS 的默认目录安装在 系统
IIS
VBScript JScript
ADO
浏览器
HTTP 请求
HTTP 响应
Web 服务器
Active X 脚本引擎
ASP 文件
数据库
盘:\Inetpub\wwwroot里，也就是说上面的虚拟目录http://localhost 或http://127.0.0.1其实是执行您机器上物理路径为系统盘:\Inetpub\wwwroot上的内容，如果在wwwroot里有一个 b.asp文件，同样可以通过http://localhost/b.asp 或
http://127.0.0.1/
b.asp 来访问。
同时，wwwroot
的默认目录也是可
以更改的。
进入【控
制面板】→【管理工
具】→【Internet 服
务管理器】，双击它，
会出现【Internet
信息服务器】的主界
面，在窗体里找到
【计算机名】，展开
后会出现：【默认
FTP 站点】、【默认
Web 站点】、以及【默
认SMTP 虚拟服务
器】。
在【默认 Web
站点】上单击右键，
选择【属性】，就可以进行IIS的诸多配置了。
特别提示：在这里，我们着重的介绍几个比较重要的配置：
1.【属性】→【主目录】，可以修改默认的虚拟路径以及ASP文件的执行权限(除虚拟目录需要更改外，其他一般以默认设置为宜)。
2.【属性】→【文档】，默
认文档的意思就是：如果你只
填加index.asp在一个虚拟目
录(假如就是wwwroot里)为默
认文档。
那么当你在浏览器中
输入http://localhost 或者
http://127.0.0.1 的时候默
认访问的文件就是index.asp，
就像你访问
的时
候，其实是访问中
的一个索引文件(比如
default.asp或者index.asp
等等)。
配置完成。
如果我的计算
机在局域网内，其他计算机就
可以访问我的网站，只要输入
http://我的机器名，如果我连
上了Internet，别人只要输入
我的IP地址就可以了。
4、界面设计
4.1 主页
<%
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.Mappath("xianhua.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%> //数据 库连接
<html>
<head><title>花的海洋</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<center>
<img src="wa.bmp" width="700">
</center>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#cae2f8" class="mb4">
<tr>
<td height="26" align="center" bgcolor="#EFF7FE" class="c00007f">| <a style="text-decoration:none"><font size=2>首页</a> | <a href="tupian.asp" style="text-decoration:none"><font size=2>图片欣赏</a> | <a href="zhishi.asp"
style="text-decoration:none"><font size=2>花的含义</a> | <a href="changshi.asp" style="text-decoration:none"><font size=2>送花常识</a> | <a href="pinglun.asp" style="text-decoration:none"><font size=2>经典评论</a> |</td> </tr>
<tr>
<td bgcolor="#EFF7FE"><font size=2>欢迎你，<%=session("username")%>
</td>
<td bgcolor="#EFF7FE"><font size=2><a href="zhuxiao.asp" style="text-decoration:none">注销</a></font>
<%
do while not rs.Eof
%>
<tr>
<td><a href="mian.asp?<%="id=" & rs("id").Value %>" style="text-decoration:none"><font size=2><%=rs("xianhuaming")%></td> <td><a href="mian1.asp?<%="id=" & rs("id").Value %>" style="text-decoration:none"><font size=2><%=rs("xianhuaming1")%></td> <td><a href="mian2.asp?<%="id=" & rs("id").Value %>" style="text-decoration:none"><font size=2><%=rs("xianhuaming2")%></td> <td><a href="mian3.asp?<%="id=" & rs("id").Value %>" style="text-decoration:none"><font size=2><%=rs("xianhuaming3")%></td> </tr>
<%
rs.MoveNext
loop
%> //调用数据库内的内容
4.2 注册
<html>
<head><title></title>
</head>
<body Bgcolor="GhostWhite">
<center>
<h1><font color="red">注册:请如实填写!</font></h1>
<table align="center" border=0>
<form name="form1" method="post" action="zhuceOk.asp">
<tr><td>
用户名：</td><td><input name="yhm" type="text" size="20">填写真实姓名!</TD>
<P></td></tr><tr><td>
密码：</td><td><input name="mm" type="password" size="20"></TD>
<P></td></tr><tr><td>
重复密码：</td><td><input name="mmqr" type="password" size="20"></TD> <P></td></tr><tr><td>
密码提示：</td><td><input name="mmts" type="text" size="20">密码可使用长度为6-14的任何字符</TD>
<P></td></tr><tr><td>
出生日期：</td><td><input name="cs" type="text" size="20"></TD>
<P></td></tr><tr><td>
姓名：</td><td><input name="xm" type="text" size="20"></TD>
<P></td></tr><tr><td>
性别：</td><td><input name="xb" type="text" size="20"></TD>
<P></td></tr><tr><td>
所在地：</td><td><input name="sf" type="text" size="20"></TD>
<P></td></tr><tr><td>
职业：</td><td><input name="hy" type="text" size="20"></TD>
<P></td></tr>
</table>
<input type="Submit" name="Button1" value="提交">
<input type="reset" name="Button2" value="取消">
</form>
</center>
</body>
</html>
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.Mappath("xianhua.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>
<html>
<head><title></title></head>
<body Bgcolor="GhostWhite"><center>
<%
dim yhm,mm,mmqr,mmts,cs,xm,xb,sf,hy
yhm=Request.form("yhm")
mm=Request.form("mm")
mmqr=Request.form("mmqr")
mmts=Request.form("mmts")
cs=Request.form("cs")
xm=Request.form("xm")
xb=Request.form("xb")
sf=Request.form("sf")
hy=Request.form("hy")
%>
<%
if yhm="" then
response.write "用户名不能为空<p></p>" %>
<a href=javascript:history.back()>上一页</a> <%
response.end
end if
if mm="" then
response.write "密码不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a> <%
response.end
end if
if mmqr="" then
response.write "密码不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a> <%
response.end
end if
if mmts="" then
response.write "不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a> <%
response.end
end if
if cs="" then
response.write "不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a> <%
response.end
end if
if xm="" then
response.write "姓名不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a>
<%
response.end
end if
if xb="" then
response.write "性别不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a>
<%
response.end
end if
if sf="" then
response.write "不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a>
<%
response.end
end if
if hy="" then
response.write "不能为空<p></p>"
%>
<a href=javascript:history.back()>上一页</a>
<%
else
response.write("恭喜您！注册成功！！请返回登陆")
%>
<P><a href="shouye.asp">返回</a></font>
<%
end if
%>
<%
dim strsql,rs
strsql="insert into user1(yhm,mm,mmqr,mmts,cs,xm,xb,sf,hy) Values('"&yhm&"','"&mm&"','"&mmqr&"','"&mmts&"','"&cs&"','"&xm&"','"&xb&"','"&sf &"','"&hy&"')"
set rs=conn.execute(strsql)
%>
</body>
</html>
4.3 商业鲜花购买的过程
4.3.1 生成订单
<html>
<head>
<title></title>
<style type="text/css">
<!--
body,td,th {font-family: 宋体, Arial;font-size: 12px;}
a {font-size: 12px;}
a:link {text-decoration: none;}
a:visited {text-decoration: none;}
a:hover {text-decoration: none;}
a:active {text-decoration: none;}
-->
</style>
</head>
<body>
<center>
</table>
<table border="1" width="700" bgcolor="#EFF7FE">
<tr>
<%
if session("username")<>"" then%>
<font size=2>
欢迎你，<%=session("username")%></font>
<font size=2><a href="zhuxiao.asp" style="text-decoration:none">注销</a></font>
<%
else
%>
<form name="Button1" method="post" action="dengluOk.asp">
<td bgcolor="#EFF7FE"><font size=2>请输入用户名：</font>
<input name="name" type="text" size="10" >
<font size=2>请输入密码：</font>
<input name="key" type="password" size="10">
<input type="Submit" name="Button1" value="登陆">
<input type="reset" value="取消">
<a href="zhuce.asp" style="text-decoration:none"><font size=2>注册</font></a>
</td></form>
<%end if%>
</td>
<td rowspan="2" valign="top">
<%
if session("username")="" then
response.write "<center><br><p>你还未登录，请先登录！</center>"
else
Dim bh
bh = "1"
If (Request.QueryString("id") <> "") Then
bh = Request.QueryString("id")
End If
sql="select * from xianhua2 where id="&bh
set rs=conn.execute(sql)
%>
<center><br><p>生成订单<p><hr width="700">
<p><form action="goumaiok.asp" method="post">
<table>
<tr><td>鲜花名称：</td><td><%=rs("mc")%></td></tr>
<tr><td>鲜花类别：</td><td><%=rs("lb")%></td></tr>
<tr><td>花语：</td><td><%=rs("hy")%></td></tr>
<tr><td>价格：</td><td><%=rs("jg")%></td></tr>
</table>
<input type="hidden" name="id" value="<%=rs("id")%>"><input type="hidden" name="cl" value="<%=rs("cl")%>">
<br><p align="center"><input type="submit" value="将商品放入购物车"> <a href="shouyelogin.asp">重新生成</a> </form>
</center>
<%end if%>
</td>
</tr>
</table>
</center>
</body>
</html>
4.3.2 成功放入购物车
<td rowspan="2" valign="top">
<%
dim strsql,rs,strsql1
bh=request.form("id")
strsql="select * from xianhua2 where id="&bh
set rs=conn.execute(strsql)
strsql1="insert into gouwuche(yhm,mc,lb,hy,jg) values('"&session("username")&"','"&rs("mc")&"','"&rs("lb")&"','"&rs("hy")&"','" &rs("jg")&"')"
conn.execute(strsql1)
response.write "<center><br><p>你已成功将所选商品放入购物车！</center>"%>
<br><p align="center"><a href="gouwuche.asp">查看我的购物车</a> <a href=shouyelogin.asp>继续去购物</a>
</td>
4.3.3 确定购买
<%
Dim bh
sql="select * from gouwuche where yhm='"&session("username")&"'" set rs=conn.execute(sql)
%>
<center><br><p>我的购物车<p><hr width="700">
<p><form action="goumaichenggong.asp" method="post">
<table border="1" width="600">
<tr><td>鲜花名称</td><td>鲜花类别</td><td>花语</td><td>价格</td></tr>
<%do while not rs.eof%>
<tr><td><%=rs("mc")%></td><td><%=rs("lb")%></td>
<td><%=rs("hy")%></td><td><input type=text size=15 name="count" value=<%=rs("jg")%> readonly></td>
</tr>
<input type=hidden name="cdid" value=<%=rs("mc")%>>
<%rs.movenext
loop%>
</table>
<br><p align="center"><input type="submit" value="确定购买并清除购物车">
</form>
</center>
</td>
5、总结与展望
毕业设计即将结束,回顾这半年来的辛勤工作,总结如下:
毕业设计是我在大学学习阶段的最后一个环节，是对所学基础知识和专业知识的一种综合应用，是一种综合的再学习、再提高的过程，这一过程有助于培养我的学习能力和独立工作能力。
我选择这个题目，就是想在大学这个最后的、最重要的时间里，能够给自己压力来自学网站开发与设计，这是我的第一个网站作品，因此很认真。
在设计的过程中存在许多问题，但通过自己不断的查阅书籍，最后所有困难都迎刃而解。
这对于培养我的自学能力和独立工作能力是非常有帮助的。
前景展望：
通过本次毕业设计，我感到自己应用基础知识及专业知识解决问题的能力有了很大的提高，但在实际工作中，我会有许多不会的东西。
我想，通过这次毕业设计，到了工作单位后，我将能够更快的适应工作岗位和工作要求。
我对自己充满信心。
总之，这次毕业设计对我而言是受益匪浅的。
6、参考资料：
1．鲜花图片及资料来源：
2．《ASP动态网站开发教程》(第二版) 清华大学出版社
3．《2.0网络应用系统开发》人民邮电出版社
4.《Access数据库应用实例完全解析》人民邮电出版社。