摘 要
随着计算机及网络技术的飞速发展，Internet/Intranet应用在全球范围内日益普及，当今社会正快速向信息化社会前进，信息自动化的作用也越来越大。
从而使我们从繁杂的事务中解放出来，提高了我们的工作效率。
本论文主要阐述一个功能比较强大的企业网站系统的后台操作过程及一些关键技术。该系统信息来源主要由用户直接添加，通过管理员审核后,在网站上发布出来,以供大家查询相关公司信息。本系统主要让社会各界能更好的了解本本企业，欢迎对本企业的发展提出更多宝贵留言。该企业网站系统是前台应用Dreamweaver MX 2004、FireworksMX2004、Flash MX 2004等软件，后台结合ASP编程技术和Access数据库技术开发出来的。
关键词：用户管理；信息发布；ASP；企业网站
Abstract
With the rapid development of computer and network technology rapid development, Internet/The Intranet application popularizes day by day in the global scope, now the society fast to the becoming an information based society advance, the information automation function also more and more is big. Thus causes us to liberate from the numerous and diverse business, enhanced our working efficiency.
The present paper mainly elaborates a function quite formidable enterprise website system backstage operating process and some essential technologies. This system information originates mainly directly increases by the user, verifies after the manager,issues in the website ,by for everybody inquiry related company information. This system mainly enables the society from all walks of life the better understanding notebook enterprise, welcome to propose more precious messages to this enterprise's development.
This enterprise website system is the onstage applies software Dreamweaver MX 2004, Fireworks MX2004, Flash MX 2004, and so on, the backstage unifies of the ASP programming technology and the Access database technologydevelopment.
Key word: user management; information issued; ASP; enterprise website
第1章 概 论 1
1.1 简介 1
1.2 开发环境 2
第2章 系统分析 4
2.1 网站的可行性分析 4
2.2 网站的需求分析 4
第3章 系统设计 6
3.1 登录 7
3.1.1 后台管理登录界面 7
3.1.2 左子树目录 12
3.2 系统管理 12
3.2.1 管理员管理 12
3.2.2 网站配置 14
3.3 产品管理 16
3.3.1 产品类别设置 16
3.3.2 产品管理 17
3.4 订单管理 20
3.4.1 订单管理 20
3.4.2 支付管理 22
3.5 会员管理 24
3.6 新闻管理 25
3.6.1 管理全部新闻 26
3.6.2 管理新闻类别 28
3.7 留言管理 30
3.7.1 留言管理 31
3.7.2 管理员公告 32
3.8 调查管理 33
3.8.1 调查设置 33
3.8.2 添加新调查 35
总 结 37
致 谢 38
参考文献 39
摘 要 3
第一章 概 论 4
1.1简介 4
1.2 软件配置 5
第二章 系统分析 8
2.1 网站的需求分析 8
2.2 网站的可行性分析 8
第三章 系统设计 10
3.1.1后台管理登录界面 10
3.1.2左子树目录 19
3.2系统管理 20
3.2.1管理员管理 20
3.2.2 网站配置 22
3.3产品管理 23
3.3.1产品类别设置 23
3.3.2 产品管理 25
3.4订单管理 28
3.4.1订单管理 28
3.4.2 支付管理 30
3.5会员管理 32
3.6新闻管理 34
3.6.1管理全部新闻 34
3.6.2管理新闻类别 36
3.7留言管理 39
3.7.1留言管理 39
3.7.2管理员公告 40
3.8调查管理 41
3.8.1调查设置 41
3.8.2添加新调查 43
总 结 45
致 谢 46
参考文献 47
第1章 概 论
1.1 简介
目前，中国企业信息化意识明显提高，信息化进程正在加快，企业信息化工作在提高生产率和企业竞争力方面正在形成巨大的潜力。但在总体水平提高的同时，仍与全球领先水平有较明显的差距；从成功实施信息化的四大影响因素（即领导力、管理机制、执行能力和IT平台）方面分析，中国企业均存在不同程度的问题和差距；从管理角度看，还面临许多事关信息化成败的关键性挑战。下面的数据能一定程度上反映出问题来，中国企业与全球500强企业之间在信息化方面还存在多方面的差距：全球最佳实践企业的信息化程度（网络就绪水平）比国内企业高出38%。
网站建设是企业信息化建设和管理的重要手段之一。
一个企业通过网站可以实现以下几个方面：
品牌形象创建。网站的形象代表着企业的网上品牌形象，人们在网上了解一个企业的主要方式就是访问该公司的网站，网站建设的专业化与否直接影响企业的网络品牌形象，同时也对网站的其他功能产生直接影响。
产品/服务展示。顾客访问网站的主要目的是为了对公司的产品和服务进行深入的了解，企业网站的主要价值也就在于灵活地向用户展示产品说明及图片甚至多媒体信息，即使一个功能简单的网站至少也相当于一本可以随时更新的产品宣传资料。
信息发布。网站是一个 信息载体，在法律许可的范围内，可以发布一切有利于企业形象、顾客服务以及促进销售的企业新闻、产品信息、各种促销信息、招标信息、合作信息、人员招聘信息等等。因此，拥有一个网站就相当于拥有一个强有力的宣传工具。
网上调查。通过网站上的在线调查表，可以获得用户的反馈信息，用于产品调查、消费者行为调查、品牌形象调查等，是获得第一手市场资料有效的调查工具。
网上联盟。为了获得更好的网上推广效果，需要与供应商、经销商、客户网站、以及其他内容互补或者相关的企业建立合作关系，没有网站，合作就无从谈起。
网上销售。建立网站及开展网络营销活动的目的之一是为了增加销售，一个功能完善的网站本身就可以完成订单确认、网上支付等电子商务功能，即网站本身就是一个销售渠道。
根据企业的需要，我们将设立前台管理系统（信息发布系统、客户调查系统、产品展示系统、网上订货系统）和后台管理系统。
信息发布系统里面涉及一切需要发布的信息，包括信息存储和更新（旧信息的修改和新信息的添加）。
客户调查系统是管理客户对本企业的产品的需求、相应的意见反馈。
产品展示系统则负责展示本企业的所有产品。
网上订货系统就是在网上给客户提供订货和相应支付方式。
该企业网站管理系统基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。后台管理系统采用Access数据库技术。前台管理系统和后台管理系统的协调一致。
后台主要功能：
系统管理、产品管理、订单管理、会员管理、新闻管理、留言管理、调查管理。
前台网页所实现的主要功能模块是新闻资讯、产品展示、营销网络、客户服务。
新闻资讯包括企业新闻和业内资讯；产品展示包括产品展示、产品分类和产品搜索；营销网络包括国内市场和国外市场；客户服务包括会员中心、信息反馈、留言中心、订单查询。
1.2 开发环境
Windows XP
Photoshop
Micromedia Dreamweaver MX 2004
FLASH MX 2004
Microsoft Office 2003
IIS 5.0
目前开发网站的技术主要有ASP、ASP.NET、JAVA等。
ASP是Microsoft提出的一个概念。所谓ASP是指在Windows系统中运行的Web Server所能利用的Server端的Script环境，通常以DLL(asp.dll)的形式表示。
ASP(Active Server Pages)从字面上看包含三方面含义：
（1）Active：ASP使用Microsoft的ActiveX技术。
（2）Server：ASP运行在服务器端。
（3）Page：ASP返回标准的HTML页面，可以正常地在常用的浏览器中显示。
ASP.NET是新一代的网页开发技术,不但能提供更高的效率,而且功能强大兼容性高,操作简单容易使用,安全性高,更可自行开发且延伸性高。
Java是Sun Microsystem公司研制的一种新型的程序设计语言。在高级语言已经非常丰富的背景下，它脱颖而出，不仅成为一门最为流行的计算机语言，而且形成一种专门的技术，有其独特的历史背景和独树一帜的品质。
我的网站拟采用ASP技术。
ASP是目前最流行的Web应用程序开发工具之一。它功能强大并简单易学，利用ASP不仅可以快速创建交互的动态网页，而且程序代码完全保密，更重要的是它不用考虑客户端使用何种浏览器。
Access2003 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
网页（WebPage）文件主要是用超文本标记语言（HyperText Markup Language，简称HTML）语句来写成。您可以通过IE浏览器的“查看”菜单中的“源文件”看到该页的HTML代码。HTML语言由一系列元素(element)组成，用于组织文件的内容和指导文件的输出格式。元素名称不分大小写。一个元素可以有多个属性，属性及其属性值不分大小写。属性名＝属性值合起来构成一个完整的属性，一个元素可以有多个属性，各个属性用空格分开。元素又由标记(tag)的构成，大多数标记是成对出现的，分起始标记< >(start tag)和结尾标记</ >(end tag)，以便和页面的内容区分开来。其写成的文件是标准的ASCII文件，不同于一般的编程语言，故称为脚本（Script）更准确一点。其实也很简单，特别是在专门的HTML编辑器的帮助下，您可以迅速地学会HTML，并能很快写出有自己特色的Homepage来。
HTML的基本结构:
超文本文档分文档头和文档体两部分，在文档头里，对这个文档进行了一些必要的定义，文档体中才是要显示的各种文档信息。
<HTML>
<HEAD>头 部 信 息
</HEAD>
<BODY>
文 档 主 体， 正 文 部 分
</BODY>
</HTML>
其中<HTML>在最外层， 表示这对标记间的内容是HTML文 档。我们还会看到一些Hompage省略<HTML>标记，因为.html 或.htm 文件被Web浏览器默认为是HTML文档。<HEAD> 之间包括文档的头部信息，如文档总标题等，若不需头部信息则可省略此标记。<BODY> 标记一般不省略， 表示正文内容的开始。
第2章 系统分析
2.1 网站的可行性分析
随着计算机技术的发展和网络人口的增加，网络世界也越来越广博，越来越丰富，电子商务已经成为网上的一股潮流。我们相信要不了太长有时间，顾客就可以在网络世界上获得他们在现实世界上可以获得的所有商品和服务。
可行性研究是为了弄清楚系统开发的项目是不是可以实现和值得进行研究的过程，实际上是一次大大简化系统分析和系统设计的过程，所以，进行可执行性的分析是非常必要的，也是很重要的，经过最初的设计目标和进行的市场调查得出以下四点的可行性分析：
1、经济可行性：即实现这个平台设计有没有什么经济效益？该平台设计只是作为本人的毕业设计，又因为本人的设计能力有限，其功能还不够完善，所以没有什么经济效益可谈。
技术可行性：即现有的技术能否开发该平台，会有哪些困难。运用ASP编程和Access数据库技术，这点当然可以做到。
操作可行性：即该平台规定的运行方式是否可行。有Windows XP、Microsoft IIS和Internet Explorer就能实现它。
法律可行性：即该平台的开发会不会在社会上引起侵权或其它责任问题。因为该平台是作为毕业设计与商业无关，又因为是自主开发设计，因此不会构成侵权，在法律上是可行的。
通过以上的可行性分析，我将采用Microsoft IIS+ASP结合的技术，运用Access数据库对网站进行建设。
2.21 网站的需求分析
系统分析即需求分析，是平台开发的一个不可缺少的环节，为了能够使本系统更好、更完善地被设计出来，就必须先进行调查研究。在系统调查的基础上，对新系统的功能进行细致的分析，从而才能够开发出完整的系统设计。
需求分析阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求。系统分析员通常都是计算机软件专家，技术专家一般不喜欢着手搞具体设计，然而，一旦分析员开始谈论程序设计的细节时，就会脱离用户，使他们不能继续提出他们的要求和建议。软件工程使用的结构分析设计的方法为每个阶段都规定了特定的结束标准，需求分析阶段必须提出完整的准确的系统逻辑模型，经过用户确认之后才能进入下一阶段。
需求分析是软件生命周期的一个重要阶段，它根本的任务是确定为了满足用户的需要必须做什么。具体地说，应该确定系统必须具有的功能和性能，系统要求的运行环境，并且预测系统发展的前景，必须仔细分析系统中的数据，既要分析系统中的数据流。又要分析长期使用的数据存储，通过分析应该得出用数据流图、数据字典，为系统的设计奠定基础。根据企业的需要，我们将设立前台管理系统（信息发布系统、客户调查系统、产品展示系统、网上订货系统）和后台管理系统。
信息发布系统里面涉及一切需要发布的信息，包括信息存储和更新（旧信息的修改和新信息的添加）。
客户调查系统是管理客户对本企业的产品的需求、相应的意见反馈。
产品展示系统则负责展示本企业的所有产品。
网上订货系统就是在网上给客户提供订货和相应支付方式。
该企业网站管理系统基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。后台管理系统采用Access数据库技术。前台管理系统和后台管理系统的协调一致。
后台主要功能：
系统管理、产品管理、订单管理、会员管理、新闻管理、留言管理、调查管理。
前台网页所实现的主要功能模块是新闻资讯、产品展示、营销网络、客户服务。
新闻资讯包括企业新闻和业内资讯；产品展示包括产品展示、产品分类和产品搜索；营销网络包括国内市场和国外市场；客户服务包括会员中心、信息反馈、留言中心、订单查询。
2.2 网站的可行性分析
随着计算机技术的发展和网络人口的增加，网络世界也越来越广博，越来越丰富，电子商务已经成为网上的一股潮流。我们相信要不了太长有时间，顾客就可以在网络世界上获得他们在现实世界上可以获得的所有商品和服务。
可行性研究是为了弄清楚系统开发的项目是不是可以实现和值得进行研究的过程，实际上是一次大大简化系统分析和系统设计的过程，所以，进行可执行性的分析是非常必要的，也是很重要的，经过最初的设计目标和进行的市场调查得出以下四点的可行性分析：
1、经济可行性：即实现这个平台设计有没有什么经济效益？该平台设计只是作为本人的毕业设计，又因为本人的设计能力有限，其功能还不能完善，所以没有什么经济效益可谈。
技术可行性：即现有的技术能否开发该平台，会有哪些困难。
运行可行性：即该平台规定的运行方式是否可行。
法律可行性：即该平台的开发会不会在社会上引起侵权或其它责任问题。因为该平台是作为毕业设计与商业无关，又因为是自主开发设计，因此不会构成侵权，在法律上是可行的。
通过以上的可行性分析，我将采用Microsoft IIS+ASP将结合的技术，运用Access数据库对网站进行建设。
第3章 系统设计
后台管理系统结构：
后台管理示意流程图：
3.1 登录
3.1.1 后台管理登录界面
进入后台管理(管理员)登录界面即Login.asp,里面的验证码调用checkcode.asp。
图3.1
Login.asp:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/southidc.css">
<script language=javascript>
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
</script>
checkcode.asp：
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("CheckCode") = zNum
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
Dim Pos
Set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
Set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("../image/body.Fix"))
Ados1.write Ados.read(1280)
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("../image/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1
For j=0 To 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
If Err Then Session("CheckCode") = 9999
End Function
%>
能否进入后台管理系统，调用Admin_ChkLogin.asp,其中又用到Conn.asp（连接数据库）,Config.asp（配置）,md5.asp（加密算法）。
Admin_ChkLogin.asp:
<%
dim sql,rs
dim username,password,CheckCode
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
CheckCode=replace(trim(Request("CheckCode")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空！
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空！
end if
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>验证码不能为空！
end if
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & "<br>
你登录时间过长，请重新返回登录页面进行登录。
end if
if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致，请重新输入。
end if
if FoundErr<>True then
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from Admin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！ else
if password<>rs("password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！ else
RndPassword=GetRndPassword(16)
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs("RndPassword")=RndPassword
rs.update
session.Timeout=SessionTimeout
session("AdminName")=rs("username")
session("AdminPassword")=rs("Password")
session("RndPassword")=RndPassword
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "default.asp"
end if
end if
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub WriteErrMsg()
dim strErr
strErr=strErr & "
response.write strErr
end sub
Function GetRndPassword(PasswordLen)
Dim Ran,i,strPassword
strPassword=""
For i=1 To PasswordLen
Randomize
Ran = CInt(Rnd * 2)
Randomize
If Ran = 0 Then
Ran = CInt(Rnd * 25) + 97
strPassword =strPassword & UCase(Chr(Ran))
ElseIf Ran = 1 Then
Ran = CInt(Rnd * 9)
strPassword = strPassword & Ran
ElseIf Ran = 2 Then
Ran = CInt(Rnd * 25) + 97
strPassword =strPassword & Chr(Ran)
End If
Next
GetRndPassword=strPassword
End Function
%>
Conn.asp:
<%
dim conn dim connstr dim db
db="../Databases/myszw.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>
config.asp:
<%
Const SiteName="浙西网域公司企业网站" '网站名称
Const SiteTitle="浙西网域公司企业网站" '网站标题
Const SiteUrl="http://www.zxwu.cn/gsqy/" '网站地址
Const EnterpriseMail="http://mail.163.com" '企业邮局
Const LogoUrl="images/logo.gif" 'Logo地址
Const BannerUrl="Img/myszw.swf" 'Banner地址
Const High=100 '高度
Const WebmasterName="ykb" '站长姓名
Const WebmasterEmail="ykb@163.com" '站长信箱
Const Copyright="版权所有 浙西网域公司企业网站<br>销售热线:0570-8027101，13117101402,13710829762 在线客服QQ:38306293,417586492" '版权信息
Const MaxPerPage_Default=10 '首页每页产品或文章数
Const MaxPerPage_Search=10 '文章搜索页每页文章数
Const ShowContentByPage="Yes" '文章内容是否分页显示
Const MaxPerPage_Content=200000 '每页显示大约字符数
Const EnableArticleCheck="Yes" '是否启用文章审核功能
Const HitsOfHot=50 '热门文章点击数
%>
Default.asp：
<%
if session("AdminName") = "" then
response.Redirect "Login.asp"
end if
%>
<style type="text/css">
.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}
.a2{BACKGROUND-COLOR: A4B6D7;}
</style>
<%
select case Request("menu")
case ""
main
case "top"
top
end select
%>
<% sub top %>
<% sub main %>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
</body>
<%
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
左子树目录调用LeftTree.asp,右边显示“系统信息”（Sysadmin_view.asp）,它用到Conn.asp和Admin.asp。
图3.2
图3.3
Sysadmin_view.asp：
<%
set rs = Server.CreateObject("ADODB.Recordset")
sqltext="select * from Admin where username='"+Session("AdminName")+"'"
rs.Open sqltext,conn,1,1
if not rs.EOF then
LoginTimes=rs("LoginTimes")
LastLoginTime=rs("LastLoginTime")
idcount=rs(0)
end if
rs.Close
%>
Admin.asp：
<%
dim ComeUrl,cUrl,AdminName
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
response.end
end if
end if
AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "login.asp"
response.End()
end if
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
response.Redirect("login.asp")
response.End()
end if
%>
3.1.2 左子树目录
左子树目录包括：
回到首页(index.asp)、退出(Loginout.asp)、系统管理、产品管理、订单管理、会员管理、新闻管理、留言管理、调查管理。系统管理分为管理员管理（Manage_Admin.asp）、网站配置（SiteConfig.asp）；产品管理分为产品类别设置（ClassManage.asp）、产品管理（ProductManage.asp）；订单管理分为订单管理（Manage_Eshop.asp）、支付管理（Manage_pay.asp）；会员管理就注册会员管理（UserManage.asp）；新闻管理分为管理全部新闻（News_Manage.asp）、管理新闻类别（News_ClassManage.asp）；留言管理分为留言管理（Manage_Book.asp）、管理员公告（Manage_AddBook.asp）；调查管理分为调查设置（VoteManage.asp）和添加新调查（VoteAdd.asp）。
Loginout.asp:
<%
session("AdminName")=""
Response.Redirect "Login.asp"
%>
3.2 系统管理
3.2.1 管理员管理
即Manage_Admin.asp，它前与Conn.asp和Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联。进行数据库连接，用到表Admin。
“添加管理员账号”即addmanagerok.asp，与Conn.asp和Admin.asp、 inc/md5.asp关联。连接到数据库，在myszw 数据库的表Admin中添加记录,表Admin如下：
表3.1 Admin
字段名称
数据类型
说明
UserID（key）
数字
用户编号
UserName
文本
用户名
Password
文本
用户密码
LastLoginIp
文本
最后登录IP
LastLoginTime
日期/时间
最后登录时间
LoginTimes
数字
登录次数
Password 是经过md5加密算法加密的。
“操作”的ASP代码即“管理员密码修改”用到Manage_Main3edit.asp，前与Conn.asp、Admin.asp、Inc/Head.asp 关联，后与Inc/Foot.asp关联，用到表Admin 。“删除”即Delmanager.asp，Conn.asp和Admin.asp关联，则与“添加”相反，即从表Admin中删除记录。
图3.4
Manage_Admin.asp:
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from admin"
rs.open sqltext,conn,1,1
%>
<script language="javascript">
function confirmdel(id){
if (confirm("真的要删除此管理员帐号?"))
window.location.href="Delmanager.asp?id="+id+" " }
</script>
<SCRIPT language=javascript id=clientEventHandlersJS>
function form1_onsubmit()
{
if (document.FORM1.pwd1.value!=document.FORM1.pwd2.value)
{
alert ("请确认您的密码。");
document.FORM1.pwd1.value='';
document.FORM1.pwd2.value='';
document.FORM1.pwd1.focus();
return false;
}
}
</SCRIPT>
3.2.2 网站配置
即SiteConfig.asp,它与Conn.asp、Admin.asp、../Inc/config.asp、Inc/function.asp关联。
分为网站信息配置和网站选项配置。
网站信息配置有网站名称、网站标题、LOGO地址、首页Banner地址、站长姓名、站长信箱、版权信息。
网站选项配置有首页每页产品或文章数、产品搜索页每页文章数、产品内容是否分页显示、每页显示大约字符数、是否启用文章审核功能、热门文章点击数。
图3.5
3.3 产品管理
3.3.1 产品类别设置
即ClassManage.asp，它也前与Conn.asp和Admin.asp关联，后与Inc/Foot.asp关联。涉及数据库，用到表BigClass和SmallClass。“添加产品大类”与ClassAddBig.asp 链接，“添加子栏目”即添加小类与ClassAddSmall.asp链接，“修改”（大类）与ClassModifyBig.asp链接，“删除”（大类）与ClassDelBig.asp链接，“修改”（小类）与ClassModifySmall.asp链接，“删除”（小类）与ClassDelSmall.asp链接。
表3.2 BigClass
字段名称
数据类型
说明
BigClassID（key）
数字
大类编号
BigClassName
文本
大类名
表3.3 SmallClass
字段名称
数据类型
说明
SmallClassID (key)
数字
小类ID
SmallClassName
文本
小类名称
BigClassName
文本
所属大类名称
图3.6
ClassManage.asp:
<%
dim sql,rsBigClass,rsSmallClass,ErrMsg
set rsBigClass=server.CreateObject("adodb.recordset")
rsBigClass.open "Select * From BigClass",conn,1,3
%>
function checkBig()
{
if (document.form1.BigClassName.value=="")
{
alert("大类名称不能为空！");
document.form1.BigClassName.focus();
return false;
}
}
function checkSmall()
{
if (document.form2.BigClassName.value=="")
{
alert("请先添加大类名称！");
document.form1.BigClassName.focus();
return false;
}
if (document.form2.SmallClassName.value=="")
{
alert("小类名称不能为空！");
document.form2.SmallClassName.focus();
return false;
}
}
function ConfirmDelBig()
{
if(confirm("确定要删除此大类吗？删除此大类同时将删除所包含的小类，并且不能恢复！"))
return true;
else
return false;
}
function ConfirmDelSmall()
{
if(confirm("确定要删除此小类吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
%>
3.3.2 产品管理
ProductManage.asp,它前与Conn.asp、 Admin.asp、../Inc/Ubbcode.asp、Inc/Function.asp、Inc/Head.asp，后与Inc/Foot.asp关联。涉及Product、BigClass、SmallClass这三个表。表BigClass和SmallClass已在上面列出，表Product如下：
表3.4 Product
字段名称
数据类型
说明
ProductID (key)
数字
产品编号
ProductNum
文本
产品号码
BigClassName
文本
所属大类名称
SmallClassName
文本
所属小类名称
SpecialName
数字
所属专题名称
Title
文本
产品名称
Spec
文本
规格
Buy_Price
数字
产品进价
Product_Gain
数字
产品利润
Price
数字
产品售价
Unit
文本
单位
Memo
文本
备注
key
文本
关键字
Hits
数字
点击数
UpdateTime
日期/时间
更新时间
Elite
是/否
是否为推荐产品
Passed
是/否
是否通过审核
Content
备注
产品内容
IncludePic
是/否
是否包含图片
DefaultPicUrl
文本
首页图片地址，用于首页图片
“产品修改”是ProductModify.asp，前与Conn.asp、 Admin.asp、../Inc/Ubbcode.asp、Inc/Function.asp，后与Inc/Foot.asp关联，涉及表BigClass、SmallClass。
“保存修改结果”即“产品修改成功”是ProductSave.asp, 前与Conn.asp、 Admin.asp、../Inc/Ubbcode.asp、Inc/Function.asp、../Inc/Config.asp、后与Inc/Foot.asp，涉及Product表。“预览产品内容”是前台的ProductShow.asp，前与Inc/syscode.asp、Inc/Skin_css.asp、Head.asp（前台）关联，后与Inc/Foot.asp关联，涉及Product表。
图3.7
ProductManage.asp:
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim i,j
dim ArticleID
dim Title
dim sql,rs
dim BigClassName,SmallClassName,SpecialName
dim PurviewChecked
dim strAdmin,arrAdmin
PurviewChecked=false
strFileName="ProductManage.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "&SpecialName=" & SpecialName
Title=Trim(request("Title"))
ArticleID=Request("ArticleID")
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
SpecialName=trim(request("SpecialName"))
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from Product where ArticleID>0"
if session("purview")>4 then
sql=sql & " and Editor='" & Session("admin") & "' and Passed=false"
end if
if Title<>"" then
sql=sql & " and title like '%" & Title & "%' "
end if
if BigClassName<>"" then
sql=sql & " and BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sql=sql & " and SmallClassName='" & SmallClassName & "' "
end if
else
if SpecialName<>"" then
sql=sql & " and SpecialName='" & SpecialName & "' "
end if
end if
sql=sql & " order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function ConfirmDel()
{
if(confirm("确定要删除选中的产品吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
3.4 订单管理
3.4.1 订单管理
即Manage_Eshop.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表OrderList。表OrderList如下：
表3.5 OrderList
字段名称
数据类型
说明
OrderID（key）
数字
订单编号
OrderNum
文本
订单号码
Comane
文本
公司名称
UserId
文本
下单人ID
OrderTime
日期/时间
下单时间
Discount
数字
折扣金额
OrderSum
数字
折后总金额
PayType
文本
支付方式
RecName
文本
收货人姓名
RecAddress
文本
收货人地址
RecPhone
文本
收货人电话
Fox
文本
传真
RecMail
文本
收货人邮件地址
RecTime
日期/时间
收货期限，可以扩充为预定商品的最后期限。
ZipCode
文本
邮政编码
Notes
备注
顾客下单的订单备注
Status
文本
订单状态,默认为 0
LastModifytime
日期/时间
最后处理时间
Memo
备注
处理备忘
Del
是/否
是否删除
Flag
文本
是否已处理
“订单详情”中的“详细资料”是Manage_Eshop_detail.asp，也与Conn.asp、Admin.asp、Inc/Head.asp关联，涉及表OrderList。
“删除”是Delorderlist.asp, 与Conn.asp、Admin.asp、Manage_Eshop.asp关联，涉及表OrderList。
图3.8
Manage_Eshop.asp:
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList order by OrderTime desc"
rs.open sqltext,conn,1,1
%>
3.4.2 支付管理
即Manage_pay.asp，也是前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表Paydefault。
表Paydefault如下：
表3.6 Paydefault
字段名称
数据类型
说明
PayID (key)
数字
支付编号
Paytype
文本
支付类别
Paymentmessage
备注
提示信息说明
Paymark
文本
如果是 1 表示在线，转入不同的页面，如果是 0 表示线下支付
Payurl
文本
网上支付url
Other1
文本
后备字段
“修改支付”是Manage_editpay.asp，也是前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表Paydefault。
图3.9
Manage_pay.asp:
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
Rs.Open "SELECT * FROM Paydefault Order BY id"
if Request.QueryString("mark")="yes" then
id= Trim(Request("id"))
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
Rs.Open "DELETE FROM Paydefault Where id="&id,Conn,2,3,1
Set Rs= Nothing
Set Conn = Nothing
Response.Redirect "Manage_pay.asp"
end if
if Request.QueryString("mark")="southidc" then
paytype=request.form("paytype")
paymentmessage=request.form("paymentmessage")
If paytype="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入支付银行，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If paymentmessage=""Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没有输入支付说明，请返回检查！！"");history.go(-1);</script>")
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Paydefault "
rs.open sql,conn,1,3
rs.addnew
rs("paytype")=paytype
rs("paymentmessage")=paymentmessage
rs.update
Response.Redirect "Manage_pay.asp"
end if
%>
3.5 会员管理
即注册会员管理（UserManage.asp），前与Conn.asp、Admin.asp、Inc/Function.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表User。表User如下：
表3.7 User
字段名称
数据类型
说明
UserID (key)
数字
注册用户编号
UserName
文本
注册用户名
Password
文本
密码
Question
文本
忘记密码的提示问题
Answer
文本
问题答案
Email
文本
Email
Sex
文本
性别
Comane
文本
公司名称
Zip
文本
邮政编码
Somane
文本
收货人
Phone
文本
联系电话
RegDate
日期/时间
注册日期
LoginIP
文本
登录IP
logins
数字
登录次数
Homepage
文本
用户的主页
LastLoginTime
日期/时间
上次登录时间
LockUser
是/否
是否锁定用户
“修改注册会员用户”是UserModify.asp, 前与Conn.asp、Admin.asp、../inc/md5.asp、Inc/Function.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表User。
“UserLock.asp”用于“锁定”和“解锁”，与Conn.asp、Admin.asp关联，涉及表User。
“UserDel.asp” 用于“删除”，也与Conn.asp、Admin.asp关联，涉及表User。
图3.10
UserManage.asp:
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim rs, sql
strFileName="UserManage.asp"
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from [User] order by UserID desc"
rs.Open sql,conn,1,1
%>
<script language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除此用户吗？"))
return true;
else
return false;
}
</script>
3.6 新闻管理
3.6.1 管理全部新闻
即News_Manage.asp，前与Conn.asp、Admin.asp、../Inc/Ubbcode.asp、Inc/Function.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表News、BigClass_new、SmallClass_new。分别列下：
表3.8 News
字段名称
数据类型
说明
NewsID (key)
数字
新闻编号
Title
文本
主题
Content
备注
内容
BigClassName
文本
大类名
SmallClassName
文本
小类名
Imagenum
数字
图片数量
FirstImageName
文本
图片名称
User
文本
用户
Infotime
日期/时间
写入时间
Hits
数字
点击数
Ok
是/否
查阅结果
表3.9 BigClass_new
字段名称
数据类型
说明
BigClassID (key)
数字
大类编号
BigClassName
文本
大类名
表3.10 SmallClass_new
字段名称
数据类型
说明
SmallClassID (key)
数字
小类编号
SmallClassName
文本
小类名称
BigClassName
文本
所属大类名称
“修改”是News_modi.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，也涉及表News、BigClass_new、SmallClass_new。
“删除”是News_Del.asp，与Conn.asp、Admin.asp、Inc/Function.asp、../Inc/Config.asp关联，涉及表News。
图3.11
News_Manage.asp:
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim i,j
dim ArticleID
dim Title
dim sql,rs
dim BigClassName,SmallClassName,SpecialName
dim PurviewChecked
dim strAdmin,arrAdmin
PurviewChecked=false
strFileName="News_Manage.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "&SpecialName=" & SpecialName
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from news "
if BigClassName<>"" then
sql=sql & "where BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sql=sql & " and SmallClassName='" & SmallClassName & "' "
end if
end if
sql=sql & " order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<SCRIPT language=javascript>
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function ConfirmDel()
{
if(confirm("确定要删除选中的新闻吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
</SCRIPT>
3.6.2 管理新闻类别
即News_ClassManage.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，也涉及表BigClass_new、SmallClass_new。
“添加新闻一级分类”是 News_ClassAddBig.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，也涉及表BigClass_new。
“添加二级分类”是News_ClassAddSmall.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，也涉及表BigClass_new、SmallClass_new。
“修改大类”是News_ClassModifyBig.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，也涉及表BigClass_new。
“删除大类”是News_ClassDelBig.asp，与Conn.asp、Admin.asp、Inc/Head.asp关联，涉及表News 、BigClass_new。
“修改小类”是News_ClassModifySmall.asp，前与Conn.asp、Admin.asp、Inc/Head.asp关联，后与Inc/Foot.asp关联，也涉及表SmallClass_new。
“删除小类”是News_ClassDelSmall.asp，与Conn.asp、Admin.asp、Inc/Head.asp关联，涉及表News 、SmallClass_new。
图3.12
News_ClassManage.asp:
<%
dim sql,rsBigClass,rsSmallClass,ErrMsg
set rsBigClass=server.CreateObject("adodb.recordset")
rsBigClass.open "Select * From BigClass_New",conn,1,3
%>
<script language="JavaScript" type="text/JavaScript">
function checkBig()
{
if (document.form1.BigClassName.value=="")
{
alert("大类名称不能为空！");
document.form1.BigClassName.focus();
return false;
}
}
function checkSmall()
{
if (document.form2.BigClassName.value=="")
{
alert("请先添加大类名称！");
document.form1.BigClassName.focus();
return false;
}
if (document.form2.SmallClassName.value=="")
{
alert("小类名称不能为空！");
document.form2.SmallClassName.focus();
return false;
}
}
function ConfirmDelBig()
{
if(confirm("确定要删除此大类吗？删除此大类同时将删除所包含的小类和该类下的所有新闻，并且不能恢复！"))
return true;
else
return false;
}
function ConfirmDelSmall()
{
if(confirm("确定要删除此小类吗？删除此小类同时将删除该类下的所有新闻，并且不能恢复！"))
return true;
else
return false;
}
<%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From SmallClass_New Where BigClassName='" & rsBigClass("BigClassName") & "'",conn,1,1
if not(rsSmallClass.bof and rsSmallClass.eof) then
do while not rsSmallClass.eof
%>
<%
rsSmallClass.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
loop
%>
<%
rsBigClass.close
set rsBigClass=nothing
%>
3.7 留言管理
3.7.1 留言管理
即Manage_Book.asp,前与Conn.asp、Admin.asp 、Inc/articlechar.inc、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表book，表book如下：
表3.11 book
字段名称
数据类型
说明
Book_ID (key)
数字
留言编号
Name
文本
名字
Comane
文本
公司名称
Somane
文本
联系人
Phone
文本
电话
Fax
文本
联系传真
Email
文本
电子邮箱
Homepage
文本
主页
Rebook
备注
回复内容
Title
文本
主题
Content
备注
内容
Time
文本
留言时间
“删除”是Delbook.asp，与Conn.asp、Admin.asp关联，涉及表book。
图3.13
Manage_Book.asp:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book"
rs.open sql,conn,1,3
rs.addnew
if request.form("html")="on" then
rs("content")=request.form("content")
else
rs("content")=htmlencode2(request.form("content"))
end if
rs("name")=request.form("name")
rs("title")=request.form("title")
rs("time")=date()
rs.update
rs.close
response.redirect "Manage_Book.asp"
end if
%>
3.7.2 管理员公告
即Manage_AddBook.asp，也是前与Conn.asp、Admin.asp 、Inc/articlechar.inc、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表book。
“修改”是Manage_editBook.asp，与Conn.asp、Admin.asp关联，涉及表book。
图3.14
Manage_AddBook.asp:
<%
if Request.QueryString("no")="yes" then
id= Trim(Request("id"))
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "DELETE FROM book Where id="&id,Conn,2,3,1
Set Rs= Nothing
Response.Redirect "Manage_AddBook.asp"
end if
if Request.QueryString("mark")="southidc" then
If request.form("title")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入标题，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("content")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入留言内容，请返回检查！！"");history.go(-1);</script>")
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from book where name='管理员'"
rs.open sql,conn,1,3
rs.addnew
if request.form("html")="on" then
rs("content")=request.form("content")
else
rs("content")=htmlencode2(request.form("content"))
end if
rs("name")=request.form("name")
rs("title")=request.form("title")
rs("time")=date()
rs.update
rs.close
response.redirect "Manage_AddBook.asp"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book where name='管理员'"
rs.open sql,conn,1,3
%>
3.8 调查管理
3.8.1 调查设置
即VoteManage.asp,前与Conn.asp、Admin.asp 、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表Vote。表Vote如下：
表3.12 Vote
字段名称
数据类型
说明
VoteID（key）
数字
调查编号
Title
备注
主题
Select1
文本
选项1
Answer1
数字
答案1
Select2
文本
选项2
Answer2
数字
答案2
Select3
文本
选项3
Answer3
数字
答案3
Select4
文本
选项4
Answer4
数字
答案4
Select5
文本
选项5
Answer5
数字
答案5
VoteTime
日期/时间
调查时间
VoteType
文本
调查类型
IsSelected
是/否
是否选择
“修改”是VoteModify.asp, 也是前与Conn.asp、Admin.asp 、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表Vote。
“删除”是VoteDel.asp，与Conn.asp、Admin.asp 关联，涉及表Vote。
图3.15
VoteManage.asp:
<%
dim sql,rs,Action,ID
Action=Trim(Request("Action"))
ID=Trim(Request("VoteID"))
if Action="Set" and ID<>"" then
conn.execute "Update Vote set IsSelected=False where IsSelected=True"
conn.execute "Update Vote set IsSelected=True Where ID=" & ID
response.Write "<script language='JavaScript' type='text/JavaScript'>alert('设置成功！');</script>"
end if
sql="select * from Vote order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
3.8.2 添加新调查
即VoteAdd.asp，也是前与Conn.asp、Admin.asp 、Inc/Head.asp关联，后与Inc/Foot.asp关联，涉及表Vote。
图3.16
VoteAdd.asp：
<%
dim Title,VoteTime,Action,IsSelected
dim rs,sql
Title=trim(request.form("Title"))
VoteTime=trim(request.form("VoteTime"))
if VoteTime="" then VoteTime=now()
Action=trim(request("Action"))
IsSelected=trim(request("IsSelected"))
dim i
if Title<>"" then
sql="select top 1 * from Vote"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Title")=Title
for i=1 to 8
if trim(request("select"&i))<>"" then
rs("select"&i)=trim(request("select"&i))
if request("answer"&i)="" then
rs("answer"&i)=0
else
rs("answer"&i)=clng(request("answer"&i))
end if
end if
next
rs("VoteTime")=VoteTime
rs("VoteType")=request("VoteType")
if IsSelected="" then IsSelected=false
if IsSelected="True" then conn.execute "Update Vote set IsSelected=False where IsSelected=True"
rs("IsSelected")=IsSelected
rs.update
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "VoteManage.asp"
end if
%>
以上就是该网站的后台管理系统的主要模块及其实现功能和步骤，只列出了一些主要程序代码，表（设计视图）和界面。具体的在admin文件中。
总 结
经过几个月的努力，我的毕业设计和论文终于得以完成。以前听人说毕业设计（论文）的工作量很大,需相当长一段时间来做,经历了之后才觉得果真如此。
初次接触各方面规则和要求都未免过于生疏，以致总是出现这样或那样的问题，甚至重复做无用功，真是既费时又费力，事倍功半。虽然已实现基本功能要求，不免有各种不足之处。
该企业网站管理系统基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。后台管理系统采用Access数据库技术。前台管理系统和后台管理系统的协调一致。
后台主要功能：
系统管理、产品管理、订单管理、会员管理、新闻管理、留言管理、调查管理。
前台网页所实现的主要功能模块是新闻资讯、产品展示、营销网络、客户服务。
新闻资讯包括企业新闻和业内资讯；产品展示包括产品展示、产品分类和产品搜索；营销网络包括国内市场和国外市场；客户服务包括会员中心、信息反馈、留言中心、订单查询。
我主要对后台管理系统作了描述，在这块内容上花了相当长的一段时间，比较熟悉。
这次毕业设计，不仅使我进一步了解和掌握了网站开发和设计的相关专业知识，更让我深切地体会到做这项工作的辛苦。
致 谢
参考文献
[1] ASP编程基础及应用/张登辉、刘益红编著.——北京：机械工业出版社，2002.9
[2] WEB设计教程/马必记编著.北京：高等教育出版社,2000.3
[3] 新世纪Flash MX 2004中文版应用培训教程/王珂、杨滔、范云编著.——北京：电子工业出版,2004.1
[4] 数据库系统概论/萨师煊，王珊编著.——3版.——北京：高等教育出版社，2000.2
[5] 汪晓平、钟军.ASP网络开发技术.北京：人民邮政出版社,2003年12月第二版.
[6] 张一鸣、桂林、张家祥.个人网站组建实用教程.西安：电子科技大学出版社，2004年1月第一版.
[7] 龙马工作室.典型网站建设.北京：人民邮电出版社,2004年8月第一版.
[8] 陈峰等编著.网页制作全接触.北京：人民邮电出版社,2001.3
[9] 王永辉编著.网页制作真容易.上海：上海科学技术出版社,2002.4
[10] 黄平主编.数据库技术.北京：机械工业出版社,2002.5
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
