北京ASP编程培训- Asp进阶教程：留言查询功能

技术资料

Asp进阶教程：留言查询功能

首先让我们先来了解一下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>"

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>"

Response.Write "< /TR>"

rs.MoveNext

Wend

Response.Write "< /TABLE>< /CENTER>"

' " & rs.Fields(i).Value & "表示显示数据表的“数据字段内容”

End Sub