网站建设-课程设计.doc

课程设计说明书

课程名称
:
网站建设课程设计

1、 设计的目的与要求

目的：设计一个中型企业的网站。
要求：实现迅达电子有限公司的网络化服务，使其公司的产品更容易让 大家熟悉，同时实现了顾客与公司在网上的互动。

2、设计进度及完成情况
日 期
内 容
2009、12、10
完成了需求分析
2009、12、15
完成了系统的构架设计
2009、12、25
完成了整个系统编码的实现
2009、12、26
完成系统的测试
2009、12、28
完成了整个系统文档的整理与分布
3、成绩评定

设计成绩：
指导老师：
年 月 日
目 录
目 录 3
摘 要 3
一、引言 4
二、 设计任务与目的 5
三、设计方案与实施 5
（一）总体设计： 5
1、网站前台设计： 5
2、网站后台设计： 6
3、数据库设计： 6
（二）、详细设计： 6
1、功能需求: 6
2、系统文件架构图： 6
3、系统主要功能： 8
4、数据库设计： 8
5、系统出错处理设计： 13
（三）、程序清单: 13
（四）、调试与体会： 24
（五）、运行结果（截图）： 25
四、 结论 32
六、 参考文献 32

摘 要
随着计算机网络通信技术和Internet的飞速发展以及淘宝网的流行，基于因特网的企业网站也成为一种新的竞争方式，并且越来越受到人们的关注。在网上浏览用户所需要的东西，既可以帮助用户节省宝贵的时间，有可以给用户带来方便的服务，同时还能够及时把公司的优惠活动在网站上发布给用户，用户也就能够在短时间内接收到公司的最新动态，并且用户可以直接在本公司的网站上反馈自己的意见，网站使企业活动上了一个新台阶。
本文依据设计出来的迅达有限公司的网站，做了全面系统的介绍。全文共六章，按照前期的开发顺序，从系统分析与研究开始，逐一对开发过程做了全面的介绍。在详细设计这一章中的系统实现部分既用了程序代码，也用了比较直观易读的流程图来表示，增强了文章的可读性，易于用户理解。

关键字：网站，迅达电子，用户

Abstract
With the computer network communication technology and the rapid development and Taobao Interne popularity of Internet-based business websites have also become a new forms of competition, and more and more attention. Browse the user what they need, either to help users to save valuable time, it can give users convenient service, but also be able to offer a timely manner the activities of the company's posted on the website to the user, the user will also be able in a short time, the company received the latest trends, and the user can directly in the company's Web site feedback their views, the website so that business activity has reached a new level.
Paper is based on the design out of Schindler's website has done a comprehensive and systematic introduction. Full text of a total of six chapters, in accordance with the development of pre-order system analysis and research from the beginning of each of the development process to do a comprehensive introduction. In the detailed design of the system implementation of this chapter not only used part of the program code, and also relatively intuitive, easy to read flow charts to represent and enhance the readability of the article, easy for users to understand.

Keyword： Website xundadianzi user

一、引言
迅达电子有限公司是一个主要生产出售电子产品的公司。随着网络的普及以及人们生活需求的不断提高，随着淘宝网的流行以及人们在网上查获信息的全面化，该公司网站的建设也是必不可少的。 本网站的设计也是基于这个背景产生的。
本公司的网站可以让更多的人通过Internet了解公司的一些动态新闻，让顾客及时看到公司在某时间段的一些优惠活动；该网站上还有人才招聘的信息，可以为一些有志青年提供求职途径，方便他们的寻职；同时，该公司网站还有一些实物的照片，方便用户选择产品，避免他们会产生上当受骗的心理；并且该公司的网站上还有用户投票的部分，不管是普通用户还是高级用户都可以为本公司提供具有参考价值的意见，该网站的管理员可以根据不同用户的需求让公司及时修正，来满足大众化的要求。
在本网站设计中，基本界面是在Dreamweaver8.0坏境中实现的，网页美工使用Photoshop工具，编码实现采用ASP技术，系统后台使用Microsoft的Access 2003数据库，并通过使用ODBC技术访问。
该系统的实现可以满足以下要求：普通用户可以浏览文章、图片、公司新闻等内容，通过注册成为会员；高级用户可以登录本网站，并发表自己对该公司的意见以及提出可行性的实施方案等；管理员可以通过后台登录对高级用户进行管理，进行系统新闻的发布，并且可以对数据库信息进行增删查改等，满足不同用户的不同需求。

二、 设计任务与目的

通过本课程设计教学所要求达到的目的是：通过本课程设计，学习网站设计所用到的工具的使用，以及学会编写动态网页代码，了；理清楚数据库的设计和连接方法，同时巩固数据库的有关知识，使学生更加深入地掌握网站设计的基本方法，提高从事网站建设和管理工作的基本技能。此网站的开发要求真正实现迅达电子有限公司的网络化服务，使其公司的产品更容易让大家熟悉，同时实现了顾客与公司在网上的互动。

三、设计方案与实施

（一）总体设计：

1、网站前台设计：
网站前台页面包括：首页(index.asp)、新闻(News.asp)、产品信息(product.asp)、文摘分类（sort.asp)、文件下载（download.asp)、图片（picshow.asp)、留言(Guestbook.asp)、论坛(链接到论坛）、新闻浏览页面（NewsInfo.asp)、产品展示（productshow.asp)信息浏览（View.asp)用户注册（User_RegPost.asp)文件下载（Down.asp)、会员页面（Feedback.asp、FeedBackMenber.asp、FeedbackSave.asp)、友情链接（link.asp)

2、网站后台设计：
登陆界面（Admin_Login.asp）登陆核对(check.asp) 管理（Admin_Manager.asp) 新闻(Admin_News) 图片(Admin_pic) 新闻管理(classmannage.asp) 新闻修改(ClassmodifyBig.asp、ChassModifySmall.asp) 新闻删除（ClassDelBig.asp、ClassAddSmall.asp) 新闻添加(ClassAddBig.asp、ClassAddSmall.asp)

3、数据库设计：
数据库连接（Con.asp)

（二）、详细设计：
1、功能需求:

1) 要求设置不同的管理权限，如普通管理员和高级管理员。
2) 产品信息的管理，包括产品信息管理、产品的展示，以及根据多种条件查询产品的信息。
3) 新闻信息的发布，随时更新和产品有关的各种新闻内容。
4) 客户信息维护，掌握每个客户的相关资料，以便及时制定经营策略。
5) 产品订购业务，客户能随时提交或取消（提交前）订购产品的表单。
6) 留言板，客户可以在此留言或提问，业务人员在此提供技术指导或其他答疑服务。
7) 网站访问统计和分析，一方面收集并分析用户反馈的意见，另一方面，统计网站的访问流量，帮助进行市场分析

2、系统文件架构图：

如上图所示，普通用户可以对网站的，新闻，图片，招聘，留言等进行浏览，但资料下载页面需要注册成为用户，方可进行有关资料的下载，并且用户的等级也影响用户的阅读权限，分为普通用户和VIP用户，普通用户可以对一些资料进行下载，VIP用户可以对任何资料进行下载。

管理员登陆后可以通过“Admin_AD.asp” 对广告进行添加和修改，通过“Admin_Nes.asp” 对新闻进行添加修改，通过“Admin_pic.asp”对图片进行上传，通过“Admin_sot.asp”分类信息 “Admin_down.asp”资料的上传，通过“ Admin_User.asp”用户进行管理

3、系统主要功能：
（1）．权限管理
权限管理主要设置两种不同的权限，不同管理员设置不同的权限。第一类是普通管理员，可以登录到留言板的管理界面，对访问者的留言进行回复，可查看所有留言信息（包括访问者隐藏的留言内容），此类管理员无权修改网页中的其他任何信息。第二类是高级管理员，可对网站中的大部分信息进行修改和编辑。

（2）．产品信息管理
1）产品信息的登记和管理，如产品编号、名称、规格、生产日期、使用方法等。
2）产品信息的发布，主要以图片展示为主，配合一些介绍信息。
3）产品的分类，产品的展示可根据用户的选择方式采用不同的展示形式，如生产日期、价格高低、浏览次数等。
4）产品的查询，提供多种条件的查询功能。

（3）．新闻信息发布
1）新闻的录入，高级管理员可以随时添加有关产品的最新新闻，并使最近新闻总是位于所有新闻的前列。
2）新闻的修改，对已经存在的新闻重新编辑，而不改变它在所有新闻中的排序。
3）新闻的删除，删除已经存在的新闻。

（4）．客户信息维护
及时掌握客户的相关资料，对他们的购买情况进行统计和分析，以便及时制定新的经营策略。主要包括客户档案的登记，客户信用管理以及客户消费查询与统计。

（5）．产品订购
用户可以选择进入所有产品订购的界面，填写需要订购的产品信息，提交给系统。也可以在查看某种具体产品的展示信息时，选择进入该产品的订购界面。用户在提交订购信息之前，随时可以选择取消订购。

（6）．留言板
一方面提供留言功能，访问者可以随时留言或提问，并且留言者有权选择留言内容是否公开。另一方面，管理员对访问者的疑问进行答复或对留言内容进行管理。

．人才招聘模块
企业可以随时发布或修改你的招聘，访者者也可以应聘

（8）．网站访问统计和分析
一是进行问卷调查，对各种产品的使用情况进行调查，并显示调查结果。二是统计本网站的访问流量。

4、数据库设计：

表 1 announce
表 2 review
Name
Type
Size
Name
Type
Size
ID
长整型
4
ReViewID
长整型
4
Title
文本
100
InfoID
长整型
4
Time
日期/时间
8
Reply
文本
255
Content
内存
-
Content
内存
-
Admin
文本
50
ReTime
日期/时间
8
taxis
长整型
4
UserEmail
文本
50
Hits
长整型
4
Title
内存
-
表 3 advertise
表 4 News
Name
Type
Size
Name
Type
Size
AD_ID
长整型
4
ID
长整型
4
AD_Title
文本
100
Title
文本
100
AD_Pic
文本
100
Time
日期/时间
8
AD_width
整型
2
Content
内存
-
AD_height
整型
2
Ispic
长整型
4
AD_Http
文本
100
pic
文本
50
blank
是/否
1
New_tuijian
是/否
1
AD_Note
内存
-
Admin
文本
50
AD_AddAdmin
文本
50
Hits
长整型
4
AD_AddTime
日期/时间
8

表 5 ballottop
表 6 d_class
Name
Type
Size
Name
Type
Size
id
长整型
4
class_id
长整型
4
ballottop
文本
50
cat_id
长整型
4
mymode
是/否
1
class_name
文本
50
表 7 ballot
表 8 flcat
Name
Type
Size
Name
Type
Size
id
长整型
4
flcat_id
长整型
4
ballot
文本
50
flcat_name
文本
50
hit
长整型
4
isimage
长整型
4
表 9 d_cat
表 10 bigclass
Name
Type
Size
Name
Type
Size
cat_id
长整型
4
BigClassID
长整型
4
cat_name
文本
30
BigClassName
文本
80
表 7 pic
表 8 words
Name
Type
Size
Name
Type
Size
pic_id
长整型
4
id
长整型
4
piccat_id
长整型
4
name
文本
20
pic_date
日期/时间
8
sex
文本
2
pic_name
文本
50
web
文本
50
pic_spic
文本
150
email
文本
64
pic_pic
文本
150
title
文本
50
pic_url
文本
80
words
内存
-
pic_desc
文本
225
date
日期/时间
8
pic_count
长整型
4
reply
内存
-
isbest
长整型
4
ip
文本
15
review
内存
-
come
文本
60
reviewcount
长整型
4
view
字节
1

qq
文本
50
表 13 friendlink
表 14 Hrdemand
Name
Type
Size
Name
Type
Size
fl_id
长整型
4
ID
长整型
4
flcat_id
长整型
4
HrName
文本
60
fl_date
日期/时间
8
HrRequireNum
文本
10
fl_name
文本
50
HrAddress
文本
100
fl_logo
文本
100
HrSalary
文本
10
fl_url
文本
100
HrValidDate
文本
10
count
长整型
4
HrDetail
内存
-
passed
长整型
4
HrDate
日期/时间
8
lk
长整型
4
HrPublish
是/否
1
表 15 product
表 16 sort
Name
Type
Size
Name
Type
Size
ID
长整型
4
ID
长整型
4
Product_Id
文本
50
Names
文本
50
BigClassName
文本
50
B_ID
长整型
4
SmallClassName
文本
50
S_Order
长整型
4
SpecialName
文本
50
Setting
长整型
4
Title
文本
255
daohang
文本
50
Spec
文本
50
Hdaohang
是/否
1
Newproduct
是/否
1
order_1
长整型
4
Price
单精度型
4
Ldaohang
是/否
1
Unit
文本
50
order_2
长整型
4
Memo
文本
50
Fdaohang
是/否
1
Key
文本
255
order_3
长整型
4
Hits
长整型
4
blank
是/否
1
UpdateTime
日期/时间
8
Tuijian
是/否
1
Elite
是/否
1
Indexshow
是/否
1
Passed
是/否
1
hide
是/否
1
Content
内存
-
Info
内存
-
IncludePic
是/否
1
explain
文本
50
DefaultPicUrl
文本
255
AddTime
日期/时间
8
UploadFiles
内存
-
Hit
长整型
4
表 17 admin
表 18 PW_SYS_Online
Name
Type
Size
Name
Type
Size
ID
长整型
4
ID
双精度型
8
Username
文本
50
UserName
文本
50
Password
文本
50
ip
文本
20
Oskey
文本
50
actforip
文本
20
LoginIP
文本
50
browser
内存
-
LoginTime
日期/时间
8
Now_Url
内存
-
LogoutTime
日期/时间
8
startime
日期/时间
8
LoginTimes
长整型
4
lastimebk
日期/时间
8
表 19 VisitCounter
表 20 piccat
Name
Type
Size
Name
Type
Size
id
长整型
4
piccat_id
长整型
4
counter
单精度型
4
piccat_name
文本
50
表 21 HrdemandAccept
表 22 user
Name
Type
Size
Name
Type
Size
ID
长整型
4
UserID
长整型
4
Quarters
文本
60
UserName
文本
50
Name
文本
20
UserPassword
文本
50
Sex
文本
10
UserEmail
文本
50
Birthday
文本
50
UserSex
长整型
4
Stature
文本
10
UserQuesion
文本
50
Residence
文本
50
UserAnswer
文本
50
Marry
文本
50
UserBirthday
文本
50
School
文本
50
UserSign
内存
-
Studydegree
文本
60
JoinDate
日期/时间
8
Specialty
文本
50
LastLogin
日期/时间
8
Gradyear
文本
20
UserMoney
长整型
4
Phone
文本
50
LoginNum
长整型
4
Mobile
文本
50
UserIP
文本
50
Email
文本
30
UserGrade
长整型
4
Add
文本
80
HomePage
文本
80
Postcode
文本
50
TrueName
文本
50
Edulevel
内存
-
TelPhone
文本
50
Experience
内存
-
OICQ
文本
50
Adddate
日期/时间
8
UserAddress
文本
50

Postcode
文本
50

IsActive
是/否
1
表 23 SmallClass
表 24 Gaobei_set
Name
Type
Size
Name
Type
Size
SmallClassID
长整型
4
编号
长整型
4
SmallClassName
文本
80
gl
内存
-
BigClassName
文本
80
gbyn
字节
1

aa
文本
30
表 25 soft
表 26 Info
Name
Type
Size
Name
Type
Size
soft_id
长整型
4
ID
长整型
4
soft_name
文本
50
title
文本
50
soft_joindate
日期/时间
8
content
内存
-
soft_size
文本
50
Sort1
长整型
4
soft_mode
文本
50
Sort2
长整型
4
soft_roof
文本
50
IsPic
长整型
4
soft_commend
文本
50
Pic
内存
-
soft_home
文本
255
Key
文本
50
soft_demo
文本
255
hits
长整型
4
soft_showpic
文本
255
Date
日期/时间
8
soft_classname
文本
50
writer
文本
50
soft_catname
文本
50
writefrom
文本
50
soft_catid
长整型
4
author
文本
50
soft_classid
长整型
4
AddDate
日期/时间
8
soft_desc
内存
-
ReadGrade
长整型
4
soft_rcount
长整型
4
Pw_Good
是/否
1
soft_dcount
长整型
4
Pass
长整型
4
soft_url1
文本
255
Special
长整型
4
soft_url2
文本
255
表 27 swithboard
soft_url3
文本
255
soft_url4
文本
255
Name
Type
Size
soft_stop
长整型
4
SwitchboardID
长整型
4
isbest
长整型
4
ItemNumber
整型
2
ReadGrade
长整型
4
ItemText
文本
255
review
内存
-
Command
整型
2
reviewcount
长整型
4
Argument
文本
255

5、 系统出错处理设计：

能够对用户录入的各种数据进行校验，保证数据的完整性。能够及时捕捉系统在运行时的错误信息，并给出相应的提示，系统应有一定的容错能力，列出可能的软件、硬件故障以及对各项性能而言所产生的后果和对故障所应采取的步骤方法。在详细设计中以列表方式列出可能出现的错误，错误代码及解决方式。

（三）、程序清单:
关键代码
<%
sub navigation()
response.write " &gt;&gt; "
response.write "讯达主页"
end sub
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select top 6 * from news ORDER BY id DESC"
rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
response.write"<div align='center'>还没有添加新闻<div>"
end if
do while not rs.eof
title = rs("title")
%>

<%
if Getlen(title)>42 then
response.write LeftStr(title,36)
response.write "..."
else
response.write ""&title&""
end if
%></a>&nbsp;&nbsp;<font color='#808080'><%=rs("time")%></font></td>
</tr>
<%
rs.movenext
loop
Rs.Close
Set Rs=Nothing
%>

<%
dim sqlsort,RsSort,hangpicnum
sqlsort="select * from Sort where B_id=0 and setting < 4 and Indexshow=True order by S_order"
Set RsSort=conn.execute (sqlsort)
RsSort.Open sql,Conn,1,1
Response.Write"<table border='0' cellspacing='0'>"
if RsSort.eof and RsSort.bof then
response.write "<div align=center>还没有任何栏目</div>"
else
response.write"<tr>"
do while not rs.eof
for hangpicnum=1 to 2
if RsSort.eof then exit for
Response.Write"<td>"
%>

<%
Response.Write"</td>"
RsSort.movenext
next
Response.Write"</tr>"
if RsSort.eof then exit do
loop
end if
RsSort.Close
set RsSort=nothing
Response.Write"</table>"
%>
<%
sql="select top 6 soft_id,soft_name,soft_joindate from soft order by soft_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr><td width="8%"align="right"><img src="Images/Gaobei_skin/Gaobei_ico.gif" width="12" height="11" align="absmiddle"></td><td width="92%"><p style='line-height: 150%'>
<a href='showdown.asp?soft_id=<%=rs("soft_id")%>' target='_blank' Title='<%=rs("soft_name")%>'><%=left(rs("soft_name"),12)%>&nbsp;&nbsp;<font color="#808080"><%=rs("soft_joindate")%></font></a><br>
</td></tr>
<%
rs.movenext
loop
if rs.eof and rs.bof then
%>
<tr><td align='center'><div align=center><br>当前还没有下载<br><br></div></td></tr>
<% end if %>

<%
sub navigation()
response.write " &gt;&gt; "
response.write "产品列表"
end sub
%>

<%
Const MaxPerPage_Default=5 '首页每页产品
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,keyword,strField
dim rs,sql,sqlProduct,rsProduct,sqlSearch,rsSearch,sqlBigClass,rsBigClass
BeginTime=Timer
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
keyword=trim(request("keyword"))
if keyword<>"" then
keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","&lt;"),">","&gt;")," ","&nbsp;")
end if
strField=trim(request("Field"))

if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if

sqlBigClass="select * from BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1
'=================================================
'过程名：ShowProductTotal
'作 用：显示文章总数
'参 数：无
'=================================================

sub ShowProductTotal()
dim sqlTotal
dim rsTotal
sqlTotal="select Count(*) from Product where Passed=True "
if BigClassName<>"" then
sqlTotal=sqlTotal & " and BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "' "
end if
end if
Set rsTotal= Server.CreateObject("ADODB.Recordset")
rsTotal.open sqlTotal,conn,1,1
if rsTotal.eof and rsTotal.bof then
totalPut=0
response.write "共有 0 个产品"
else
totalPut=rsTotal(0)
'response.Write "共有 " & totalPut & " 个产品"
end if
rsTotal.close
set rsTotal=nothing

end sub

'=================================================
'过程名：ShowProduct
'=================================================

sub ShowProduct(TitleLen)
if TitleLen<0 or TitleLen>200 then
TitleLen=50
end if
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
current