 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
当有一天，你的心情忽然变得很坏，但是巧合的是，在你的留言簿中你的网友留了一句很让你振奋的话，于是你很快就重拾了快乐的心情。但是在不久后你又一次心情变坏，但是这次却没有上次那么幸运，因为没有人给予你鼓励，于是你自然就想再看一看上次那句令你很受振奋的话。这时你就会想：如果我的留言簿有留言查询功能就好了！ 为了能达成你的心愿，于是我决定在本章教程为你解说具有留言查询功能的留言簿程序。在讲解之前，让我们还是先来学习将在源程序中用到的COMMAND对象。 首先让我们先来了解一下Command对象所提供的属性和方式以及它们的相应功能 ActiveConnection属性--建立与Connection通道的链接关系 CommandText属性--指定数据查询信息 CommandTimeout属性--开始执行数据查询后答应继承执行的最长时间 CommandType属性--指定数据查询信息的类型 Prepared属性--指定数据查询信息是否要先行编译 CreateParameter方式--建立一个新的参数对象 Execute 方式--对数据库提出数据查询 Command对象也是ADO对象集合的一员，它主要用来控制对数据库发出的哀求信息，告诉数据库：“要哪个数据表里的数据？要什么字段内的数据？数据必须符合什么限制？请把这些符合我要求的数据全部存放在Recordset对象内返回回来！”那么说到底，Command对象的功能就是执行SQL（Structured Query Language结构式查询语言，是用于对存放在计算机数据库中的数据进行组织、治理和检索的一种工具；是一种特定类型的数据库--关系数据库）命令。如果你是一位比较细心的人，你一定还记得我在第三章中其实就已经用上了SQL命令，于是你就会对我发问：“你当时并没有用到Command对象呀？” 确实，没有Command对象我们也相同可以执行SQL命令。我们利用Connection对象或是利用Recordset对象同样可以执行SQL命令。方式如下所示： Set rs = conn.Execute(SQL命令) \\\' 利用Connection对象执行Select SQL命令，然后将结果指定给Recordset对象。 conn.Execute SQL命令 \\\' 利用Connection对象执行数据操作的SQL命令。 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL命令,conn \\\' 先建立Recordset对象，再执行SQL命令选取数据。 利用Command对象又是如何来执行SQL命令的呢？大家请看： Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = sql Set rs = cmd.Execute \\\' 可见利用Command对象来执行SQL命令,得先将Connection对象及SQL命令设置给对象Command的ActiveConnection及CommandText属性，然后才执行cmd.Execute函数。 由上述我们可以知道，原来使用Recordset对象和使用Command对象来执行SQL命令，本质都是相同的。既然如此，那么我们为什么还要利用Command对象呢？为了说明这个问题，我分别用两种不同的方式来为留言簿添加留言查询功能，其中查询“留言簿过去五天留言记录”和“留言记录日期查询”是利用Command对象来执行SQL命令的，而“留言者姓名查询”和“最新十条留言记录”的查询则是利用Recordset对象来执行SQL命令。 讲了这许多也该入正题了，我们首先来学习的是利用Recordset对象来实现“留言者姓名查询”和“最新十条留言记录”的查询。以下我们还是通过分步骤的方式来进行说明。 步骤一： 首先我们得设计一个留言查询的界面(Datesearch.asp)，如下图所示： 步骤二：利用Recordset对象来执行SQL命令，实现“最新十条留言记录”的查询。 Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("book2.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath sql ="select top 10 * from guestbook order by ID Desc" 这里用“ order by ID Desc”表示按照“ID”字段从大到小排序。因为在数据库中我将ID字段的数据类型设为“自动编号”，留言记录的ID将按先后从小到大进行排序，所以要查询最新的十条留言即是查询最后的十条ID的记录。 Set rs = conn.Execute( sql ) 利用Recordset对象来执行SQL命令，实现“留言者姓名”的查询的原理与上述一致，程序如下所示： namesearch = request.form("name") namesearch = Replace(namesearch,"\\\'","\\\'\\\'") \\\'还记得我在第三章中介绍SqlStr函数时的说明吗？忘了就到回去看看吧。 Set conn = Server.CreateObject("ADODB.Connection") DBPath =Server.MapPath("book2.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath sql ="select * from guestbook where 姓名 = \\\'"&namesearch&"\\\' order by ID Desc" Set rs = conn.Execute( sql ) 步骤三：设计查询结果的Web页面(Search.asp)。 < % Sub Search( rs ) Response.Write "< CENTER>< table border=2 width=90% cellpadding=2 cellspacing=2 bordercolorlight=#000000 bordercolordark=#FFFFFF bordercolor=#FFFFFF bgcolor=#FFFFFF align=center>" Response.Write "< TR BGCOLOR=#33CCCC>" For i=0 to rs.Fields.Count-1 Response.WRITE "< TD>" & rs.Fields(i).Name & "< /TD>" Next Response.Write "< /TR>" \\\'" & rs.Fields(i).Name & "表示显示数据表的“字段抬头” While Not rs.EOF Response.Write "< TR>" For i=0 to rs.Fields.Count-1 Response.WRITE "< TD>" & rs.Fields(i).Value & "< /TD>" Next Response.Write "< /TR>" rs.MoveNext Wend Response.Write "< /TABLE>< /CENTER>" \\\' " & rs.Fields(i).Value & "表示显示数据表的“数据字段内容” End Sub %> 我们接上一部分继承讲解如何利用Command对象来执行SQL命令，实现“留言记录日期查询”和“留言簿过去五天留言记录查询”。但在应用Command对象来执行SQL命令之前我们必须在留言数据库中先建立查询，如果我们要查询的是“留言簿过去五天留言记录”，那么在留言数据库中建立查询的详细方式如下所示。（对于数据库，在Access中可以建立五种不同类型的查询，因为我们要查询两个日期之间的留言记录，因此我在这里只以“使用‘设计’视图建立参数查询”为例，当然你也可以“使用向导建立查询”。使用“设计”视图建立查询要比使用向导灵活得多，例如，在“设计”视图中，既可以建立像“选择查询”之类的简朴查询，又可以建立像“参数查询”和“操作查询”之类的复杂查询，而且在“查询设计网格”中既能够增加、移动、插入和删除字段，也能够设置准则和排序次序，计算总和和平均值，等等） 在Access中，使用‘设计’视图建立参数查询： 一、打开留言数据库，在“数据库”窗口中单击“查询”选项卡，然后单击“新建”按钮 。 二、在“新建查询”对话框中，单击“设计视图”，然后单击“确定”按钮。 三、在“显示表”对话框中，选择“表”选项卡，然后单击“添加按钮或者双击“guestbook”表的名称，将它添加到“查询”窗口中，然后关闭“显示表”的对话框。 四、在“guestbook”表的字段列表中，单击“ID”字段的字段名，按住鼠标不放，将它拖到“查询设计网格”的第一列。同样，可以将“姓名”、“电话”、“EMAIL”、“主题”、“留言”和“时间”字段的字段名依次拖到“查询设计网格”的其它各列中。 五、在作为参数使用的“时间”字段下的“准则”单元格中，键入下列表达式： Between[请键入开始日期]And[请键入结束日期]。 六、单击工具栏上的“保存”按钮保存查询，这时会弹出一个“另存为”的对话框，我们在“另存为”对话框中输入该查询表的名称“留言记录日期查询”，然后单击“确定”按钮。 在留言数据库中建立了查询后，我们接下来将利用Command对象来执行日期查询的SQL命令编写如下(Date.asp)： < !--#include file="adovbs.inc" --> < !--#include file="Search.asp" --> < % Head="留言簿查询" start=Request("start") last=Request("last") \\\'读取用户输入的数据，然后指定给start及last变量 If start="" Then start = #99-10-1# If last="" Then last = #99-12-30# \\\'假如用户没有输入查询的开始时间和结束时间时，在“开始时间”和“结束时间”的查询框中显示这里定义的缺省值 99-10-1和99-12-30 % > < h2 Align="Center"> < %=Head%>< /h2> < hr noshade color="red"> < % Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("book2.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = "留言记录日期查询" \\\'将 Connection对象及SQL命令设置给Command对象的ActiveConnection属性以及 CommandText属性 ReDim param(1) \\\'声明含有两个元素的数组，因为该“留言日期查询”必须有查询的起始时间和结束时间，所以在这里必须声明一个含有两个元素的数组 param(0) = CDate(start) param(1) = CDate(last) Set rs = cmd.Execute( ,param ) \\\'将start及last变量指定给param数组，然后传入cmd.Execute函数中，在这里函数cmd.Execute含有两个参数，其中第一个参数是用于希望返回的数据记录数，这里缺省表示希望返回所有的数据记录；参数二“param”是SQL命令的参数。 Search rs %> < hr noshade color="red"> < div align="center"> < a href="Datesearch.asp" class="text2">返回留言查询< /a> 同理，利用Command对象来执行SQL命令，实现“留言簿过去五天留言记录查询”的原理与上述实现“留言记录日期查询”的原理是相同的，我们可以编写如下所示： Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("book2.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = "留言簿过去五天留言记录" Set rs = cmd.Execute Search rs 至此，两种实现查询的方式我们都已学习过了，大家能说出它们存在着什么区别吗？ 打个比方，假如我们直接把某一个SQL命令写在ASP程序中，要知道该命令是否准确无误，我们必须启动浏览器浏览这个程序才能够测试出来，若SQL命令有错，我们必须修改ASP程序，然后再重新浏览直到准确为止；假如我们利用Command对象来执行SQL命令，则必须直到留言数据库中建立的查询完全准确才将SQL命令存储成“查询对象”，于是在ASP程序中我们只要将这个查询对象的名称指定给Command对象的CommandText参数，即可准确无误地执行SQL命令。 返回类别: 教程 上一教程: 调试ASP脚本 下一教程: IIS6.0下ASP的新增功能 您可以阅读与"ASP进阶教程Ⅸ：留言查询功能"相关的教程: · ASP进阶教程Ⅸ：留言查询功能（一） · ASP进阶教程Ⅸ：留言查询功能（二） · ASP进阶教程Ⅴ：留言簿在线留言编辑（一） · ASP进阶教程Ⅲ：给留言簿润下色 · ASP进阶教程Ⅵ：留言簿在线删除留言 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
