实例网上书店的实现

实例网上书店的实现

本章要点： • 系统规划 • 数据库设计 • 商品分类与展示 • 购物车

一、系统规划 • 1、系统商务分析 • 需求分析 • 企业需求：企业网上购物系统对于电子商务系统的需求。 • 市场需求：网上客户的需求。 • 市场分析 • 市场环境：国际和地区经济环境、政府的支持与所在地Internet设施的完备程度对网上购物系统的影响。 • 客户分析：网上消费者、企业和个人的年龄、文化程序、性别、收入等对系统的影响。

2、系统规划设计 • 确定商务模式：包括总体商务模式、网上品牌、网上服务等模式。 • 制定营销计划：具体的网上销售计划 • 确定系统构成（功能模块：以网上书店为例） • 前台：主要包括图书目录、图书详情、图书搜索、购物车、订单查询等 • 后台：主要包括会员管理、订单管理、商品管理等 • 系统流程 • 进入首页—选择商品—放入购物车—购物车查看—生成订单

3、网站规划设计 • 网站链接结构规划 • 树状结构：条理清晰，效率较低。层次较少是采用较适合 • 网状链接结构：游览方便，容易迷路 • 开发工具与软件的选择 • 操作系统：windowsXP • Web服务器：IISS • 后台数据库：Microsoft Access 2003 • 网页编辑工具：Dreamweaver • 建立网上购物系统的具体步骤 • 建立站点环境—建立数据库—制作页面—测试与发布

网上商店系统流程 • 商品展示（有的需登录） • 浏览商品 • 放入购物车 • 继续购物 • 查看与修改购物车 • 填写联系信息（如有会员登录系统则省略） • 生成订单

二、数据库设计 • 图书分类表（bclass） • 分类编号：自动编号 • 图书类别：字符型，20 • 图书表（book） • 书号：字符型类别：长整型 • 书名：字符型，50 内容介绍：备注型 • 作者：字符型，10 出版社：字符型，50 • 价格：数字型，单精度出版日期：日期型

订单表（orderlist）（也可将用户信息单列一张表）订单表（orderlist）（也可将用户信息单列一张表） • 订单号：数值型 • 书号：字符型 • 价格：数字，单精度 • 数量：数字，整型 • 合计：数字，单精度 • 姓名：字符型，10 • 地址：字符型，50 • 电话：字符型，20 • Email：字符型，20 • 日期：日期型

三、商品分类与展示 • 商品分类页（index.asp） • <% • Set cn=Server.CreateObject(“ADODB.Connection”) • Cn.Open “DSN=dbname” • Set rs=Server.CreateObject(“ADODB.Recordset”) • StrSql=“select * from bclass” • Rs.Open StrSql, cn • If rs.eof then • response.write “对不起，未找到！” • response.end • End if • %> • <center>欢迎进入新华网上书店，请选择图书类别！</center><hr> • <table border=0>

<% • While Not Rs.eof • %> • <tr><td> • <a href=list.asp?id=<%=rs(“分类编号”)%>><% =rs(“图书类别”) %></a> • </td></tr> • <% Rs.movenext • wend %> • <table>

图书列表页（list.asp） • <% Classid=request(“id”) • Set cn=Server.CreateObject(“ADODB.Connection”) • Cn.Open “DSN=dbname” • Set rs=Server.CreateObject(“ADODB.Recordset”) • StrSql=“select * from book where 类别=”&classid • Rs.Open StrSql, cn • if rs.eof then • response.write "未找到！" • response.end • end if %>请点击书名查看详细介绍！ • <table border=0><% While Not Rs.eof %><tr><td> • <a href=book.asp? bookid=<%=rs(“书号”)%>><% =rs(“书名”) %></a></td></tr> • <% Rs.movenext • wend %><table>

图书介绍页（book.asp） • <% • bookid=request(“bookid”) • Set cn=Server.CreateObject(“ADODB.Connection”) • Cn.Open “DSN=dbname” • Set rs=Server.CreateObject(“ADODB.Recordset”) • StrSql=“select * from book where 书号=‘” & bookid & “’” • Rs.Open StrSql, cn • ‘保存书号以便加入购物车 • session("bookid")=rs("书号") • %> • <table border=0> • <% for I=0 to rs.fields.count-1 %> • <tr><td><%=rs(i).name%></td> • <td><%=rs(i)%></td></tr> • <% next %> • <tr><table> • <a href=buy.asp>购买</a>

购物车函数（cart.asp） • <% • '定义购物车模块 • sub PutToCart(BookID,BookList) • '如果物品存放变量BookList中没有物品，则将选中的物品加入变量中 • if len(BookList)=0 then • BookList="'" & BookID & "'" • '如果物品列表中已有物品但用户选中的物品不在列中则加进去，否则不加 • elseIf inStr(Booklist,BookID)<=0 then • BookList=BookList & ",'" & BookID & "'" • end if • end sub • %>

将商品加入购物车（buy.asp） • <% • '取得物品编号 • BookID=session("bookID") • ‘取得上次商品列表，以便累加 • BookList=Session("BookList") • ‘将所选物品加入物品列表变量 • PutToCart BookID, BookList • session("BookList")=BookList • %>你所选购的商品已放入购物车!<hr> • <a href="show.asp">浏览购物车</a><p> • <a href="index.asp">继续购物</a><p> • <a href="clear.asp">清空购物车</a>

购物车查看与修改（show.asp） • 详见示例程序

订单信息的填写（order.htm） • <p>请输入你的基本信息：</p> • <form method="POST" action="over.asp"> • <p>姓名：<input type="text" name="user" size="15"></p> • <p>地址：<input type="text" name="addr" size="34"></p> • <p>电话：<input type="text" name="tel" size="20"></p> • <p>Email:<input type="text" name="email" size="25"></p> • <p><input type="submit" value="提交"> • <input type="reset" value="全部重写"></p> • </form>

订单的生成（over.asp） • 详见示例程序

实例 网上书店的实现