网页整合

第9章 留言板

9.1 设计留言板信息表（P319）

用户留言表结构

字段名称
数据类型
 长度 意义
留言号 自动编号 长整型 　
留言用户 文本 10 　
留言时间 日期/时间 20 　
留言主题 文本 20 　
留言内容 文本 255 用户意见反馈
电子邮件 文本 20 　
手机号码 文本 11 　
联系电话 文本 15 　

9.3 显示留言

9.3.1 显示留言列表（P326）

  查看留言 ckly_dm  留言列表  管理书店

留言用户
留言主题
留言日期
用户操作
fsxss
电子商务网站 2004-8-8 8:18:18
删除留言

9.3.2 显示留言内容（P329）

  lynr_dm  管理书店

留言用户：fsxss 留言主题：电子商务网站 留言时间：2004-8-8 8:18:18

留言内容：通过 ASP 访问网络数据库，如何实现用户注册、登录，查询、搜索和选购图书，增加网上书店数据库的图书记录，删除用户资料
电子邮件：fsxss@tom.com 手机号码：130 1234 5678 联系电话：0757-8234 5678

9.4 发布留言（P331）

  用户留言 处理留言 clly_dm.asp  管理书店

用户留言

留言用户*

留言主题*

留言内容*

电子邮件*

手机号码

联系电话

处理留言

用户留言已经提交成功！返回用户填写的留言结果。

留言用户： 留言主题： 留言时间：
留言内容：
电子邮件： 手机号码： 联系电话：

 

第10章 书籍管理

10.1 设计图书信息表（P336）

图书记录表结构

字段名称 数据类型 长度 意义
图书号 自动编号 长整型 图书编号
图书名称 文本 30 　
图书封面 文本 20 图像文件路径
作者 文本 8 　
出版社 文本 14 　
图书定价 货币 　 　
图书数量 数字 整型 　
内容简介 文本 255  
图书类别 文本 8 图书分类

10.3 显示图书（P344）

10.3.1 显示图书列表 tslb_dm  管理书店

<% '4.循环输出记录 do while not rs.eof %> <% '5.移到下一记录 if not rs.eof then rs.movenext loop %> <% '6.关闭 Recordset 对象 rs.close %> <% '关闭连接，并释放 Recordset 对象 cn.close set rs=nothing %>
图书号 图书名称 作者 出版社 图书定价 图书类别 管理图书
55 网页整合 立雅科技 电子工业出版社 39.00 大专教材 修改  删除
56 网络数据库 刘洪海 中国铁道出版社 40.00 大专教材 修改  删除

10.3.2 显示图书信息 tsxx_dm   管理书店
图书号：
55
图书名称：
网页整合
作者：
立雅科技
出版社：
电子工业出版社
图书定价：
39.00
图书数量：
9999
图书类别：
大专教材

10.4 增加图书（P350）

   zjts_dm   管理书店

图书名称：
作者：
出版社：
图书定价：
图书类别：
图书封面：
  
内容简介：
操作：

10.5 删除或修改图书信息（P353）

 1.删除图书

Set cn=Server.CreateObject("ADODB.Connection")
cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;
DATA SOURCE="&Server.MapPath ("/fsxss/mdb/wssdk.mdb")

rs.open"delete from 图书记录表1 where 图书号="+Request.Querystring("图书号"),cn,3,2
Response.Redirect"tslb.asp"

 2.修改图书 xgts_dm   管理书店

 

第11章 购物车

 * 定购图书过程：

 1.搜索图书 BookSearch.asp；

 2.处理搜索，显示搜索结果 BookList.asp；

 3.选购图书，放入购物车 Cart.asp；

 4.提交订单 Order.asp，

   将图书订单从购物车 Cart 表提交到用户订单 Order 表中；

 5.处理订单 OrderManage.asp，删除已处理过的订单。

11.1.3 搜索图书（P363）

   管理书店

   搜索图书 booksearch.asp

<input type="text" name="ssts" size=15>

请您输入图书名称
或作者、出版社。

 

11.1.4 显示搜索图书结果

  clss1_dm  管理书店

  处理搜索 clss.asp

rs.open"select * from 图书记录表

where 图书名称 like '%"+ssts+"%'

or 作者 like '%"+ssts+"%'

or 出版社 like '%"+ssts+"%' ",cn,3

<% '4.循环输出记录 do while not rs.eof %> <% '5.移到下一记录 if not rs.eof then rs.movenext loop %> <% '6.关闭 Recordset 对象 rs.close %> <% '关闭连接，并释放 Recordset 对象 cn.close set rs=nothing %>
图书号 图书名称 作者 出版社 图书定价 选购图书
55 网页整合 立雅科技 电子工业出版社 39.00 订购
56 网络数据库 刘洪海 中国铁道出版社 40.00 订购

11.2 组建购物车

11.2.1 设计购物车表（P365）

购物车表 Cart 结构

字段名称 数据类型 长度 意义
图书号 BookID 文本 3 记录图书序号
图书名称 BookName 文本 30  
定购数量 Quantity 数字 整型  
图书状态 Status 文本 1 设置标志位

11.2.2 设计购物车页面（P366）

   cart_dm  管理书店

<% Set Rs=Server.CreateObject("ADODB.Recordset") query="select * from Cart order by ID DESC" Rs.Open query,Con,3,2 sCartID=Rs("ID") while not Rs.EOF %> <% Rs.MoveNext Wend %>
图书名称 数量 操作
网络数据库
3
删除

用户姓名：
联系电话：
联系地址：
用户操作：

11.3 提交订单

11.3.1 设计订单表（P370）

用户订单表 Order 结构

字段名称 数据类型 长度 意义
图书名称 BookName 文本 30  
定购数量 Quantity 数字 整型  
用户姓名 Customer 文本 10  
联系电话 CustomerTele 文本 15  
联系地址 CustomerAddress 文本 30 　

11.3.2 完成并提交订单（P371）

  将图书订单从 Cart 表中提交到 Order 表中。

<%

'1.连接数据库
set cn=Server.CreateObject("ADODB.Connection")
cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath ("/fsxss/mdb/wssdk.mdb")

'2.获取数据

action=trim(Request("action"))
Customer=trim(Request("Customer"))
CustomerTele=trim(Request("CustomerTele"))
CustomerAddress=trim(Request("CustomerAddress"))

'3.检查信息

if action="order" then checkpass=true
if len(Customer)<1 then checkpass=false
if len(CustomerTele)<1 then checkpass=false
if len(CustomerAddress)<1 then checkpass=false

'4.创建记录集

if checkpass then
Set RsCart=Server.CreateObject("ADODB.Recordset")
Cartquery="select BookName,Quantity from Cart where ID=" & Request("ID")
RsCart.Open Cartquery,Con,3,2

'5.把数据提交到订单 Order 中

query="insert into [Order] (BookName,"
query=query+"Quantity,"
query=query+"Customer,"
query=query+"CustomerTele,"
query=query+"CustomerAddress) Values("
query=query+RsCart("BookName") + ", "
query=query+RsCart("Quantity") + ", "
query=query+Customer + ", "
query=query+CustomerTele + ", "
query=query+CustomerAddress + ") "

cn.Execute query

'5.删除状态为“1”的图书项

query="delete from Cart where Status=1 "
cn.ExeCute query

Response.Write"谢谢光临！ <a href='booksearch.asp'>返回</a>"
end if
%>

11.4 处理订单

11.4.1 设计处理订单页面（P374）

<%while not Rs.EOF%> <% Rs.MoveNext Wend %>
书籍名称 用户姓名 联系电话 用户操作
网络数据库 林木森 0757-82345678
删除

 

11.4.2 显示订单（P376）

  ordermanage.asp  管理书店

   <a href="omdelete.asp?ID=<%=Rs("ID")%>">删除</a>

   删除已处理过的订单

   "delete from [Order] where ID="+Request.Querystring("ID")

第12章 数据库结构化查询语言 SQL

12.8 SQL 核心语句（P396）

 Insert Delete UpDate Select Load Data Replace