Microsoft Word - 13.doc

Size: px

Start display at page:

Download "Microsoft Word - 13.doc"

阴施
5 years ago
Views:

第 13 章网店购物车一个网站开展了电子商务, 把琳琅满目的商品呈现在用户的面前这也就实现了电子商务在线交易的前提怎样才能为用户提供友好完整的购物流程呢? 至关重要的一步就是让用户放置选购商品的购物车功能利用 Dreamweaver 为网站设计编写一套网店购物车系统需要做哪些安排? 需要做哪些操作? 其实并不复杂, 简单的电子商务这旅从这开始 13.

1 第 13 章网店购物车一个网站开展了电子商务, 把琳琅满目的商品呈现在用户的面前这也就实现了电子商务在线交易的前提怎样才能为用户提供友好完整的购物流程呢? 至关重要的一步就是让用户放置选购商品的购物车功能利用 Dreamweaver 为网站设计编写一套网店购物车系统需要做哪些安排? 需要做哪些操作? 其实并不复杂, 简单的电子商务这旅从这开始 13.1 购物信息库的设计一个简单的网店购物车系统必须具备一套完善的购物信息库在这个库中通常会包括两个表 : 商品信息表 (tb_goods) 购物信息表(tb_shopping) 下面就具体来介绍整个购物信息库(Access 数据库 ) 的设计流程 (1) 单击开始程序 Microsoft Office Microsoft Office Access 2003 命令, 打开 Microsoft Access 窗口 (2) 单击新建文件空数据库命令, 弹出文件新建数据库对话框可以根据实际情况, 保存到相应位置并在文件名文本框中输入数据库文件名, 例如 shopping.mdb, 如图 13.1 所示图 13.1 文件新建数据库对话框 (3) 单击创建按钮, 弹出 shopping: 数据库 (Access 2000 文件格式 ) 窗口, 如图 13.2 所示

2 301 图 13.2 shopping: 数据库 (Access 2000 文件格式 ) 窗口 (4) 单击使用设计器创建表按钮, 弹出表 1: 表设计窗口单击文件保存命令, 把表进行重新命名, 例如 tb_goods (5) 在 tb_goods: 表设计窗口中按照表 13.1 所示定义所有字段信息表 13.1 tb_goods: 表所有字段信息字段名称数据类型说明 id 自动编号商品编号 Title 文本商品名称 Price 数字交易价格 saler 文本卖家称呼 img 文本图片说明 (6) 右击 id 字段, 选择主键命令, 为表设置主键, 如图 13.3 所示 (7) 单击窗口右上角的关闭按钮, 系统会提示保存所做的修改返回到 shopping: 数据库 (Access 2000 文件格式 ) 窗口, 会发现所设计的表 tb_goods 已经存在于当中, 如图 13.4 所示图 13.3 为表设置主键图 13.4 shopping: 数据库 (Access 2000 文件格式 ) 窗口 (8) 在实际操作中, 可以双击打开 tb_goods 表记录管理窗口在这个窗口中, 可以选择录入编辑或者删除一些记录信息, 如图 13.5 所示

2 tb_shopping: 表所有字段信息字段名称数据类型说明 id 自动编号交易编号 goodid 数字商品编号 dt 日期 / 时间交易时间 (11) 选择 dt 字段, 在默认值文本框中输入 now() 目的是把当前时间做为记录新增时, dt 字段的默认值, 如图 13.

3 302 图 13.5 tb_goods 表记录管理窗口 (9) 单击使用设计器创建表按钮, 弹出表 1: 表设计窗口单击文件保存命令, 把表进行重新命名, 例如 tb_shopping (10) 在 tb_shopping: 表设计窗口中按照表 13.2 所示定义所有字段信息表 13.2 tb_shopping: 表所有字段信息字段名称数据类型说明 id 自动编号交易编号 goodid 数字商品编号 dt 日期 / 时间交易时间 (11) 选择 dt 字段, 在默认值文本框中输入 now() 目的是把当前时间做为记录新增时, dt 字段的默认值, 如图 13.6 所示 (12) 右击 id 字段, 选择主键命令, 为表设置主键, 如图 13.7 所示图 13.6 dt 字段的默认值设置图 13.7 为表设置主键 (13) 单击窗口右上角的关闭按钮, 系统会提示保存所做的修改返回到 shopping: 数据库 (Access 2000 文件格式 ) 窗口, 会发现所设计的表 tb_shopping 已经存在于当中, 如图 13.8 所示 (14) 打开 Dreamweaver 的设计界面单击文件新建命令, 新建一个标准 ASP 文件 (15) 单击窗口数据库命令, 弹出应用程序面板, 如图 13.9 所示

303 图 13.8 shopping: 数据库 (Access 2000 文件格式 ) 窗口图 13.

$Driver={Microsoft Access Driver (*.mdb)};dbq=i:\site\data\shopping.$ 11 所示的对话框图 13.10 自定义连接字符串对话框图 13.

4 303 图 13.8 shopping: 数据库 (Access 2000 文件格式 ) 窗口图 13.9 应用程序面板 (16) 单击 + 自定义连接字符串命令, 弹出自定义连接字符串对话框在连接名称文本框中输入 conn 在连接字符串文本框中输入 Driver={Microsoft Access Driver (*.mdb)};dbq=i:\site\data\shopping.mdb 选中 Dreamweaver 应连接选项组下的使用此计算机的驱动程序选项, 如图所示 (13) 单击测试按钮, 如果连接创建成功, 将弹出如图所示的对话框图自定义连接字符串对话框图连接创建成功提示 (14) 单击确定按钮, 关闭自定义连接字符串对话框返回应用程序面板, 向导将自动在其下拉列表中添加一条 conn 的列表选项, 如图所示 (15) 单击窗口文件命令, 弹出文件面板将看到在站点目录下会自动创建一个名为 Connections 的文件夹在其下将会新增一个名为 conn.asp 的文件, 如图所示图应用程序面板图文件列表面板

5 商品展示的实现商品展示功能用来显示商品的基本信息, 如商品的图片名称定价和卖家名称通过展示功能, 帮助用户选择商品商品展示页面设计商品展示页面读取所有商品信息, 并分页显示商品信息商品展示页面设计如下所示 (1) 打开 Dreamweaver 的设计界面单击文件新建命令, 新建一个名为 list.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入工具栏中常用表格命令在弹出的表格对话框中进行相应设置, 在文档窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图所示图商品展示页面排版 (4) 单击窗口绑定命令, 弹出应用程序面板, 如图所示 (5) 单击 + 记录集( 查询 ) 命令, 弹出记录集对话框在名称文本框中输入 rs 在连接下拉列表中选择 conn 选项表格下拉列表中选择 tb_goods 选项, 如图所示

305 图 13.15 绑定命令图 13.16 记录集对话框 (6) 单击测试按钮, 如果记录集创建成功, 将弹出如图 13.

6 305 图绑定命令图记录集对话框 (6) 单击测试按钮, 如果记录集创建成功, 将弹出如图所示的对话框 (7) 单击确定按钮, 关闭记录集对话框返回应用程序面板, 向导将自动在其下拉列表中添加一条 rs 的列表选项, 如图所示图记录集创建测试图应用程序面板 (8) 在显示商品名称所对应的表格单元格中单击鼠标在应用程序面板中选中记录集 (rs) title 选项单击插入按钮, 把 title 字段插入到单元格中用上述同样的的方法, 在交易价格和卖家称呼所对应的单元格中插入记录集字段, 如图所示

7 306 图插入所有记录集字段 (9) 选中用于显示商品图片说明的图片对象, 在属性检查器中源文件文本框中输入 =(rs.fields.item("img").value), 如图所示图图片说明对象 (10) 选中购买按钮, 在属性检查器中链接文本框中输入 buy.asp?id==(rs.fields.item("id").value), 如图所示图购买按钮 (11) 单击窗口服务器行为命令, 弹出应用程序面板, 如图所示

307 图 13.22 应用程序面板 (12) 直接通过鼠标或者借助标签选择器选中表格内用于显示数据的表格, 如图 13.23 所示图 13.23 标签选择器 (13) 单击 + 重复区域命令, 弹出重复区域对话框在记录集下拉列表中选择 rs 选项在显示选项组文本框中输入 5, 如图 13.

8 307 图应用程序面板 (12) 直接通过鼠标或者借助标签选择器选中表格内用于显示数据的表格, 如图所示图标签选择器 (13) 单击 + 重复区域命令, 弹出重复区域对话框在记录集下拉列表中选择 rs 选项在显示选项组文本框中输入 5, 如图所示单击确定按钮, 关闭对话框 (14) 把鼠标定位到用于放置分页信息的区域单击插入应用程序对象显示记录记数记录集导航状态命令, 弹出 Recordset Navigation States 对话框在 Recordset 下拉列表中选择 rs 选项, 如图所示图重复区域对话框图 Recordset Navigation States 对话框 (15) 单击确定按钮, 关闭对话框 Dreamweave 将在文档窗口中自动插入一排用于记录统计的信息, 如图所示图插入记录集导航状态 (16) 把鼠标定位到用于放置分页控制的按钮区域单击插入应用程序对象记录集分页记录集导航条命令, 弹出记录集导航条对话框在记录集下拉列表中选择 rs 选项在显示方式选项组中选中文本选项, 如图所示

308 图 13.27 记录集导航条对话框 (17) 单击确定按钮, 关闭对话框 Dreamweave 将在文档窗口中自动插入一排用于翻页控制的导航条, 如图 13.28 所示启动 Internet Explorer, 在地址栏中输入 http://localhost/list.asp 将会看到如图 13.

asp), 完整代码如下 : @LANGUAGE="VBSCRIPT" CODEPAGE="936" <!--#include file="connections/conn.asp" --> Dim rs Dim rs_numrows Set rs = Server.CreateObject("ADODB.

9 308 图记录集导航条对话框 (17) 单击确定按钮, 关闭对话框 Dreamweave 将在文档窗口中自动插入一排用于翻页控制的导航条, 如图所示启动 Internet Explorer, 在地址栏中输入将会看到如图所示的效果图插入记录集导航条图查看生成代码分析商品分页列表页面 (list.asp) 商品分页列表页面 (list.asp), 完整代码如下 CODEPAGE="936"  Dim rs Dim rs_numrows Set rs = Server.CreateObject("ADODB.Recordset") rs.activeconnection = MM_conn_STRING rs.source = "SELECT * FROM tb_goods" rs.cursortype = 0 rs.cursorlocation = 2 rs.locktype = 1 rs.open() rs_numrows = 0 ' 定义记录集变量 ' 定义记录当前记录位置的变量 ' 建立记录集对象 ' 指定数据库链接字符串 ' 获取记录

10 309 Dim Repeat1 numrows Dim Repeat1 index ' 定义显示记录的总数目变量 ' 定义显示记录的数目变量 Repeat1 numrows = 5 Repeat1 index = 0 rs_numrows = rs_numrows + Repeat1 numrows ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rs_total ' 定义记录总数变量 Dim rs_first ' 定义初始行变量 Dim rs_last ' 定义结束行变量 ' set the record count rs_total = rs.recordcount ' 获取记录集总数 ' set the number of rows displayed on this page If (rs_numrows < 0) Then rs_numrows = rs_total Elseif (rs_numrows = 0) Then rs_numrows = 1 ' set the first and last displayed record rs_first = 1 ' 设置开始行为 1 rs_last = rs_first + rs_numrows - 1 ' 计算结束行 ' if we have the correct record count, check the other stats If (rs_total <> -1) Then If (rs_first > rs_total) Then rs_first = rs_total If (rs_last > rs_total) Then rs_last = rs_total If (rs_numrows > rs_total) Then ' 如果记录集总数正确 ' 如果结束行数大约记录总数 ' 如果当前记录行数大于记录总数 rs_numrows = rs_total ' *** Recordset Stats: if we don't know the record count, manually count them If (rs_total = -1) Then ' 如果获取的记录总数为 -1 ' count the total records by iterating through the recordset rs_total=0 ' 设置记录总数为 0 While (Not rs.eof) ' 依次循环访问每个记录 rs_total = rs_total + 1 ' 记录总数加 1 rs.movenext ' 访问下一个记录 Wend ' reset the cursor to the beginning If (rs.cursortype > 0) Then rs.movefirst Else ' 访问第一个记录

11 310 rs.requery ' 重新查询 ' set the number of rows displayed on this page If (rs_numrows < 0 Or rs_numrows > rs_total) Then rs_numrows = rs_total ' set the first and last displayed record rs_first = 1 ' 设置开始行为 1 rs_last = rs_first + rs_numrows - 1 If (rs_first > rs_total) Then rs_first = rs_total If (rs_last > rs_total) Then rs_last = rs_total Dim MM_paramName 以下代码实现跳转到指定记录分页 Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rs MM_rsCount = rs_total MM_size = rs_numrows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then ' 如果结束行数大约记录总数

12 311 MM_param = Request.QueryString("offset") If (MM_param <> "") Then MM_offset = Int(MM_param) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext ' 访问下一个记录 MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext ' 访问下一个记录 MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size

13 312 ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext ' 访问第一个记录 ' 重新查询 ' 访问下一个记录 MM_index = MM_index + 1 Wend ' *** Move To Record: update recordset stats ' set the first and last displayed record rs_first = MM_offset + 1 rs_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (rs_first > MM_rsCount) Then rs_first = MM_rsCount If (rs_last > MM_rsCount) Then rs_last = MM_rsCount ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone=""

14 313 ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstitem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End Function 以下代码设置分页导航信息 Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then ' 定义第一页链接字符串变量 ' 定义最后一页链接字符串变量 ' 定义下一页链接字符串变量 ' 定义上一页链接字符串变量

15 314 MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) 以下代码显示商品展示页面 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " <html xmlns=" <head> <meta http-equiv="content-type" content="text/html; charset=gb2312" /> <title> 商品展示页面 </title> <style type="text/css">  </style></head> <body> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">

16 315 <td width="146" rowspan="4" valign="top" background="imgs/logobg.jpg"><img src="imgs/logo.jpg" width="146" height="478" /></td> <td height="31" background="imgs/titlebg.gif"><span class="style1"> 商品展示记录 =(rs_first) 到 =(rs_last) ( 总共 =(rs_total) ) </span></td> <td height="400" valign="top" bgcolor="#ede8dd" style="padding:5px;"> While ((Repeat1 numrows <> 0) AND (NOT rs.eof)) <table width="100%" border="0" cellspacing="0" cellpadding="5" style="border:1px solid #CCCCCC;"> <td width="90" rowspan="3"><img src="=(rs.fields.item("img").value)" /></td> <td colspan="2">=(rs.fields.item("title").value)</td> <td width="160" class="price">=(rs.fields.item("price").value)</td> <td rowspan="2" class="price"><a href="buy.asp?id==(rs.fields.item("id").value)"><img src="imgs/btn.gif" width="59" height="26" border="0" /></a></td> <td> 卖家 : =(rs.fields.item("saler").value)</td> </table> Repeat1 index=repeat1 index+1 Repeat1 numrows=repeat1 numrows-1 rs.movenext ' 访问下一个记录 () Wend </td> <td height="50" bgcolor="#ede8dd" style="padding:5px;"> 以下代码显示分页导航 <table border="0" width="80%"> <td width="23%" align="center"> If MM_offset <> 0 Then <a href="=mm_movefirst"> 第一页 </a> ' end MM_offset <> 0 </td> <td width="31%" align="center"> If MM_offset <> 0 Then <a href="=mm_moveprev"> 前一页 </a> ' end MM_offset <> 0 </td> <td width="23%" align="center"> If Not MM_atTotal Then <a href="=mm_movenext"> 下一页 </a> ' end Not MM_atTotal </td> <td width="23%" align="center"> If Not MM_atTotal Then <a href="=mm_movelast"> 最后一页 </a> ' end Not MM_atTotal

17 316 </td> </table></td> <td height="31" align="center" background="imgs/titlebg.gif"> </td> </table> </body> </html> 以下代码关闭记录集对象, 清空记录集对象 rs.close() Set rs = Nothing 13.2 购物功能的实现购物功能的实现, 可以通过 2 个页面进行处理分别是商品购买页面 (buy.asp) 购物车页面 (buy_ok.asp) 商品购买页面 (buy.asp) 商品购物页面实现商品购买功能, 将指定商品的 id 添加到数据表中商品购物页面如下所示 (1) 打开 Dreamweaver 的设计界面单击文件新建命令, 新建一个名为 buy.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入工具栏中常用表格命令在弹出的表格对话框中进行相应设置, 在文档窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图所示

317 图 13.30 录入成功信息提示页面排版 (4) 单击窗口服务器行为命令, 弹出应用程序面板, 如图 13.

tb_shopping (goodsid) VALUES ("&request.querystring("id")&"), 如图 13.32 所示图 13.31 应用程序面板图 13.

18 317 图录入成功信息提示页面排版 (4) 单击窗口服务器行为命令, 弹出应用程序面板, 如图所示 (5) 单击 + 命令命令, 弹出命令对话框在名称文本框中输入 rs 在连接下拉列表中选择 conn 选项在类型下拉列表中选择插入选项在 SQL 文本框中输入 INSERT INTO tb_shopping (goodsid) VALUES ("&request.querystring("id")&"), 如图所示图应用程序面板图命令对话框 (6) 单击确定按钮, 关闭命令对话框返回应用程序面板, 向导将自动在其下拉列表中添加一条命令 (rs) 的列表选项, 如图所示 (7) 单击 Dreamweaver 插入工具栏中 HTML 文件头: 刷新命令在弹出的刷新对话框中延迟文本框中输入 2 在操作选项组中选中转到 URL: 选项, 并在其对应的文本框中输入 buy_ok.asp, 如图所示

318 图 13.33 应用程序面板 (8) 单击确定按钮, 关闭对话框图 13.34 刷新对话框 13.2.2 购物车页面 (buy_ok.asp) 在商品购买页面中, 商品添加成功后 2 秒后, 跳转到购物车页面购物车页面设计如下所示 (1) 打开 Dreamweaver 的设计界面单击文件新建命令, 新建一个名为 buy_ok.

19 318 图应用程序面板 (8) 单击确定按钮, 关闭对话框图刷新对话框购物车页面 (buy_ok.asp) 在商品购买页面中, 商品添加成功后 2 秒后, 跳转到购物车页面购物车页面设计如下所示 (1) 打开 Dreamweaver 的设计界面单击文件新建命令, 新建一个名为 buy_ok.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入工具栏中常用表格命令在弹出的表格对话框中进行相应设置, 在文档窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图所示图购物车页面排版 (4) 单击窗口绑定命令, 弹出应用程序面板, 如图所示 (5) 单击 + 记录集( 查询 ) 命令, 弹出记录集对话框在名称文本框中输入 rs 在连接下拉列表中选择 conn 选项在 SQL 文本框中输入 SELECT * FROM tb_goods a,tb_shopping b WHERE a.id=b.id, 如图所示

20 319 图绑定命令图记录集对话框 (6) 单击测试按钮, 如果记录集创建成功, 将弹出如图所示的对话框 (7) 单击确定按钮, 关闭记录集对话框返回应用程序面板, 向导将自动在其下拉列表中添加一条 rs 的列表选项, 如图所示图记录集创建测试图应用程序面板 (8) 在显示商品名称所对应的表格单元格中单击鼠标在应用程序面板中选中记录集 (rs) title 选项单击插入按钮, 把 title 字段插入到单元格中用上述同样的的方法, 在交易价格和卖家称呼所对应的单元格中插入记录集字段, 如图所示

320 图 13.40 插入所有记录集字段 (9) 选中用于显示商品图片说明的图片对象, 在属性检查器中源文件文本框中输入 =(rs.fields.item("img").value), 如图 13.

asp (11) 单击窗口服务器行为命令, 弹出应用程序面板, 如图 13.42 所示 (12) 直接通过鼠标或者借助标签选择器选中表格内用于显示数据的表格, 如图 13.

21 320 图插入所有记录集字段 (9) 选中用于显示商品图片说明的图片对象, 在属性检查器中源文件文本框中输入 =(rs.fields.item("img").value), 如图所示图图片说明对象 (10) 按照上述同样的方法, 分别选中继续按钮和结算按钮在其对应的属性检查器中链接文本框内输入 list.asp 和 pay.asp (11) 单击窗口服务器行为命令, 弹出应用程序面板, 如图所示 (12) 直接通过鼠标或者借助标签选择器选中表格内用于显示数据的表格, 如图所示 (13) 单击 + 重复区域命令, 弹出重复区域对话框在记录集下拉列表中选择 rs 选项在显示选项组中选中所有记录选项, 如图所示图应用程序面板图标签选择器图重复区域对话框 (14) 单击确定按钮, 关闭对话框

321 13.2.3 测试购物功能启动 Internet Explorer, 在地址栏中输入 http://localhost/list.asp 打开商品展示页面, 如图 13.45 所示单击购买按钮, 进入 buy.asp 页面商品信息会自动录入到数据库, 如图 13.46 所示图 13.

22 测试购物功能启动 Internet Explorer, 在地址栏中输入打开商品展示页面, 如图所示单击购买按钮, 进入 buy.asp 页面商品信息会自动录入到数据库, 如图所示图查看图查看经过 2 秒的防恶意刷新处理, 系统会自动转到购物车 (buy_ok.asp) 页面, 如图所示图查看

23 生成代码分析商品购买页面 (buy.asp) 商品购买页面 (buy.asp), 完整代码如下 CODEPAGE="936"  set rs = Server.CreateObject("ADODB.Command") ' 建立 Command 对象 rs.activeconnection = MM_conn_STRING ' 指定数据库链接字符串 rs.commandtext = "INSERT INTO tb_shopping (goodsid) VALUES ("&request.querystring("id")&") " 加商品的 SQL 语句 rs.commandtype = 1 rs.commandtimeout = 0 rs.prepared = true rs.execute() 以下代码显示商品购买页面 ' 指定 SQL 语句 ' 指定添 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " <html xmlns=" <head> <meta http-equiv="content-type" content="text/html; charset=gb2312" /> <title> 商品购买页面 </title> <style type="text/css">  </style> 以下代码实现页面停留 2 秒后, 跳转到购物车页面 buy_ok.asp <meta http-equiv="refresh" content="2;url=buy_ok.asp" /> </head> <body> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <td width="146" rowspan="4" valign="top" background="imgs/logobg.jpg"><img src="imgs/logo.jpg" width="146" height="478" /></td> <td height="31" background="imgs/titlebg.gif"><span class="style1"> 商品购买 </span></td> <td height="400" align="center" valign="middle" bgcolor="#ede8dd" style="padding:5px;"><p> 商品已放入购物车!</p> <p>2 秒后自动进入列表页!</p></td>

24 323 <td height="50" bgcolor="#ede8dd" style="padding:5px;"> </td> <td height="31" align="center" background="imgs/titlebg.gif"> </td> </table> </body> </html> 生成代码分析购物车页面 (buy_ok.asp) 购物车页面 (buy_ok.asp), 完整代码如下 CODEPAGE="936"  Dim rs Dim rs_numrows Set rs = Server.CreateObject("ADODB.Recordset") rs.activeconnection = MM_conn_STRING rs.source = "SELECT * FROM tb_goods a,tb_shopping b WHERE a.id=b.id" rs.cursortype = 0 rs.cursorlocation = 2 rs.locktype = 1 rs.open() ' 获取记录 rs_numrows = 0 Dim Repeat1 numrows Dim Repeat1 index Repeat1 numrows = -1 Repeat1 index = 0 rs_numrows = rs_numrows + Repeat1 numrows 以下代码显示购物车页面 ' 定义记录集变量 ' 定义记录当前记录位置的变量 ' 建立记录集对象 ' 指定数据库链接字符串 ' 定义显示记录的总数目变量 ' 定义显示记录的数目变量 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " <html xmlns=" <head> <meta http-equiv="content-type" content="text/html; charset=gb2312" /> <title> 购物车页面 </title> <style type="text/css"> <!-- body,td,th { font-family: 宋体 ; font-size: 12px; color: #000000; }.price{font-size:18px;color:#ac2c2b; font-weight:bold;}.style1 {color: #FFFFFF}

25 324 --> </style></head> <body> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <td width="146" rowspan="4" valign="top" background="imgs/logobg.jpg"><img src="imgs/logo.jpg" width="146" height="478" /></td> <td height="31" background="imgs/titlebg.gif"><span class="style1"> 购物车 </span></td> <td height="400" valign="top" bgcolor="#ede8dd" style="padding:5px;"> 循环显示所有商品信息 While ((Repeat1 numrows <> 0) AND (NOT rs.eof)) <table width="100%" border="0" cellspacing="0" cellpadding="5" style="border:1px solid #CCCCCC;"> <td width="90" rowspan="3"><img src="=(rs.fields.item("img").value)" /></td> <td>=(rs.fields.item("title").value)</td> <td class="price"><a href="buy.asp?id=">=(rs.fields.item("price").value)</a></td> <td> 卖家 : =(rs.fields.item("saler").value)</td> </table> Repeat1 index=repeat1 index+1 Repeat1 numrows=repeat1 numrows-1 rs.movenext ' 访问下一个记录 () Wend </td> <td height="50" align="center" bgcolor="#ede8dd" style="padding:5px;"><a href="#"> 继续 </a> <a href="#"> 结算 </a></td> <td height="31" align="center" background="imgs/titlebg.gif"> </td> </table> </body> </html> rs.close() Set rs = Nothing

26 结算功能的实现结算功能页面设计结算功能页面统计购物车的所有价钱, 并显示总价结算功能页面设计过程如下所示 (1) 打开 Dreamweaver 的设计界面单击文件新建命令, 新建一个名为 pay.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入工具栏中常用表格命令在弹出的表格对话框中进行相应设置, 在文档窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果, 如图所示图录入成功信息提示页面排版 (4) 选中返回按钮, 在其对应的属性检查器中链接文本框内输入 list.asp, 如图所示图返回按钮属性检查器 (5) 单击窗口绑定命令, 弹出应用程序面板, 如图所示 (6) 单击 + 记录集( 查询 ) 命令, 弹出记录集对话框在名称文本框中输入 rs 在连接下拉列表中选择 conn 选项在 SQL 文本框中输入 SELECT SUM(a.price) as totalmoney FROM tb_goods a,tb_shopping b WHERE a.id=b.id, 如图所示

326 图 13.49 应用程序面板图 13.50 命令对话框 (7) 单击测试按钮, 如果记录集创建成功, 将弹出如图 13.

27 326 图应用程序面板图命令对话框 (7) 单击测试按钮, 如果记录集创建成功, 将弹出如图所示的对话框 (8) 单击确定按钮, 关闭记录集对话框返回应用程序面板, 向导将自动在其下拉列表中添加一条 rs 的列表选项, 如图所示图记录集创建测试图应用程序面板 (9) 在显示结算统计所对应的表格单元格中单击鼠标在应用程序面板中选中记录集 (rs) totalmoney 选项单击插入按钮, 把 totalmoney 字段插入到单元格中, 如图所示测试结算功能启动 Internet Explorer, 在地址栏中输入打开购物车页面, 如图所示

28 327 图插入记录集字段图查看单击结算按钮, 进入 pay.asp 页面系统会自动对购物车内的所有商品进行结算, 如图所示图查看生成代码分析结算功能页面 (pay.asp) 结算功能页面 (pay.asp), 完整代码如下 CODEPAGE="936"

29 328 Dim rs Dim rs_numrows Set rs = Server.CreateObject("ADODB.Recordset") rs.activeconnection = MM_conn_STRING ' 定义记录集变量 ' 定义记录当前记录位置的变量 ' 建立记录集对象 ' 指定数据库链接字符串 rs.source = "SELECT SUM(a.price) as totalmoney FROM tb_goods a,tb_shopping b WHERE a.id=b.id" rs.cursortype = 0 rs.cursorlocation = 2 rs.locktype = 1 rs.open() ' 获取记录 rs_numrows = 0 以下代码显示结算功能页面 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " <html xmlns=" <head> <meta http-equiv="content-type" content="text/html; charset=gb2312" /> <title> 结算功能页面 </title> <style type="text/css">  </style> </head> <body> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <td width="146" rowspan="4" valign="top" background="imgs/logobg.jpg"><img src="imgs/logo.jpg" width="146" height="478" /></td> <td height="31" background="imgs/titlebg.gif"><span class="style1"> 结算 </span></td> <td height="400" align="center" valign="middle" bgcolor="#ede8dd" style="padding:5px;"><p> 购物车中累计消费 </p> <p class="style2">=(rs.fields.item("totalmoney").value)</p></td> <td height="50" align="center" bgcolor="#ede8dd" style="padding:5px;"><a href="list.asp"> 返回 </a></td>

30 329 <td height="31" align="center" background="imgs/titlebg.gif"> </td> </table> </body> </html> 以下代码关闭记录集对象, 并清空记录集对象 rs.close() Set rs = Nothing

Microsoft Word - 10.doc

Microsoft Word - 10.doc 第 10 章打造站内搜索利用站内搜索可以帮助网页浏览者快速检索到站点内任意资源用 Dreamweaver 打造高效的站内搜索时, 需要考虑到效率准确性这些方面的因素开发过程中, 应该尽量兼顾到搜索过程及结果的人性化智能化操作 10.1 站内地址库的设计可以把整个站点中的一些重要内容, 按照一定的规则进行划分例如, 可以依据栏目功能进行归类, 并且加以注释, 连同具体 URL 地址记录到数据库内以备搜索