程序|数据|数据库
ASP是微软公司推出的用以取代CGI的新技术，是目前公认的建立Windows NT动态站点最好的工具。它与ADO(Active Data Object，一种新的数据访问模型)的充分结合，提供了强大的数据库访问功能，使之成为进行网上数据库管理的重要手段。
一、ASP简介
ASP内含于Internet Information Server（简称IIS3.0）中，扩展名以.asp表示。ASP文件可以用常规的文本编辑器编辑，也可以利用专门的辅助开发工具InterDev进行开发设计，InterDev的优点是将整个Web程序设计（包括网页设计、ASP程序设计、数据库管理等）融为一体，比较适合于较大工程项目的开发研制。ASP使用VBScript、JavaScript等脚本语言作为开发工具，镶嵌于HTML文本中，使用“<%…%>”将ASP的程序包含起来。当用户从浏览器向Web服务器提出请求时，Web服务器会自动将ASP的程序解释为标准的HTML格式的主页内容，用户端只要使用常规可执行HTML程序的浏览器，就可浏览ASP所设计的主页内容，因此与浏览器无关，并且保证了ASP的源程序代码不会外漏。
ASP中包括五个内置的ActiveX服务器组件和五个内置的对象：Database Access component（数据库访问组件）、File Access component（文件访问组件）、Ad Rotator component（广告轮播器组件）、Content Linking component（内容链接组件）、Browser Capabilities component（浏览器信组件）以及Request（请求对象）、Server（服务器对象）、Session（会话对象）、Response（响应对象）、Application（应用程序对象）。在所有ASP组件中，最有用的是数据库访问组件，也称为ActiveX数据对象或ADO。在站点发布数据库将使用这个组件及其中包含的对象，以完成对ODBC数据源的读写。
此外，ASP技术的另一个重要特点是，程序员可以利用Java、Visual Basic、 Visual C++等语言制作适应自己特殊需要的ActiveX服务器组件来扩充ASP的功能，使自己的动态网页几乎具有无限的扩充能力，这是传统的CGI程序所不及的。
二、与ADO结合开发基于WWW的数据库检索程序
ASP技术与ADO技术相结合，可以实现基于WWW的数据库管理功能，用户可在浏览器画面中检索、输入、更新和删除数据库信息，从而建立提供数据库信息的主页内容。ADO主要提供了七个对象和四个集合来完成对于数据库的管理，包括：Connection、Command、Parameter、Recordset、Field、Property、Error以及Fields、Properties、Parameters、Errors。Connection对象用来建立与数据库的连接，Command对象完成对数据库的操作，Recordset对象可以查看或操作数据库中返回的数据。而Field 对象和Fields集合允许对当前记录的每一个字段进行操作，Parameter 对象和Parameters集合为Command对象提供信息和数据，Property 对象和Properties集合为Connection、Command、 Recordset、Field对象的特性提供信息，Error对象和Errors集合在错误发生时提供错误信息。
下面介绍开发数据库检索程序的基本设计方法：
⒈创建数据库源名(DSN)。DSN是通过ODBC创建，由ODBC使用和识别的、用以连接应用程序和后台数据库的数据库逻辑名。具体创建ODBC数据源的方法可参阅有关资料，这里不再介绍。假定已为一个SQL Server数据库创建了取名为“BOOK”的 ODBC数据源。
⒉创建数据库链接(Connection)。通过服务器对象的CreateObject方法，可以创建Connection对象和使用变量接受对象引用。一旦连接对象创建之后，它就可用来打开到任何ODBC数据源的连接。如下∶
dim conn ‘申明变量
Set Conn=Server.CreatObject("ADODB.Connection") ‘创建链接对象
Conn.Open "book",IUSR_TSG01, "" ‘打开到ODBC的链接，其中IUSR_TSG01为授权的用户ID号，用户口令未加设置。程序员应根据自己的情况进行更替。
⒊创建数据对象(Recordset)。Recordset 是ADO中比较复杂的对象，有许多的属性和方法，包括：Eof（文件尾）、Bof（文件头）、Absolutepage（绝对页）、Recordcount（记录计数） 、Pagecount（页计数）等属性以及MoveFirst(移到第一条记录) 、MoveLast(移到最后一条记录) 、 MoveNext(移到下一条记录) 、 MovePrevious(移到上一条记录)等常用方法。数据对象与ASP的Session对象结合，还可以实现检索结果的分页处理。
Dim Rs ‘申明变量
Set Rs=Server.CreatObject("ADODB.Recordset") ‘创建数据对象
Rs.PageSize=10 ‘设置一页所显示的记录数
⒋操作数据库。ADO通过执行标准的SQL语句实现检索功能，因此首先要定义SQL查询语句，然后执行该查询命令，最终形成一个检索结果集合。
Dim sql ‘申明变量
sql="select * from publication where title like 'ASP%%'" ‘定义SQL查询语句，检索数据库的publication表中书名以ASP开头的所有图书的记录
Const adOpenkeyset=1 ‘定义Recordset的类型
Rs.Open Sql,conn, adOpenkeyset ‘执行sql语句，在数据对象Rs中保存检索结果。
⒌在ASP中引用返回结果。假如准备在浏览器上显示检中的图书信息，可以采用以下两种方法：
<% Response.write(Rs.("Title"))%>或
<%=Rs("Title")%>
⒍关闭数据库对象和链接对象。在程序结束前一定要关闭ADO对象，释放服务器资源。如下：
Rs.close
Conn.close
Set Rs=nothing
Set Conn=nothing
下面是一个极其简单的检索程序，希望能够帮助大家理解一些概念。
Example.asp
<html>
<head>
<title>ASP数据库检索实例</title>
</head>
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "book"
Sql= "select * from publication where title like 'ASP%%'"
Dim Rs
Set Rs=Server.CreateObject("ADODB.recordset")
Const adOpenkeyset=1
Rs.Open Sql,Conn, adOpenkeyset
%>
<strong>检索词命中率：<%=Rs.Recordcount%><br><br>
<select size=8>
<%
Do while not Rs.eof
%>
<option><% =Rs("title")%></option>
<%
rs.movenext
loop
%>
</select>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>
本人利用ASP技术开发了烟台大学图书馆网上书目检索程序，实践证明该方法简单、、实用、高效，是很值得学习的一种方法。