网站建设课程设计--网上书店

课程设计说明书

（1）设计一个网上书店系统。

（2）提供一个用户注册、登录的界面、显示访问此网站的用户人数，登录之后用户自由选购书籍，加入购物车。

2、设计进度及完成情况

设计成绩：               （教师填写）

指导老师：               （签    字）

二0一0 年     月     日

摘  要

随着网络技术的发展，Internet已成为最具市场潜力的技术领域，使用Web技术设计的数据库应用软件，是目前Internet市场的技术中坚，各种Web应用如电子商务，网上购物等都采用这种方式实现。

网上书店，是一个立足于网络、以书籍为商品的专业性网上购物网站。该系统同时具有买卖书籍等功能，为书籍的流通提供了一个高效的交易平台，为用户的生活带来了方便。本课程设计中介绍了本系统开发时所用到的环境、工具及技术，然后是网站的系统结构设计、需求分析、网站详细设计。

关键词：ASP；Access数据库；B/C

Abstract

With the development of networking, Internet had become the area of technology which has the most market potential, the database of application software which uses the Web technical designing, is Internet market technical backbone presently, each kind of Web application like electronic commerce, the shopping on the network and so on which all uses this way realization.

bookshop on the network, is base on the Internet.the website of the specialized shopping on the network which takes the books as commodity. The system which simultaneously has functions of business books and so on, has provided a highly effective transaction platform for the books circulation. It brings convenient to users of life.It introduced the environment, the tool and the technology when the development of this system

   Keywords：ASP；Access database；B/C

《网站建设》课程设计

--网上书店的设计与实现

一、需求说明  

1.1  开发背景

网站式的书店,是一种高质量，更快捷，更方便的购书方式。网上书店不仅可用于图书的在线销售，也有音碟、影碟的在线销售。而且网站式的书店对图书的管理更加合理化，信息化。售书的同时还具有书籍类商品管理、购物车、订单管理、会员管理等功能，非常灵活的网站内容和文章管理功能。但网上书店的真实性是消费者的最大顾虑，这也是网上书店还不被大多数消费者所接受的原因之一。

1.2  设计要求

本课程设计的目标是利用VBSCRIPT和access数据库、dreamweaver软件设计一个网上书店系统，实现用户注册、登录、购书以及付款的功能。

1.3  设计目的

网上书店不受地理位置的，避免了与其他商家在黄金地点的竞争，很好地节约了成本。对于购书者来说，网上购书选择可以“无限”,网上书店能够为顾客提供更大的选择余地，而网上书店的“店面”可以根据自己业务的需要，随意扩大，成本也非常低，这是传统书店无法比拟的。

1.4  项目功能特点

1）提供一个用户注册、登录的界面。

2）显示访问此网站的用户人数。

3）用户登录之后。登录之后进入用户自由选购书籍。

4）用户可任意确定书籍的数量。

5）用户一次觉得购书不足的话可进行多次选购书籍。

1.5  功能实现

提供注册界面、登录界面、用户可以自由选购书籍、显示用户访问该网页的次数。

二、概要设计

2.1  业务流程图分析

本网站包括用户的登录、用户注册、用户选书、用户付款等模块。流程图如图1所示。

图1  流程图

2.2  系统功能模块设计

新注册用户。提供客户网上自助注册功能，填写注册表单并提交后，就能成为网上书店的用户，注册成功并登录后就可以进行网上购书了。用户登录。供已注册的用户登录，登录后才能在网上购书。网上购书。已登录的用户可以将需要购买的书籍放入购物车，可将已放入购物车中的书籍生成一张订单并作确认。如图2所示。

图2  详细设计图

三、详细设计 

3.1  数据库需求分析

数据项和数据结构如下：用户表（user）(ID,用户名，密码，电子邮箱,临时身份,网址)

3.2  数据库表的设计

图3  数据库表

3.3  数据库的连接

按照要求建好数据库后，需要建立网站页面和后台服务器的链接，页面名称为conn.asp以后当需要对数据库进行访问时，只需要用命令就可以直接调用该程序，连接数据库，提高程序的可读性，同时也提高程序的便捷性.代码如下：

<%

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("licai.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS

Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Open connstr

%>

3.4  主要代码

3.4.1  用户注册的功能

用户注册时所填写的用户名要求不能与已经注册的用户同名，但这个验证工作是无法在客户端进行的。因为所有的注册用户信息都保存在服务器的数据库中。所以通过以下程序实行验证工作，代码如下：

<%

Set Conn=Server.CreateObject("ADODB.Connection")

C用户连接到数据库  Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Open connstr

%>

<%sql="SELECT * FROM 用户表 WHERE 用户名='" & Request("name") & "'"

Set Rs=conn.Execute(sql)

If not Rs.Bof OR Rs.Eof Then

Response.Write "你所输入的姓名已经被别人使用,请用别的名称。"

end if

if Rs.Bof OR Rs.Eof Then

Response.clear 

rs.close%>

<%  Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("licai.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Open connstr%>

<%name=Request.Form("name")

pass=Request.Form("pass")

mail=Request.Form("mail")

url=Request.form("url")%>

<%if name="" then

o="你必须输入名字"

Response.Redirect "chendan1.asp?from_chendan2=" & o & ""else 

if pass="" then

p="你必须输入至少一位密码"

Response.Redirect "chendan1.asp?from_chendan2=" & p & ""end if

end if%>

<%if mail="" thenmail=" "

end if

if url="" thenurl=" "

end if%><%

sz = "'" & name &_"', '"& pass &_

"', '"& mail &_"', '"& url & "'"

into_db = "INSERT INTO 用户表 ( 用户名, 密码, 电子信箱, 网址 ) VALUES(" &_

sz & ")"

conn.Execute(into_db)%>

恭喜您注册成功

登录

<%LogTime=Now()%>

<%Num1=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>

<%sql="UPDATE 用户表 SET 临时身份=" & Num1 & "  WHERE 用户名='" & name & '"

conn.Execute sql

conn.close%>

<%end if%>

3.4.2  用户登录的功能

对于已注册的用户在登录时，系统需要处理用户提交的登录名和密码，并检测其提供的密码是否正确。输入正确时需要点击”登录”按钮，进入用户购书界面，代码如下：

<%LogTime=Now()%>

<%Num1=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>

<%

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("licai.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS 

Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Open connstr%>

<%

B1=Request("B1")

If B1="登录界面" Then

sql="SELECT * FROM 用户表 WHERE 用户名='" & Request("name") & "'"

Set Rs=conn.Execute(sql)

If Rs.Bof OR Rs.Eof Then

Response.Write "我们的数据库中没有查到您的姓名，请先注册新用户。"

Else

If Request("pass")<>Rs("密码") Then

Response.Write "口令出错，请检查是否大小写不对。
"

else%>

<%sql="UPDATE 用户表 SET 临时身份=" & Request("No") & "  WHERE 用户名='" & Request("name") & "'"

conn.Execute sql

conn.close%>

<%Response.Redirect "chendan0.asp?No=" & Request("No") & " "%>

<%End If

End If

End If%>

顾客访问次数

新用户注册

3.4.3  系统显示用户访问次数程序

用一个Session变量来标识某一用户在和web服务器的当次会话中是否已经累加了访问数，如果没有，那么程序在打开数据文件并读取其中的数据后要进行总访问数、当天访问数的累加，代码如下：

< % dim objfile,cntfile,objfs

dim ttlcnt,tdycnt,lastvisitdate,nowdate

nowdate=date()

cntfile=server.MapPath("counter")&"\\webcnt.cnt"

set objfs=server.createobject("scripting.filesystemobject")

set objfile=objfs.opentextfile(cntfile,1,True,0)

if objfile.atendofline then

ttlcnt=1

tdycnt=1

lastvisitdate=nowdate else

ttlcnt=CLng(objfile.readline)

lastvisitdate=cdate(objfile.readline)

tdycnt=CLng(objfile.readline)end if

if session("counted")<>true then

ttlcnt=ttlcnt+1

if nowdate<>lastvisitdate then

lastvisitdate=nowdate

tdycnt=1 else

tdycnt=tdycnt+1 end if

session("counted")=true

set objfile=objfs.opentextfile(cntfile,2)

objfile.writeline(ttlcnt)

objfile.writeline(lastvisitdate)

objfile.writeline(tdycnt) end if

set objfile=nothing

set objfs=nothing

response.write("

您是本站第"&ttlcnt&"位访客

response.write("

本站今日共有"&tdycnt&"位访客

%>

3.4.4  加入购物车程序

用户选择了自己感兴趣的书集，加入购物车，并可以增加书的数量，代码如下：