Microsoft Word - 08.doc

Transcription

1 第 8 章 Dreamweaver CS3 数据库数据操作 借助 Dreamweaver CS3 的数据操作功能, 网页设计师可以不用手写代码来实现对库的操作 其所提供的 DataGrid DataList Repeater 等数据显示控件, 让数据库开发变得更为灵活多变 本章以制作一个无权限控制的简单留言系统, 讲解如何对数据库记录的录入 修改和删除等操作 8.1 服务器配置 在进行留言系统开发前, 应该先对服务器进行配置, 构建好开发环境 具体步骤如下所示 (1) 单击 开始 所有程序 管理工具 Internet 信息服务 (IIS) 管理器 命令, 打开 Internet 信息服务 窗口 (2) 右击 本地计算机 网站 默认站点 节点, 选择 属性 命令 弹出 默认站点属性 窗口 (3) 选择 主目录 选项卡 在 本地路径 文本框中输入本地站点的路径, 例如 F:\guest 分别选中 读取 选项和 写入 选项, 如图 8.1 所示 图 8.1 主目录 选项卡 (4) 选择 文档 选项卡 选中 启用默认内容文档 选项 在其列表框中删除默认的所有选项 单击 添加 按钮, 弹出 添加内容页 对话框 在 默认内容页 文本框中输入 index.asp, 如图 8.2 所示 (5) 单击 确定 按钮, 关闭对话框 返回 默认站点属性 窗口, 会在 启用默认内容文档 列表框中新增了一条 index.asp 选项, 如图 8.3 所示

2 123 图 8.2 添加内容页 对话框图 8.3 启用默认内容文档 列表框 (6) 单击 确定 按钮, 关闭 默认站点属性 窗口 (7) 打开 Dreamweaver 的设计界面 单击 站点 新建站点 命令, 在弹出的 站点定义 对话框中定义站点名称 在 您打算为您的站点起什么名字? 文本框中输入 guest, 如图 8.4 所示 (8) 单击 下一步 按钮, 在 编辑文件 对话框中会询问是否要使用服务器技术 假定选中 是, 我想使用服务器技术 选项, 可以进一步选择一种默认的服务器技术, 例如选中 ASP VBScript 选项, 如图 8.5 所示 图 8.4 站点定义 对话框图 8.5 编辑文件 对话框 (9) 单击 下一步 按钮, 可以选择在开发过程中处理文件的方式 假定选中 在本地进行编辑, 然后上传到远程测试服务器 的选项, 以进一步在 您将把文件存储在计算机上的什么位置? 文本框中定义文件所在本地的存储位置, 如 F:\guest\, 如图 8.6 所示 (10) 单击 下一步 按钮, 在 您应该使用什么 URL 来浏览站点的根目录? 文本框中输入 单击 测试 URL 按钮, 如果成功, 将弹出测试成功的对话框, 如图 8.7 所示

3 124 图 8.6 文件处理方式定义图 8.7 站点的根目录 URL (11) 单击 下一步 按钮, 会询问对编辑完一个文件后, 是否将该文件复制到另一台计算机中? 该计算机可能是您与团队成员共享的生产用 Web 服务器或模拟调试服务器 选择 否 选项, 如图 8.8 所示 (12) 单击 下一步 按钮, 向导会弹出显示设置概要的画面, 如图 8.9 所示 图 8.8 文件复制选项设置 图 8.9 设置概要画面 (13) 单击 完成 按钮, 关闭设置对话框 在随即将出现 文件 列表, 如图 8.10 所示

4 125 图 8.10 文件 列表面板服务器配置完成后, 可以编写个一个简单的 ASP 文件进行测试 具体步骤如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 弹出 新建文档 窗口 (2) 在 类别 列表框中选择 动态页 选项 在其右侧所对应的 动态页 列表框中选择 ASP VBScript 选项, 如图 8.11 所示 (3) 单击 创建 按钮, 向导将新建一个标准 ASP 文件 (4) 单击 文件 保存 命令, 弹出 另存为 对话框 浏览到本地站点的路径, 例如 F:\guest 在 文件名 文本框中输入 index.asp, 如图 8.12 所示 图 8.11 新建文档 窗口图 8.12 另存为 对话框 (5) 单击 插入 工具栏中 ASP 服务器变量 命令, 弹出 服务器变量 对话框, 如图 8.13 所示 图 8.13 服务器变量 命令 (6) 在 变量 下拉列表中选中 REMOTE_HOST 选项 选中 用 环绕 选项, 如图 8.14 所示 图 8.14 服务器变量 对话框

5 126 (7) 单击 确定 按钮,Dreamweaver 将会在代码窗口中自动插入如下代码 = Request.ServerVariables("REMOTE_HOST") 获取发出请求的远程主机名称 注意 :ServerVariables 为环境变量的集合 允许读取 HTTP 头 可以通过使用 HTTP_ 前缀来读取任何头信息, 例如使用 "REMOTE_HOST" 来获取发出请求的远程主机名称 (8) 单击 文件 保存 命令, 再次保存对该 ASP 文件的修改 (9) 启动 Internet Explorer, 在地址栏中输入 如果成功编译, 将会显示如图 8.15 所示的信息 图 8.15 查看 建立数据源 对于常见的 ASP 应用程序, 都会通过几种常见的数据库驱动程序连接到数据库 例如开放式数据库连接 (ODBC) 和嵌入式数据库 (OLE DB) 驱动程序 这些驱动程序用作解释器, 使得 Web 应用程序与数据库能够进行正常通信 数据库连接 (Connection) 对象 在 ASP 中用来存取数据库的对象统称 ADO 对象 (Active Data Objects) 而其中的 Connection 对象就是用来负责连接数据库 因此对于数据库的任何操作, 如插入 修改 删除 检索等操作, 都必须依赖于 Connection 对象来完成 在执行每一项数据库操作时, 都需要一个 Connection 对象与其对应 而这些 Connection 对象就会占用服务器的一部分资源 但考虑到数据库服务器同时连接数有所限制, 因此在使用完数据库连接后立即进行关闭操作, 将变得尤为重要 下面就提供了 Connection 对象常用方法及属性列表, 如表 所示 表 7.1 Connection 对象常用方法及属性列表 方法 Open Execute Close 说明可打开 Connection 对象执行的 SQL 语句 存储过程等命令可关闭 Connection 对象以便释放系统资源 表 7.2 Connection 对象常用属性列表 属性 说明

6 127 Mode 配置 Connection 对象中修改数据的可用权限 数据库连接路径的最佳选择 在 Dreamweaver CS3 创建数据库连接时, 在连接路径的选择上有很大的讲究 由于借助 Server.Mappath 的两种相对路径连接方式 ( 相对文档路径和相对根目录路径 ) 在一定程度上都不能完整地保证数据库路径的正确性, 所以本地绝对物理路径的连接方式就成了最佳选择 注意 :Server.Mappath 方法可以将指定的相对或虚拟路径映射到服务器上所对应的物理路径 例如 Server.Mappath("guest.mdb") 在上一章中曾创建了一个名为 guest.mdb 的 Access 留言板数据库 下面就将其作为实例来介绍 Dreamweaver CS3 中创建数据库连接的方法, 具体步骤如下 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个标准 ASP 文件 (2) 单击 窗口 数据库 命令, 弹出 应用程序 窗口, 如图 8.16 所示 (3) 单击 + 自定义连接字符串 命令, 弹出 自定义连接字符串 对话框 在 连接名称 文本框中输入 conn 在 连接字符串 文本框中输入 Driver={Microsoft Access Driver (*.mdb)};dbq=f:\guest\data\guest.mdb 选中 Dreamweaver 应连接 选项组下的 使用此计算机的驱动程序 选项, 如图 8.17 所示 图 8.16 应用程序 窗口图 8.17 自定义连接字符串 对话框 (4) 单击 测试 按钮, 如果连接创建成功, 将弹出如图 8.18 所示的对话框 (5) 单击 确定 按钮, 关闭 自定义连接字符串 对话框 返回 应用程序 窗口, 向导将自动在其下拉列表中添加一条 conn 的列表选项, 如图 8.19 所示 图 8.18 连接创建成功提示 图 8.19 应用程序 窗口

7 128 (6) 单击 窗口 文件 命令, 弹出 文件 对话框 将看到在站点目录下会自动创建一个名为 Connections 的文件夹 在其下将会新增一个名为 conn.asp 的文件, 如图 8.20 所示 图 8.20 文件 列表面板 通过这样的设置,Dreamweaver CS3 自动在页面文档中生成如下的 ASP 代码 : ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_conn_STRING MM_conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};dbq=f:\guest\data\guest.mdb" 8.3 创建记录集对象 建立数据源后, 网页中就有了数据的来源 但是这时还不能直接访问数据 在 ASP 中, 使用记录集对象来获取数据, 并进行相应的处理 记录集 (RecordSet) 对象 RecordSet 对象是 ADO 对象群 (Connection Recordset Command) 中较为重要的中间对象 通过 RecordSet 对象不仅可获取来自表或命令执行结果的记录集, 还可以操作来自数据库的所有数据 Recordset 对象可以通过其 ActiveConnection 属性来连接 Connection 对象 ActiveConnection 属性可以理解成一串包含数据库连接信息的字符串参数 Recordset 对象可以通过 Source 属性来连接 Command 对象 Source 属性可以是一段 SQL 命令 一个指定的数据表等 下面就提供了 Recordset 对象常用方法及属性列表, 如表 所示 表 7.3 Recordset 对象常用方法列表 方法 说明

8 129 Open Close AddNew Update Delete GetRows Move MoveFirst MoveLast MoveNext MovePrevious 打开记录集关闭记录集新增记录更新记录集删除记录返回记录集中存储的数据更改指向记录集当前行的指针指针定位到第一行指针定位到最后一行指针定位到下一行指针定位到上一行 表 7.4 Recordset 对象常用属性列表 属性 AbsolutePage AbsolutePosition ActiveConnection BOF Bookmark EOF LockType PageCount PageSize RecordCount Source 说明指定当前记录所要移动到的页号指定 Recordset 对象当前记录的序号位置设置当前的数据库连接指明当前记录的位置是否位于 Recordset 对象第一个记录之前指定惟一标识 Recordset 对象的记录的书签指明当前记录的位置是位于 Recordset 对象最后一个记录之后指明编辑过程中置于记录中的锁定类型指明 Recordset 对象中所包含有的页数指明构成记录集的每一页的记录有条数显示 Recordset 对象中记录的当前数量指明 Recordset 对象中数据的源, 即 SQL 语句或表名 快速建立记录集对象 在 Dreamweaver 建立记录集对象操作非常方便 用户只要使用绑定功能, 就可以为网页添加记录集对象 具体操作如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个标准 ASP 文件 (2) 单击 窗口 绑定 命令, 弹出 应用程序 窗口, 如图 8.21 所示 (3) 单击 + 记录集( 查询 ) 命令, 弹出 记录集 对话框 在 名称 文本框中输入记录集对象的名称 rs 在 连接 下拉列表中, 选择 conn 选项 表格 下拉列表中选择 tb_guest 选项 列 选项组中选中 全部 选项, 如图 8.22 所示 图 8.21 绑定 命令 图 8.22 记录集 对话框 (4) 单击 测试 按钮, 如果记录集创建成功, 将弹出如图 8.23 所示的对话框

9 130 (5) 单击 确定 按钮, 关闭 记录集 对话框 返回 应用程序 对话框, 向导将自动在其下拉列表中添加一条 rs 的列表选项, 如图 8.24 所示 图 8.23 记录集创建测试 图 8.24 应用程序 对话框 通过这样的设置,Dreamweaver CS3 自动在页面文档中生成如下的 ASP 代码 Dim rs Dim rs_numrows Set rs = Server.CreateObject("ADODB.Recordset") ' 创建记录集 rs.activeconnection = MM_conn_STRING rs.source = "SELECT * FROM tb_guest" ' 定义查询条件 rs.cursortype = 0 rs.cursorlocation = 2 rs.locktype = 1 rs.open() ' 打开记录集 rs_numrows = 0 rs.close() Set rs = Nothing ' 关闭记录集 8.4 显示数据库中的记录 建立记录集对象后, 就可以对记录集中的各项记录进行操作了 在开发中, 常用的数据操作包括显示记录 添加记录 修改记录 删除记录和检索记录 下面依次讲解每个操作的实现 显示数据库中的记录 显示数据库中的记录, 也就是留言板中的留言查看功能 在 Dreamweaver CS3 如何去实现这个功能呢, 具体步骤如下

10 131 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 list.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令, 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 4.25 所示 (4) 单击 窗口 绑定 命令, 弹出 应用程序 对话框, 如图 8.26 所示 图 8.25 留言查看页面排版图 8.26 应用程序 对话框 (5) 在显示 姓名 所对应的表格单元格中单击鼠标 在 应用程序 窗口中选中 记录集 (rs) name 选项 单击 插入 按钮, 把 name 字段插入到单元格中, 如图 8.27 所示 (6) 用上述同样的的方法, 在各个字段对应的单元格中插入记录集字段 其中包括 姓名 性别 留言内容 电子邮件地址 等, 如图 8.28 所示 图 8.27 插入记录集字段图 8.28 插入所有记录集字段 (7) 单击 窗口 服务器行为 命令, 弹出 应用程序 窗口, 如图 8.29 所示 (8) 通过 标签选择器 选中表格第二行用于显示数据的所有单元格, 如图 8.30 所示 (9) 单击 + 重复区域 命令, 弹出 重复区域 对话框 在 记录集 下拉列表中选择 rs 选项 在 显示 选项组中选中 所有记录 选项, 如图 8.31 所示

11 132 图 8.29 应用程序 窗口图 8.30 标签选择器 图 8.31 重复区域 对话框 (10) 单击 确定 按钮, 关闭对话框 启动 Internet Explorer, 在地址栏中输入 将会看到如图 8.32 所示的效果 图 8.32 查看 生成代码分析 显示数据库中的记录页面 (list.asp), CODEPAGE="936" <!--#include file="connections/conn.asp" --> <!-- 包含数据库链接文件 --> 以下代码实现建立记录集, 并获取数据 Dim rs Dim rs_numrows ' 定义记录集变量名称 ' 定义记录集行数变量 Set rs = Server.CreateObject("ADODB.Recordset") ' 建立记录集对象

12 133 ' 创建记录集 rs.activeconnection = MM_conn_STRING rs.source = "SELECT * FROM tb_guest" 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 以下代码显示页面 ' 指定数据库链接对象 ' 指定 SQL 语句 ' 定义总共要显示记录的行数 ' 定义显示记录的行数 ' 设置为 -1, 表示显示所有的记录 ' 初始化显示记录的行数 ' 设置开始显示记录的行数 <!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; } --> </style> </head> <body> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> 以下代码循环显示每一个记录 While ((Repeat1 numrows <> 0) AND (NOT rs.eof)) ' 循环查看所有记录内容

13 134 <td><table width="100%" border="0" cellspacing="5" cellpadding="0" style="border-top:1px dashed #000000;"> 以下代码显示发言人的信息, 如姓名和性别 <td align="left"><img src="imgs/head.gif" width="32" height="32" /> 姓名 : =(rs.fields.item("name").value) 性别 : =(rs.fields.item("sexy").value)</td> 以下代码显示留言的信息 <td height="30" align="left" valign="top"> 内容 :<img src="imgs/bq.gif" width="13" height="12" />=(rs.fields.item("content").value)</td> 以下代码显示发言人留下的 信息 <td height="30" align="left"> 邮件 :=(rs.fields.item(" ").value)</td> </table></td> Repeat1 index=repeat1 index+1 Repeat1 numrows=repeat1 numrows-1 rs.movenext() ' 移动记录集指针 Wend 循环结束, 以下代码补全匹配的 HTML 标签 <td height="50"> </td> </table></td> </table></td> </table> </body> </html> 以下代码关闭记录集对象, 释放记录集对象占用的内存 rs.close() Set rs = Nothing ' 关闭记录集

14 向数据库添加记录 向数据库添加记录, 才能实现真正的用户同网站的互动 本节通过留言板的留言签写功能的实现讲解如何向数据库中添加记录 该功能通过两个页面进行处理 这两个页面分别为留言签写页面 (add.asp) 和录入成功信息提示页面 (add_ok.asp) 留言签写页面 (add.asp) 留言签写页面为用户发表留言提供一个完整的界面 在该页面中, 使用表单来提交数据, 当处理完成后, 跳转到添加成功页面 add_ok.asp 留言签写页面设计如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 add.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令, 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 4.33 所示 图 8.33 留言记录录入页面排版 (4) 单击 Dreamweaver 插入 工具栏中 表单 表单 命令, 在文档最前头插入表单 通过 标签选择器 选中该表单 在 属性 检查器中 表单名称 文本框中输入 frmdata 在 目标 下拉列表中选择 _self 选项, 如图 4.34 所示

15 136 图 8.34 属性 检查器 (5) 根据上面的表格布局, 插入各项对应的表单元素, 包括文本字段 列表框 按钮等, 如图 4.35 所示 图 8.35 插入记录集字段 下面就提供了个表单元素的属性列表, 如表 7.5 所示 表 7.5 表单元素的属性列表 对应标签名 表单元素 id 类型 姓名 name 文本域 邮箱 文本域 性别 sexy 文本域 内容 content 文本域 (6) 单击 窗口 服务器行为 命令, 弹出 应用程序 窗口, 如图 8.37 所示 (7) 单击 + 插入记录 命令, 弹出 插入记录 对话框 在 连接 下拉列表中选择 conn 选项 在 插入到表格 下拉列表中选择 tb_guest 选项 在 插入后, 转到 文本框中输入 add_ok.asp 在 获取值自 下拉列表中选择 frmdata 选项, 如图 8.38 所示

16 137 图 8.36 应用程序 窗口图 8.37 插入记录 对话框 (8) 单击 确定 按钮, 关闭 记录集 对话框 返回 应用程序 窗口, 向导将自动在其下拉列表中添加一条 插入记录 ( 表单 frmdata ) 的列表选项, 如图 8.39 所示 (9) 通过标签 标签选择器 选中该表单 (frmdata) 在 属性 检查器中, 在 动作 文本框中会看到系统自动写入 =MM_editAction 的值, 如图 8.40 所示 图 8.39 应用程序 窗口 图 8.40 属性 检查器 添加成功提示页面 (add_ok.asp) 该页面后缀名虽然是.asp, 但实际代码中并没有任何 ASP 代码, 是一个典型的静态页面 当添加记录成功后, 自动跳转到该页面 该页面设计步骤如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 add_ok.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 4.41 所示

17 138 图 8.41 录入成功信息提示页面排版 (4) 单击 插入 HTML 文件头: 刷新 命令, 在弹出的 刷新 对话框中 延迟 文本框中输入 2 在 操作 选项组中选中 转到 URL: 选项, 并在其对应的文本框中输入 list.asp, 如图 4.42 所示 (5) 单击 确定 按钮, 关闭对话框 图 8.42 刷新 对话框 测试留言签写功能 启动 Internet Explorer, 在地址栏中输入 输入留言内容, 如图 8.43 所示 单击 提交 按钮, 留言数据会自动录入到数据库 转到 asp_ok.asp 页面, 如图 8.44 所示

18 139 图 8.43 查看 图 8.44 查看 经过 2 秒的防恶意刷新处理, 系统会自动转到 list.asp 页面, 如图 8.45 所示 图 8.45 查看 生成代码分析 留言记录录入页面 (add.asp) 留言记录录入页面 (add.asp), 完整代码如下 CODEPAGE="936" <!--#include file="connections/conn.asp" --> 以下是 Dreamweaver 自动生成的变量, 用来保存各个所需的信息 Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery ' 定义文件相对路径变量 ' 定义修改记录标识变量 ' 定义查询 SQL 语句变量

19 140 Dim MM_editCmd ' 定义 Command 对象变量 Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId ' 定义数据库链接字符串变量 ' 定义表名变量 ' 定义跳转 URL 变量 ' 该变量被未使用 Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns ' 定义获取字段变量 ' 定义添加记录变量 ' 定义记录集域集合 ' 定义添加记录集合 Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i 以下代码建立数据库连接 MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) ' 获取文件相对路径 If (Request.QueryString <> "") Then ' 如果文件路径不为空 MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) ' 重新构建相对路径 End If MM_abortEdit = false MM_editQuery = "" ' 设置为不修改记录 ' 设置查询 SQL 语句为空 If (CStr(Request("MM_insert")) = "frmdata") Then ' 判断是否要插入记录 MM_editConnection = MM_conn_STRING ' 获取数据库连接字符串 MM_editTable = "tb_guest" ' 获取访问的表名 MM_editRedirectUrl = "add_ok.asp" ' 设置跳转网页 MM_fieldsStr = "name value value sexy value content value" ' 设置获取字段 MM_columnsStr = "name ',none,'' ',none,'' sexy ',none,'' content ',none,''" ' 初始化添加记录变量 ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, " ") MM_columns = Split(MM_columnsStr, " ") ' 获取记录集字段集合 ' 获取添加记录集合 以下代码获取 Form 表单数据 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' 依次循环获取提交的表单数据 以下代码建立跳转链接 If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbtextcompare) = 0 And Request.QueryString <> "") Then

20 141 MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If 以下代码建立添加记录的 SQL 语句 Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next ' 构建插入记录的 SQL 语句 ' 判断是否进行插入记录操作 MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery ' 判断是否进行的是插入记录操作 ' 建立 Command 对象 ' 设定数据库链接 ' 设定执行的 SQL 语句

21 142 MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' 执行插入操作 ' 关闭记录集 If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If ' 判断是否跳转 ' 跳转到指定网址 End If 以下代码显示页面构成 <!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; } --> </style></head> <body> 以下代码构建 Form 表单 <form ACTION="=MM_editAction" METHOD="POST" name="frmdata" target="_self" id="frmdata"> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> <td><table width="100%" border="0" cellspacing="5" cellpadding="0"> <td colspan="2" align="center"> 留言签写 </td> <td colspan="2" style="border-top:1px dashed #000000;"> </td>

22 143 <td height="30"> 姓名 :</td> <td width="330" align="left"> <input name="name" type="text" id="name" size="40" /> <td height="30"> 邮箱 :</td> <td align="left"><input name=" " type="text" id=" " size="40" /></td> <td height="30"> 性别 :</td> <td align="left"><select name="sexy" size="1" id="sexy"> <option value=" 男 "> 男 </option> <option value=" 女 "> 女 </option> </select> </td> <td colspan="2" style="border-top:1px dashed #000000;"> </td> <td height="185" colspan="2" align="center"><textarea name="content" cols="50" rows="12" id="content"></textarea></td> <td height="80" colspan="2" align="center"><input type="submit" name="submit" value=" 提交 " /> <input type="reset" name="submit2" value=" 重置 " /></td> </table></td> <td height="50"> </td> </table></td> </table></td> </table> <input type="hidden" name="mm_insert" value="frmdata"> <!-- 设置隐藏元素, 用来标记进行插入操作 --> </form> </body> </html> </td> 生成代码分析 添加成功信息提示页面 (add_ok.asp) 添加成功信息提示页面 (add_ok.asp), 完整代码如下 该代码相对比较简单, 没有任何 ASP CODEPAGE="936" <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

23 144 " <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; } --> </style> 以下代码实现 2 秒钟后, 跳转到留言显示页面 <meta http-equiv="refresh" content="2;url=list.asp" /> </head> <body> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> <td height="350" align="center" valign="middle"><p> 留言签写成功!</p> <p>2 秒后自动返回列表页!</p></td> <td height="50"> </td> </table></td> </table></td> </table> </body> </html> 8.6 修改数据库记录 修改数据库中的记录也是最常用的操作 通过该方式, 可以对数据库中的信息进行更新 在本节中, 将介绍如何对留言进行修改 要实现留言修改功能, 就需要根据链接参数中传递的留言编号 (id) 来修

24 145 改记录 该功能也是通过两个页面进行处理, 分别是留言记录修改页面 (edit.asp) 和修改成功信息提示页面 (edit_ok.asp) 留言记录修改页面 (edit.asp) 留言记录修改页面的界面同留言记录录入页面非常相似 惟一不同之处, 修改记录页面显示了用户要修改的留言信息 留言记录修改页面设计过程如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 edit.asp 的标准 ASP 文件 (2) 单击 插入 常用 表格 命令, 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 按照上面留言记录录入页面 (add.asp) 的版面进行布局 并依照表 7.5 插入各项对应的表单元素, 如图 4.29 所示 图 8.46 留言记录修改页面排版 (4) 单击 Dreamweaver 插入 工具栏中 表单 隐藏域 命令 在表单(frmdata) 内的任意位置插入一个隐藏域 在 属性 检查器中 表单名称 文本框中输入 id 在 值 文本框中输入 =request( id ), 如图 4.47 所示 图 8.47 属性 检查器 (5) 单击 窗口 绑定 命令, 弹出 应用程序 窗口, 如图 8.48 所示 (6) 单击 + 命令( 预存过程 ) 命令, 弹出 记录集 对话框 在 名称 文本框中输入

25 146 rs 在 连接 下拉列表中选择 conn 选项 sql 文本框中输入 SELECT * FROM tb_guest WHERE id=rsid 在 变量 选项组中添加一条选项 在 名称 文本框中输入 rsid 在 默认值 文本框中输入 request.querystring( id ) 在 运行值 文本框中输入 1, 如图 8.49 所示 图 8.48 应用程序 窗口图 8.49 记录集 对话框 (7) 单击 确定 按钮, 关闭对话框 单击 窗口 绑定 命令, 弹出 应用程序 对话框, 如图 8.50 所示 (8) 在显示 姓名 所对应的文本框中单击鼠标 在 应用程序 窗口中选中 记录集 (rs) name 选项 单击 插入 按钮, 把 name 字段插入到文本框中 按照上面的做法, 依次把 sexy content 等字段插入到对应的表单元素中, 如图 8.51 所示 图 8.50 应用程序 对话框图 8.51 插入记录集字段 (9) 单击 + 更新记录 命令, 弹出 更新记录 对话框 在 连接 下拉列表中选择 conn 选项 在 要更新的表格 下拉列表中选中 tb_guest 选项 在 插入后, 转到 文本框中输入 edit_ok.asp 在 获取值自 下拉列表中选择 frmdata 选项, 如图 8.52 所示 (10) 单击 确定 按钮, 关闭 记录集 对话框 返回 应用程序 对话框, 向导将自动在其下拉列表中添加一条 更新记录 ( 表单 frmdata ) 的列表选项, 如图 8.53 所示

26 147 图 8.52 更新记录 对话框图 8.53 应用程序 对话框 (11) 通过标签 标签选择器 选中该表单 (frmdata) 在 属性 检查器中, 在 动作 文本框中会看到系统自动写入 =MM_editAction 的值, 如图 8.54 所示 图 8.54 属性 检查器 修改成功信息提示页面 (edit_ok.asp) 当用户提交留言修改后, 跳转到修改成功信息提示页面 在该页面显示提示信息 两秒后, 该页面跳转到留言显示页面 该页面设计过程如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 edit_ok.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 8.55 所示

27 148 图 8.55 修改成功信息提示页面排版 (4) 单击 Dreamweaver 插入 工具栏中 HTML 文件头: 刷新 命令, 在弹出的 刷新 对话框中 延迟 文本框中输入 2 在 操作 选项组中选中 转到 URL: 选项, 并在其对应的文本框中输入 list.asp, 如图 8.56 所示 图 8.56 刷新 对话框 测试修改留言功能 启动 Internet Explorer, 在地址栏中输入 id 后面的参数值必须是数据库表中所存在的记录编号 输入留言内容, 如图 8.57 所示

28 149 图 8.57 查看 单击 提交 按钮, 留言数据会自动录入到数据库 转到 edit_ok.asp 页面, 如图 8.58 所示 图 8.58 查看 经过 2 秒的防恶意刷新处理, 系统会自动转到 list.asp 页面, 如图 8.59 所示

29 150 图 8.59 查看 生成代码分析 留言记录修改页面 (edit.asp) 留言记录修改页面 (edit.asp), 完整代码如下 CODEPAGE="936" <!--#include file="connections/conn.asp" --> 以下代码是 Dreamweaver 自动生成的变量, 用来保存修改过程中使用的各种数据 Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd ' 定义文件相对路径 ' 定义修改记录标识变量 ' 定义查询 SQL 语句 ' 定义 Command 对象变量 Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId ' 定义数据库链接字符串变量 ' 定义表名变量 ' 定义跳转 URL 变量 ' 定义修改记录 ID 变量 Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal ' 定义获取字段变量 ' 定义修改记录变量 ' 定义记录集域集合 ' 定义修改记录集合

30 151 Dim MM_emptyVal Dim MM_i 以下代码建立数据库连接 MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' 获取文件相对路径 ' 如果文件路径不为空 MM_abortEdit = false MM_editQuery = "" 以下代码判断是否要修改记录, 并获取相应数据 ' 设置不修改记录标识 ' 初始化查询 SQL 语句 If (CStr(Request("MM_update")) = "frmdata" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_conn_STRING ' 湖区数据库链接字符串 MM_editTable = "tb_guest" ' 获取要访问的表 MM_editColumn = "id" ' 获取要编辑的字段 MM_recordId = "" + Request.Form("MM_recordId") + "" ' 获取要修改的 id MM_editRedirectUrl = "edit_ok.asp" ' 设置跳转链接 MM_fieldsStr = "name value value sexy value content value" ' 定义记录集域结构 MM_columnsStr = "name ',none,'' ',none,'' sexy ',none,'' content ',none,''" ' 获取要修改记录的结构 MM_fields = Split(MM_fieldsStr, " ") MM_columns = Split(MM_columnsStr, " ") ' 构建记录集域集合 ' 构建修改记录集的集合 以下代码循环获取用户提交的表单数据 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' 将传递的参数添加到跳转 URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbtextcompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If 以下代码构建 SQL 语句, 对数据库中的数据进行修改 If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' 构建 SQL 语句 MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) ' 读取要修改的数据

31 152 MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' 如果不放弃修改 ' 建立 Command 对象 ' 设置数据库连接 ' 设置执行的 SQL 命令 ' 执行 SQL 命令 If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If 以下代码查询指定的留言信息, 然后显示页面上, 从而方便用户修改 Dim rs rsid ' 定义要修改的记录编号变量 rs rsid = request.querystring("id") ' 获取要修改的记录编号 If (rs rsid="") Then ' 如果编号为空 rs rsid = 1 ' 赋值为 1 End If Dim rs Dim rs_numrows ' 定义记录集对象

32 153 Set rs = Server.CreateObject("ADODB.Recordset") ' 建立记录集对象 rs.activeconnection = MM_conn_STRING ' 设置数据库链接字符串 rs.source = "SELECT * FROM tb_guest WHERE id=" + Replace(rs rsid, "'", "''") + "" ' 构建查询 SQL 语句 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"> <!-- body,td,th { font-family: 宋体 ; font-size: 12px; } --> </style></head> <body> <form ACTION="=MM_editAction" METHOD="POST" name="frmdata" target="_self" id="frmdata"> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> <td><table width="100%" border="0" cellspacing="5" cellpadding="0"> <td colspan="2" align="center"> 留言修改 </td> <td colspan="2" style="border-top:1px dashed #000000;"> </td>

33 154 size="40" /> <td height="30"> 姓名 :</td> <td width="330" align="left"> <input name="name" type="text" id="name" value="=(rs.fields.item("name").value)" </td> <td height="30"> 邮箱 :</td> <td align="left"><input name=" " type="text" id=" " value="=(rs.fields.item(" ").value)" size="40" /></td> <td height="30"> 性别 :</td> <td align="left"><select name="sexy" size="1" id="sexy" title="=(rs.fields.item("sexy").value)"> <option value=" 男 "> 男 </option> <option value=" 女 "> 女 </option> </select> </td> <td colspan="2" style="border-top:1px dashed #000000;"> </td> <td height="185" colspan="2" align="center"><textarea name="content" cols="50" rows="12" id="content">=(rs.fields.item("content").value)</textarea></td> <td height="80" colspan="2" align="center"><input type="submit" name="submit" value=" 提交 " /> <input type="reset" name="submit2" value=" 重置 " /></td> </table></td> <td height="50"> </td> </table></td> </table></td> </table> 以下代码设置隐藏表单, 传递修改记录标记 MM_update 和修改记录编号 MM_recordid <input type="hidden" name="mm_update" value="frmdata"> <input type="hidden" name="mm_recordid" value="= rs.fields.item("id").value "> </form> </body> </html> rs.close()

34 155 Set rs = Nothing 生成代码分析 修改成功信息提示页面 (edit_ok.asp) 修改成功信息提示页面 (edit_ok.asp), CODEPAGE="936" <!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; } --> </style> 以下代码实现 2 秒后, 跳转到留言显示页面 list.asp <meta http-equiv="refresh" content="2;url=list.asp" /> </head> <body> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> <td height="350" align="center" valign="middle"><p> 留言更新成功!</p> <p>2 秒后自动返回列表页!</p></td> <td height="50"> </td> </table></td> </table></td> </table>

35 156 </body> </html> 8.7 删除数据库记录 删除记录功能可以将数据库中多余的, 错误的记录删除 该功能实现比较简单 只要将查询指定条件的记录, 然后删除即可 本节讲解如何根据留言编号, 删除留言信息 该页面设计如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 del.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 4.60 所示 图 8.60 记录删除页面排版 (4) 单击 窗口 绑定 命令, 弹出 应用程序 对话框, 如图 8.61 所示 (5) 单击 + 命令( 预存过程 ) 命令, 弹出 命令 对话框 在 名称 文本框中输入 rs 在 连接 下拉列表中选择 conn 选项 在 类型 下拉列表中选择 删除 选项 sql 文本框中输入 DELETE FROM tb_guest WHERE id=rsid 在 变量 选项组中添加一条选项 在 名称 文本框中输入 rsid 在 默认值 文本框中输入 request.querystring( id ), 如图 8.62 所示

36 157 图 8.61 应用程序 对话框图 8.62 命令 对话框 (6) 单击 窗口 服务器行为 命令, 弹出 应用程序 窗口, 如图 8.63 所示 (7) 单击 Dreamweaver 插入 工具栏中 HTML 文件头: 刷新 命令, 在弹出的 刷新 对话框中 延迟 文本框中输入 2 在 操作 选项组中选中 转到 URL: 选项, 并在其对应的文本框中输入 list.asp, 如图 4.64 所示 图 8.63 应用程序 窗口图 8.64 刷新 对话框启动 Internet Explorer, 在地址栏中输入 id 后面的参数值必须是数据库表中所存在的记录编号, 如图 8.65 所示

37 158 图 8.65 查看 检索数据库记录 检索功能是动态数据库系统中不可缺少的一部分 通过检索, 方便用户迅速找到所需要的数据 本节实现留言检索功能 对数据库中的记录进行按条件的查询和排序也是通过两个页面进行处理 分别是检索条件输入页面 (search.asp) 和检索成功信息显示页面 (search_ok.asp) 检索条件输入页面 (search.asp) 本节实现了按照留言内容检索 在检索条件输入页面, 用户只需要输入检索关键词, 就可以开始查找 页面设计如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 search.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 4.66 所示

38 159 图 8.66 检索条件输入页面排版 (4) 单击 Dreamweaver 插入 工具栏中 表单 表单 命令, 在文档最前头插入表单 通过 标签选择器 选中该表单 在 属性 检查器中 表单名称 文本框中输入 frmdata 在 动作 文本框中输入 search_ok.asp 在 目标 下拉列表中选择 _self 选项, 如图 4.67 所示 图 8.67 表单 属性 检查器 (5) 选中用于输入检索条件的文本框, 在 属性 检查器中 文本域 文本框中输入 content 在 字符宽度 文本框中输入 50, 如图 4.68 所示 图 8.68 文本框 属性 检查器 检索成功信息显示页面 (search_ok.asp) 用户提交的关键词后, 跳转到检索成功信息显示页面 该页面根据关键词进行查询, 然后输出检索到的信息 该页面设计过程如下所示 (1) 打开 Dreamweaver 的设计界面 单击 文件 新建 命令, 新建一个名为 list.asp 的标准 ASP 文件 (2) 单击 Dreamweaver 插入 工具栏中 常用 表格 命令 在弹出的 表格 对话框中进行相应设置, 在 文档 窗口中插入了一些表格用于定位

39 160 (3) 根据实际情况, 可以对特定的单元格进行宽度和背景图片的指定, 来修饰表格的外观 在此基础上, 再对单元格行适当的排版, 录入相应的文字信息具体效果如图 4.69 所示 图 8.69 检索成功信息显示页面排版 (4) 单击 窗口 绑定 命令, 弹出 应用程序 对话框, 如图 8.70 所示 (5) 单击 + 命令( 预存过程 ) 命令, 弹出 命令 对话框 在 名称 文本框中输入 rs 在 连接 下拉列表中选择 conn 选项 在 类型 下拉列表中选择 删除 选项 在 sql 文本框中输入 DELETE FROM tb_guest WHERE content like %rscontent% 在 变量 选项组中添加一条选项 在 名称 文本框中输入 rscontent 在 默认值 文本框中输入 request.querystring( content ) 在 运行值 文本框中输入, 如图 8.71 所示 图 8.70 应用程序 对话框 图 8.71 记录集 对话框

40 161 (6) 单击 确定 按钮, 关闭对话框 单击 窗口 服务器行为 命令, 弹出 应用程序 对话框, 如图 8.72 所示 (7) 单击 窗口 绑定 命令, 弹出 应用程序 对话框, 如图 8.73 所示 图 8.72 应用程序 对话框图 8.73 应用程序 对话框 (8) 在显示 姓名 所对应的表格单元格中单击鼠标 在 应用程序 对话框中选中 记录集 (rs) name 选项 单击 插入 按钮, 把 name 字段插入到单元格中, 如图 8.74 所示 图 8.74 插入记录集字段 (9) 用上述同样的的方法, 在各个字段对应的单元格中插入记录集字段 其中包括 姓名 性别 留言内容 电子邮件 等, 如图 8.75 所示

41 162 图 8.75 插入所有记录集字段 (10) 单击 窗口 服务器行为 命令, 弹出 应用程序 对话框, 如图 8.76 所示 (11) 通过 标签选择器 选中表格第二行用于显示数据的所有单元格, 如图 8.77 所示 (12) 单击 + 重复区域 命令, 弹出 重复区域 对话框 在 记录集 下拉列表中选择 rs 选项 在 显示 选项组中选中 所有记录 选项, 如图 8.78 所示 图 8.76 应用程序 对话框图 8.77 标签选择器 图 8.78 重复区域 对话框 (13) 单击 确定 按钮, 关闭对话框 单击 窗口 服务器行为 命令, 弹出 应用程序 窗口 会看到其下拉列表中多了一项名为 重复区域 (rs) 的选项, 如图 8.79 所示

42 163 图 8.79 应用程序 窗口 测试检索功能 启动 Internet Explorer, 在地址栏中输入 输入检索内容, 如图 8.80 所示 图 8.80 查看 单击 提交 按钮, 转到 search_ok.asp 页面, 显示所有检索结果的信息, 如图 8.81 所示

43 164 图 8.81 查看 生成代码分析 检索条件输入页面 (search.asp) 检索条件输入页面 (search.asp), CODEPAGE="936" <!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; } --> </style></head> <body> 以下代码建立表单, 用来提交用户查询的关键词 <form action="search_ok.asp" name="frmdata" target="_self" id="frmdata"> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

44 165 <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> <td><table width="100%" border="0" cellspacing="5" cellpadding="0"> <td colspan="2" align="center"> 留言检索 </td> <td colspan="2" style="border-top:1px dashed #000000;"> </td> <td height="30" colspan="2"> 按留言内容中所包含的关键字进行检索 </td> <td height="30" colspan="2"><input name="content" type="text" id="content" size="50" /></td> <td colspan="2" style="border-top:1px dashed #000000;"> </td> /> <td height="80" colspan="2" align="center"><input type="submit" name="submit" value=" 提交 " <input type="reset" name="submit2" value=" 重置 " /></td> </table></td> <td height="50"> </td> </table></td> </table></td> </table> </form> </body> </html>

45 生成代码分析 检索成功信息显示页面 (search_ok.asp) 检索成功信息显示页面 (search_ok.asp), CODEPAGE="936" <!--#include file="connections/conn.asp" --> <!-- 包含数据库链接文件 --> Dim rs rscontent rs rscontent =request.querystring("content") Dim rs Dim rs_numrows ' 定义查询关键词变量 ' 获取用户查询的关键词 ' 定义记录集变量 Set rs = Server.CreateObject("ADODB.Recordset") rs.activeconnection = MM_conn_STRING ' 指定执行的查询语句 ' 建立记录集对象 ' 指定数据库链接字符串 rs.source = "SELECT * FROM tb_guest WHERE content like '%" + Replace(rs rscontent, "'", "''") + "%'" 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; } --> </style> </head>

46 167 <body> <table width="720" height="580" border="0" align="center" cellpadding="0" cellspacing="0" background="imgs/bg.jpg"> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <td width="280"> </td> <td height="580" align="center" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <td height="50"> </td> 以下代码循环输出查询出的记录 While ((Repeat1 numrows <> 0) AND (NOT rs.eof)) <td><table width="100%" border="0" cellspacing="5" cellpadding="0" style="border-top:1px dashed #000000;"> <td align="left"><img src="imgs/head.gif" width="32" height="32" /> 姓名 : =(rs.fields.item("name").value) 性别 : =(rs.fields.item("name").value)</td> <td height="30" align="left" valign="top"> 内容 :<img src="imgs/bq.gif" width="13" height="12" />=(rs.fields.item("content").value)</td> <td height="30" align="left"> 邮件 :=(rs.fields.item(" ").value)</td> </table></td> Repeat1 index=repeat1 index+1 Repeat1 numrows=repeat1 numrows-1 rs.movenext() Wend <td height="50"> </td> </table></td> </table></td> </table> </body> </html> 以下代码关闭记录集, 并释放记录集对象

47 168 rs.close() Set rs = Nothing