📄 0068.htm
字号:
<html>
<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1 {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
<p align="center"><big><strong>第六章：给留言簿加留言查询功能（一）</strong></big></p>
<TABLE border=0 width="100%">
<TBODY>
<TR>
<TD height=9><SPAN
class=text> 当有一天，你的心情突然变得很坏，但是巧合的是，在你的留言簿中你的网友留了一句很让你振奋的话，于是你很快就重拾了快乐的心情。但是在不久后你又一次心情变坏，但是这次却没有上次那么幸运，因为没有人给予你鼓励，于是你自然就想再看一看上次那句令你很受振奋的话。这时你就会想：假如我的留言簿有留言查询功能就好了！<BR> 为了能达成你的心愿，于是我决定在本章教程为你解说具有留言查询功能的留言簿程序。在讲解之前，让我们还是先来学习将在源程序中用到的<FONT
color=#3333ff>COMMAND对象</FONT>。<BR> 首先让我们先来了解一下<FONT
color=#0000ff>Command</FONT>对象所提供的属性和方法以及它们的相应功能<BR></SPAN>
<TABLE align=center border=1 borderColor=#3399ff>
<TBODY>
<TR>
<TD><SPAN
class=text>ActiveConnection属性--建立与Connection通道的链接关系<BR>CommandText属性--指定数据查询信息<BR>CommandTimeout属性--开始执行数据查询后允许继续执行的最长时间<BR>CommandType属性--指定数据查询信息的类型<BR>Prepared属性--指定数据查询信息是否要先行编译<BR>CreateParameter方法--建立一个新的参数对象
<BR>Execute 方法--对数据库提出数据查询 </SPAN></TD></TR></TBODY></TABLE>
<P><SPAN
class=text><BR> Command对象也是ADO对象集合的一员，它主要用来控制对数据库发出的请求信息，告诉数据库：“要哪个数据表里的数据？要什么字段内的数据？数据必须符合什么限制？请把这些符合我要求的数据全部存放在Recordset对象内返回回来！”那么说到底，Command对象的功能就是执行SQL（Structured
Query
Language结构式查询语言，是用于对存放在计算机数据库中的数据进行组织、管理和检索的一种工具；是一种特定类型的数据库--关系数据库）命令。假如你是一位比较细心的人，你一定还记得我在第三章中其实就已经用上了SQL命令，于是你就会对我发问：“你当时并没有用到Command对象呀？”<BR> 确实，没有Command对象我们也一样可以执行SQL命令。我们利用Connection对象或是利用Recordset对象同样可以执行SQL命令。方法如下所示：<BR><BR></SPAN></P>
<TABLE align=center border=1 borderColor=#3399ff>
<TBODY>
<TR>
<TD><SPAN class=text><U>Set rs = conn.Execute(SQL命令)</U><BR>'
利用Connection对象执行Select
SQL命令，然后将结果指定给Recordset对象。<BR><U>conn.Execute SQL命令</U><BR>'
利用Connection对象执行数据操作的SQL命令。<BR><U>Set rs =
Server.CreateObject("ADODB.Recordset")</U><BR><U>rs.Open
SQL命令,conn</U></SPAN></TD></TR></TBODY></TABLE>
<P><SPAN class=text>' 先建立Recordset对象，再执行SQL命令选取数据。</SPAN></P></TD></TR>
<TR>
<TD height=9 vAlign=top><SPAN
class=text> 利用Command对象又是如何来执行SQL命令的呢？大家请看：<BR></SPAN>
<TABLE align=center border=1 borderColor=#3399ff>
<TBODY>
<TR>
<TD height=54><SPAN class=text><U>Set cmd =
Server.CreateObject("ADODB.Command") <BR>Set
cmd.ActiveConnection = conn <BR>cmd.CommandText = sql<BR>Set
rs = cmd.Execute </U></SPAN></TD></TR></TBODY></TABLE>
<P><SPAN class=text><BR>'
可见利用Command对象来执行SQL命令,得先将Connection对象及SQL命令设置给对象Command的ActiveConnection及CommandText属性，然后才执行cmd.Execute函数。<BR> 由上述我们可以知道，原来使用Recordset对象和使用Command对象来执行SQL命令，本质都是一样的。既然如此，那么我们为什么还要利用Command对象呢？为了说明这个问题，我分别用两种不同的方法来为留言簿添加留言查询功能，其中查询“留言簿过去五天留言记录”和“留言记录日期查询”是利用Command对象来执行SQL命令的，而“留言者姓名查询”和“最新十条留言记录”的查询则是利用Recordset对象来执行SQL命令。</SPAN></P></TD></TR>
<TR>
<TD height=24>
<P align=left><SPAN
class=text> 讲了这许多也该入正题了，我们首先来学习的是利用Recordset对象来实现“留言者姓名查询”和“最新十条留言记录”的查询。以下我们还是通过分步骤的方法来进行说明。<BR><BR><FONT
color=#0066cc>步骤一：
首先我们得设计一个留言查询的界面(Datesearch.asp)，如下图所示：</FONT><BR>
<IMG height=287 src="images/00681.jpg" width=450>
</SPAN></P></TD></TR>
<TR>
<TD height=20><SPAN class=text><BR><FONT
color=#0068d0>步骤二：利用Recordset对象来执行SQL命令，实现“最新十条留言记录”的查询。</FONT><BR></SPAN>
<TABLE align=center border=1 borderColor=#3399ff>
<TBODY>
<TR>
<TD height=56><SPAN class=text>Set conn =
Server.CreateObject("ADODB.Connection") <BR>DBPath =
Server.MapPath("book2.mdb") <BR>conn.Open "driver={Microsoft
Access Driver (*.mdb)};dbq=" & DBPath <BR>sql ="select top
10 * from guestbook order by ID Desc"
</SPAN></TD></TR></TBODY></TABLE>
<P><SPAN class=text><BR>这里用“ order by ID
Desc”表示按照“ID”字段从大到小排序。因为在数据库中我将ID字段的数据类型设为“自动编号”，留言记录的ID将按先后从小到大进行排序，所以要查询最新的十条留言即是查询最后的十条ID的记录。<BR>Set
rs = conn.Execute( sql ) </SPAN></P></TD></TR>
<TR>
<TD height=20><SPAN
class=text> 利用Recordset对象来执行SQL命令，实现“留言者姓名”的查询的原理与上述一致，程序如下所示：<BR></SPAN>
<TABLE align=center border=1 borderColor=#3399ff>
<TBODY>
<TR>
<TD height=113><SPAN class=text>namesearch =
request.form("name") <BR>namesearch =
Replace(namesearch,"'","''")<BR>'还记得我在第三章中介绍SqlStr函数时的说明吗？忘了就到回去看看吧。<BR>Set
conn = Server.CreateObject("ADODB.Connection") DBPath
=Server.MapPath("book2.mdb") <BR>conn.Open "driver={Microsoft
Access Driver (*.mdb)};dbq=" & DBPath<BR>sql ="select *
from guestbook where 姓名 = '"&namesearch&"' order by
ID Desc" <BR>Set rs = conn.Execute( sql )
</SPAN></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><SPAN class=text><FONT
color=#0066ff>步骤三：设计查询结果的Web页面(Search.asp)。</FONT><BR></SPAN>
<TABLE align=center border=1 borderColor=#3399ff>
<TBODY>
<TR>
<TD height=113><SPAN class=text>< %<BR>Sub Search( rs )
<BR>Response.Write "< CENTER>< table border=2
width=90% cellpadding=2 cellspacing=2 bordercolorlight=#000000
bordercolordark=#FFFFFF bordercolor=#FFFFFF bgcolor=#FFFFFF
align=center>" <BR>Response.Write "< TR
BGCOLOR=#33CCCC>"<BR>For i=0 to rs.Fields.Count-1
<BR>Response.WRITE "< TD>" & rs.Fields(i).Name &
"< /TD>" <BR>Next <BR>Response.Write "<
/TR>"<BR>'" & rs.Fields(i).Name &
"表示显示数据表的“字段抬头”<BR>While Not rs.EOF <BR>Response.Write "<
TR>"<BR>For i=0 to rs.Fields.Count-1<BR>Response.WRITE
"< TD>" & rs.Fields(i).Value & "< /TD>"
<BR>Next <BR>Response.Write "< /TR>" <BR>rs.MoveNext
<BR>Wend <BR>Response.Write "< /TABLE>< /CENTER>"
<BR>' " & rs.Fields(i).Value &
"表示显示数据表的“数据字段内容”<BR>End Sub<BR>%>
</SPAN></TD></TR></TBODY></TABLE>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -