ASP及其ADO组件简介
---- ASP（Active Server Pages）是一种服务器端的脚本语言，可以把它看作是Html、脚本和 CGI（通用网关接口）的结合。但它却比Html保密性更高，比脚本更灵活，比CGI更高效。
----ASP程序的扩展名为“.ASP“，它可以包含Html语句、 ASP命令、文本及其他可以嵌套于Htnk文档的所有描述性语言（如：VBScripts,JavaScripts 等）。其中ASP命令必须位于ASP定义的符号“<％”、“％>”之间，当用户访问ASP网页时，Web服务器先将“<％”、“％>”之间的ASP命令解析执行，然后将结果响应给用户，这样用户就无法看到ASP源文件。这就是ASP保密性高的原因。

----ASP内置了ADO组件，因此可以轻松地存取各种数据库。 ADO是微软公司提供给开发者在网页中存取数据库的最新技术。ADO组件主要包括 Connection对象、Command对象、Parameter对象、RecordSet对象、Field对象、Property 对象、Error对象等七个对象和Fields数据集合、Properties数据集合、Parameters数据集合、Errors数据集合等四个数据集合。

----Connection对象负责与数据源（数据库或文本文件）的连接；

----Command对象传递指定的SQL命令；

---- Parameter对象提供Command对象所需的SQL命令参数；

----RecordSet对象负责浏览与操作从数据源中取出的数据；

----Field对象指定RecordSet对象的具体字段。

----这是与数据库存取密切相关的几个对象。

SQL Server数据库的模糊查询
----SQL Server 数据库的Select查询命令可以实现数据库的查询。在Select命令的Where子句中使用“LIKE”关键词和“％”通配符就可以做到模糊查询。下面语句在pubs数据库的authors表中查找Name字段的值含有“Smith”字符串的所有记录。
Use pubs
Select ＊ From authors
Where Name LIKE “％Smith％”
GO

----SQL Server数据库还提供了一种叫做Stored Procedure （存储过程）的数据库对象，用户可以将一些常用的命令过程以存储过程的形式存储起来，需要运行这些存储过程时，只要输入存储过程名即可。这样不仅简化了操作，而且提高了效率（存储过程的运行比一个个的命令高效得多）。存储过程名的选取应符合SQL Server的命名规则，当它以“＃”开头时，表示一个临时存储过程，它只在应用程序运行时存在，程序结束后，被自动删除。

----下面的语句创建一个名字为＃query的临时存储过程：

Create Procedure ＃Query
As
Select ＊ From authors
Where Name LIKE “％Smith％”

数据库模糊查询的ASP实现
----在ASP命令中，没有类似于SQL命令中的“LIKE”关键词和“％”通配符，因此仅仅使用ASP命令实现数据库的模糊查询有一定的困难。笔者在编程实践中利用ADO组件的Connection对象、RecordSet对象分别动态创建、运行数据库的临时存储过程对象，不仅实现了模糊查询，而且具有很好的交互性。
----1.创建一个用户交互页面INPUT.HTML

< html >
< head >
< title >用户输入界面< /title >< /head >
< body >
< center >< font face=“隶书" size=＋3 >
数据库查询< /font >< /center >
< form method=“post" action=“query.asp" >
按字段< select name=“leixing" >
< option value=“Name” >姓名< /option >
< option value=“sex" >性别< /option >
< /select >进行查询< br >
关键词< input type=“text" name=“keyword" size=40 >< br >
< input type=“submit" value=“查询" >
< input type=“reset" value=“清除" >
< /form >
< /body >
< /html >

----当用户在此客户端页面上输入数据后，这些数据通过 Form数据集合由“POST”方法传递到服务器端的query.asp页面，由query.asp来完成查询功能。

----2.创建Query.asp文件，实现模糊查询

< html >
< head >
< title >< /title >
< /head >
< body >
< ％
response.write “< center >< font face="“隶书"
“size=＋2 >查询结果< /font >< /center >"
DIM qucol,str,str5
‘－－－－－－获取Form数据 －－－－－－－－
qucol=request.form(“leixing")
str=request.form(“keyword")
‘－－－－－－－－生成Where子句－－－－－－－
str5=qucol＆“LIKE "＆“"“％"＆str＆“％"“"
‘建立数据库连接。carlos:数据源名；sa：
用户名；pubs:数据库名
SetConn= Server.CreateObject(“ADODB.Connection")
Conn.Open “DSN=carlos;UID=sa;PWD=;Database=pubs"
for I=0 to conn.errors.count－1
response.write conn.errors(I).description＆“< br >"
next
‘－－－－创建临时存储过程－－－－－－－－－－
CommandText=“CREATE PROCEDURE
＃query"＆session(“num")＆_
“AS select ＊ From authors Where "＆str5
Conn.execute CommandText,0,－1

‘－－－－－－－创建RecordSet对象－－－－－－－
Set rs=Server.CreateObject(“ADODB.RecordSet")
‘－－－－－－运行临时存储过程－－－－－－－－
Const adOpenDynamic=2
Const adLockOptimistic=3
const adComdStoredProc=8
CommandText=“＃query"＆session(“num")
session(“num")=session(“num")＋1
rs.Open CommandText,Conn,adOpen
Dynamic,adLockOptimistic,_
adComdStoredProc
‘－－－－－－－－－显示查询结果 －－－－－－
response.write “< table border="“1"“ >"
response.write“< tr >"
for I=0 to rs.fields.count－1
response.write “< td >"＆rs(I).Name＆“< /td >"
next
response.write “< /tr >"
whil