asp如何连接数据库-ASP速成教程第十五讲

ActiveX Data Objects (ADO) 是一项容易使用并且可扩展的将数据库访问添加到 Web 页的技术。可以使用 ADO 去编写紧凑简明的脚本以便连接到 Open Database Connectivity (ODBC) 兼容的数据库和 OLE DB 兼容的数据源。如果您是一个对数据库连接有一定了解的脚本编写人员，那么您将发现 ADO 命令语句并不复杂而且容易掌握。同样地，如果您是一个经验丰富的数据库编程人员，您将会正确认识 ADO 的先进的与语言无关性和查询处理功能。

创建 ODBC DSN 文件

在创建数据库脚本之前，必须提供一条使 ADO 定位、标识和与数据库通讯的途径。数据库驱动程序使用 Data Source Name (DSN) 定位和标识特定的 ODBC 兼容数据库，将信息从 Web 应用程序传递给数据库。典型情况下，DSN 包含数据库配置、用户安全性和定位信息，且可以获取 Windows NT 注册表项中或文本文件的表格。

通过 ODBC，您可以选择希望创建的 DSN 的类型：用户、系统或文件。用户和系统 DSN 存储在 Windows NT 注册表中。系统 DSN 允许所有的用户登录到特定的服务器上去访问数据库，而用户 DSN 使用适当的安全身份证明限制数据库到特定用户的连接。文件 DSN 用于从文本文件中获取表格，提供了对多用户的访问，并且通过复制 DSN 文件，可以轻易地从一个服务器转移到另一个服务器。由于以上原因，本主题中的示例将使用文件 DSN。

通过在 Windows 的“开始”菜单打开“控制面板”，您可以创建基于 DSN 的文件。双击“ODBC”图标，然后选择“文件 DSN”属性页，单击“添加”，选择数据库驱动程序，然后单击“下一步”。按照后面的指示配置适用于您的数据库软件的DSN。

配置 Microsoft Access 数据库的文件 DSN

注意由于性能和可靠性的原因，我们极力推荐您使用“客户-服务器数据库引擎”配置由这样一种 Web 应用程序驱动的数据，这些 Web 应用程序必须满足 10 个以上的用户的同时访问。尽管 ASP 可以使用任何 ODBC 兼容的数据库，但它是为使用客户-服务器数据库而设计的，而且经过了严格的测试，这些数据库包括 Microsoft ® SQL Server、Oracle 等。

ASP 支持共享文件数据库（如 Microsoft ® Access 或 Microsoft ® FoxPro）作为有效的数据源。尽管在 ASP 文档中的一些示例使用共享文件数据库，但我们建议只将此类数据库引擎用于开发或有限的配置方案。共享文件数据库可能无法很好地适用于可满足高需求、高质量的 Web 应用程序的客户-服务器数据库。

配置 SQL Server 数据库文件 DSN

注意如果数据库驻留在远程服务器上，请与服务器管理员联系，获取附加的配置信息；下面的过程使用 SQL Server 的 ODBC 默认的设置，它可能不适用于您的硬件配置。

SQL server 连接和安全信息

如果您正在开发用于连接远程 SQL Server 数据库的 ASP 数据库应用程序，应考虑以下问题：

配置 Oracle 数据库文件 DSN

首先要确保 Oracle 用户软件被正确地安装要创建 DSN 的计算机上。详细信息，请与服务器管理员联系或参阅数据库软件文档。

注意DSN 文件用 .dsn 扩展名，位于 \Programs\Common Files\ODBC\Data Sources 目录中。

连接数据库

访问数据库信息的第一步是和数据库源建立连接。ADO 提供 Connection 对象，可以使用该对象建立和管理应用程序和 ODBC 数据库之间的连接。Connection对象具有各种属性和方法，可以使用它们打开和关闭数据库连接，并且发出查询请求来更新信息。

要建立数据库连接，首先应创建 Connection 对象的实例。例如，下面的脚本创建 Connection 对象，接着打开数据库连接：

<%    
 'Create a connection object    
 Set cn = Server.CreateObject("ADODB.Connection")    
 'Open a connection; the string refers to the DSN    
 cn.Open  "FILEDSN=MyDatabase.dsn"  
%>

注意无论在等号 (=) 之前还是之后，DSN 字符串都不能包含空格。

在这种情况下，Connection 对象的 Open 方法引用基于 DSN 的文件，其中包含关于数据库的位置和配置信息。也可以不引用 DSN，直接显式引用供应程序、数据源、用户 ID 和密码。

用 Connection 对象执行查询

用Connection对象的Execute方法，您可以发出结构化查询语言(SQL) 查询数据库源并检索结果。SQL 是用于与数据库通讯的工业标准语言，它有许多命令可用来检索和更新信息。

下面的脚本使用Connection对象的Execute方法在 SQL INSERT 命令的表格中发出查询，该命令将数据插入特定的数据库表格。在下面的示例中，脚本将名称 Jose Lugo 插入名为 Customers 的数据库表中。

<%    
 'Define  file based DSN    
  strDSN = "FILEDSN=MyDatabase.dsn"      
 'Instantiate the Connection object and open a database connection    
 Set cn = Server.CreateObject("ADODB.Connection")    
 cn.Open strDSN      
 'Define SQL SELECT statement     
 strSQL = "INSERT INTO Customers (FirstName, LastName) VALUES ('Jose','Lugo')"       
 'Use the Execute method to issue a SQL query to database    
 cn.Execute(strSQL)      
%>

注意基于 DSN 路径字符串的文件在等号(=)前后不应包含空格。

除了 SQL INSERT 命令以外，您也可以使用 SQL UPDATE 和 DELETE 命令更改和删除数据库信息。

用 SQL UPDATE 命令，您可以改变数据库表中各项目值。下面的脚本使用 UPDATE 命令将 Customers 表中每个 LastName 字段包含姓 Smith 记录的 FirstName 字段更改为 Jeff。

<%    
  Set cn = Server.CreateObject("ADODB.Connection")    
  cn.Open "FILEDSN=MyDatabase.dsn"    
  cn.Execute "UPDATE Customers SET FirstName = 'Jeff' WHERE LastName = 'Smith' "  
%>

要想从数据库表中删除特定的记录，可使用 SQL DELETE 命令。下面的脚本从 Customers 表中删除了所有姓 Smith 的行：

<%    
  Set cn = Server.CreateObject("ADODB.Connection")    
  cn.Open "FILEDSN=MyDatabase.dsn"    
  cn.Execute "DELETE FROM Customers WHERE LastName = 'Smith'"  
%>

注意在使用 SQL DELETE 命令时，必须谨慎从事。当使用不带 WHERE 子句的 DELETE 命令时，它将删除表中的所有行。一定要包含 SQL WHERE 子句来指定要删除的确切行。

使用 Recordset 对象处理结果

尽管Connection对象简化了连接数据库和查询任务，但Connection对象仍有许多不足。确切地说，检索和显示数据库信息的Connection对象不能用于创建脚本；您必须确切知道要对数据库作出的更改，然后才能使用查询实现更改。

对于检索数据、检查结果、更改数据库，ADO 提供了Recordset对象。正如它的名称所暗示的那样，Recordset对象有许多您可以使用的特性，根据您的查询限制，检索并且显示一组数据库行，即“记录”。Recordset对象保持查询返回的记录的位置，允许您一次一项逐步扫描结果。

根据Recordset对象的指针类型属性设置，您可以滚动和更新记录。数据库指针可以让您在一组记录中定位到特定的项。指针还用于检索和检查记录，然后在这些记录的基础上执行操作。Recordset对象有一些属性，可用于精确地控制指针的行为，提高您检查和更新结果的能力。例如，您可以使用 CursorType 和 CursorLocation属性设置指针的类型，将结果返回给客户端应用程序（结果通常保留在数据库服务器上）并显示其他用户对数据库的最后一次更改。

检索记录

一个成功的数据库应用程序都使用Connection对象建立链接并使用Recordset 对象处理返回的数据。通过“协调”两个对象的特定功能，您可以开发出几乎可以执行任何数据处理任务的数据库应用程序。例如，下面的服务器端脚本使用 Recordset对象执行 SQL SELECT命令。SELECT命令检索一组基于查询限制的信息。查询也包含 SQL WHERE 子句，用来缩小查询的范围。此例中，WHERE子句将查询限制为所有的 Customers 数据库表中包含的姓Smith的记录。

<%    
  'Establish a connection with data source      
  strDSN  = "FILEDSN=MyDatabase.dsn"      
  Set cn = Server.CreateObject("ADODB.Connection")    
  cn.Open strDSN      
  'Instantiate a Recordset object    
  Set rsCustomers = Server.CreateObject("ADODB.Recordset")        
  'Open a recordset using the Open method    
  ' and use the connection established by the Connection object    
  strSQL = "SELECT FirstName, LastName FROM Customers WHERE LastName = 'Smith' "    
  rsCustomers.Open  strSQL, cn	        
  'Cycle through record set and display the results    
  ' and increment record position with MoveNext method     
  Set objFirstName = rsCustomers("FirstName")      
  Set objLastName = rsCustomers("LastName")       
  Do Until rsCustomers.EOF        
  Response.Write objFirstName & " " & objLastName & "<BR>"     
  rsCustomers.MoveNext     
  Loop    
%>

注意，在前面的例子中，用来建立数据库连接的Connection 对象和Recordset 对象使用该连接从数据库中检索结果。当您需要精确地设置和数据库建立链接所采用的方式时，这个方法是非常有用的。例如，如果您需要在连接尝试失败之前指定等待的时间，则需要使用Connection对象去设置属性。但是，如果您仅仅想使用 ADO 默认的连接属性建立连接，则应该使用 Recordset对象的Open方法去建立链接：

<%    
  strDSN  = "FILEDSN=MyDatabase.dsn"    
  strSQL = "SELECT FirstName, LastName FROM Customers WHERE LastName = 'Smith' "    
  Set rsCustomers = Server.CreateObject("ADODB.Recordset")      
  'Open a connection using the Open method    
  'and use the connection established by the Connection object    
  rsCustomers.Open  strSQL, strDSN	        
  'Cycle through the record set, display the results,    
  ' and increment record position with MoveNext method     
  Set objFirstName = rsCustomers("FirstName")      
  Set objLastName = rsCustomers("LastName")      
  Do Until rsCustomers.EOF        
  Response.Write objFirstName & " " & objLastName & "<BR>"     
  rsCustomers.MoveNext     
  Loop  
%>

当使>Recordset对象的Open方法建立一个连接时，必须使用Connection 对象去保证链接的安全。

用 Command 对象改善查询

通过 ADO Command 对象，可以象用 Connection 对象和 Recordset 对象那样执行查询，唯一的不同在于用 Command 对象您可以在数据库源上准备、编译您的查询并且反复使用一组不同的值来发出查询。这种方式的编译查询的优点是您可以最大程度地减少向现有查询重复发出修改的请求所需的时间。另外，您还可以在执行之前通过您的查询的可变部分的选项使 SQL 查询保持局部未定义。

Command对象的parameter 集合减少了您的麻烦，使您不必在每次重新发出查询时重新建立查询。例如，如果需要有规律地更新基于库存清单的 Web 系统中的供应和价格信息，可以用下面的方法预先定义查询：

<%     
 'Open a connection using Connection object Command object   
 'does not have an Open method for establishing a connection   
 strDSN = "FILEDSN=MyDatabase.dsn"    
 Set cn = Server.CreateObject("ADODB.Connection")   
 cn.Open strDSN     
 'Instantiate Command object; use ActiveConnection property to attach    
 'connection to Command object   Set cm= Server.CreateObject("ADODB.Command")   
 Set cm.ActiveConnection = cn      
 'Define SQL query   
 cm.CommandText = "INSERT INTO Inventory (Material, Quantity) VALUES (?, ?)"      
 'Save a prepared (or pre-compiled) version of the query specified in CommandText   
 'property before a Command object's first execution.    
 cm.Prepared = True     
 'Define query parameter configuration information   
 cm.Parameters.Append cm.CreateParameter("material_type",200, ,255 )   
 cm.Parameters.Append cm.CreateParameter("quantity",200, ,255 )     
 'Define and execute first insert   
 cm("material_type") = "light bulbs"    
 cm("quantity") = "40"    
 cm.Execute       
 'Define and execute second insert   
 cm("material_type") = "fuses"    
 cm("quantity") = "600"    
 cm.Execute  
%>

请检查上面的例子，您将注意到，脚本用不同的数值重复构建和发出一个 SQL 查询，而没有重新定义和重发送查询到数据库源。用Command对象编译查询也可避免 SQL 查询引起的合并字符串和表格变量问题。特别是，通过使用Command对象的Parameter 集合可以避免与定义字符串、日期、时间变量的类型有关的问题。例如，包含“'”的 SQL 查询值可能导致查询失败：

strSQL = "INSERT INTO Customers (FirstName, LastName) VALUES ('Robert','O'Hara')"

注意，姓O'Hara中包含一个“'”，它与在 SQL VALUES 关键字中用来表示数据的“'”冲突。通过将查询数值作为 Command 对象参数绑定，可以避免此类问题。

结合 HTML 表格和数据库访问

包含 HTML 表格的 Web 页可使用户远程查询数据库并且检索特定的信息。用 ADO 您可以创建非常简单的脚本来收集用户表格信息、创建自定义的数据库查询以及将信息返回给用户。使用 ASP Request 对象，您可以检索输入到 HTML 表格的信息并将这些信息合并到 SQL 语句中。例如，下面的脚本模块将 HTML 表格提供的信息插入表格中。此脚本用Request 对象的Form集合收集用户信息。

<%   
 'Open a connection using Connection object. The Command object   
 'does not have an Open method for establishing a connection   
 strDSN = "FILEDSN=MyDatabase.dsn"    
 Set cn = Server.CreateObject("ADODB.Connection")   
 cn.Open strDSN     
 'Instantiate Command object   
 'and  use ActiveConnection property to attach    
 'connection to Command object   
 Set cm= Server.CreateObject("ADODB.Command")   
 Set cm.ActiveConnection = cn      
 'Define SQL query   
 cm.CommandText = "INSERT INTO MySeedsTable (Type) VALUES (?)"      
 'Define query parameter configuration information   
 cm.Parameters.Append cm.CreateParameter("type",200, ,255 )     
 'Define and execute insert   cm("type") = Request("SeedType")    
 cm.Execute    
%>

管理数据库连接

设计一个能经得起考验的 Web 数据库应用程序（例如为几千个客户服务的联机购物应用程序）的最大挑战，在于如何合理地管理数据库连接。打开并且保持数据库连接，即使在没有信息传输时，也会严重耗费数据库服务器的资源并且可能会导致连接性问题。设计良好的 Web 数据库应用程序将回收数据库连接并能够补偿由于网络堵塞造成的延迟。

使连接超时

活动的突然增长可能使数据库服务器变得十分笨拙，大量增加建立数据库连接的时间。结果是:过长的连接延时将降低数据库的性能。

用Connection对象的ConnectionTimeout，您可以限制放弃连接尝试并发出错误消息之前应用程序等待的时间。例如，下面的脚本设置ConnectionTimeout 属性，在取消连接尝试之前等待 20 秒：

Set cn = Server.CreateObject("ADODB.Connection")  
cn.ConnectionTimeout = 20  
cn.Open "FILEDSN=MyDatabase.dsn"  

默认的ConnectionTimeout属性是 30 秒。

注意在将ConnectionTimeout属性合并到数据库应用程序之前，一定要确保连接提供程序和数据源支持该属性。

共享连接

经常建立和中断数据库连接的 Web 数据库应用程序可能会降低数据库服务器的性能。ASP 支持用 ODBC 3.5 的共享特性有效管理连接。连接共享维持打开的数据库连接并管理不同的用户共享该连接，以维持其性能和减少空闲的连接数。对每一个连接请求，连接池首先确定池中是否存在空闲的连接。如果存在，连接池返回连接而不是建立到数据库的新连接。

如果希望将 ODBC 驱动程序加入到连接共享中，则必须配置数据库驱动程序并在 Windows NT 注册表中设置驱动程序的 CPTimeout属性。当 ODBC 断开连接时，连接被存入池中，而不是被断开。CPTimeout 属性决定在连接池中的连接保留的时间长度。如果在池中连接保留的时间比 CPTimeout 设置的时间长，则连接将被关闭并且从池中删除。CPTimeout 的默认值是 60 秒。

您可以通过创建如下设置的注册表键来有选择地设置 CPTimeout 的属性，从而启用特定 ODBC 数据库驱动程序的连接池：

\HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\driver-name\CPTimeout = timeout    
(REG_SZ, units are in seconds)  

例如，下面的键将 SQL Server 驱动程序的连接池的超时设置定为 180 秒（3 分钟）。

\HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\SQL Server\CPTimeout = 180

注意默认情况下，通过将 CPTimeout 设置为 60 秒，Web 服务器将激活 SQL Server 的连接池。

使用跨页连接

尽管您可以通过存储 ASP 的 Application对象的连接重复使用跨页连接，但是，始终使连接保持打开是不必要的，也没有充分利用连接池的优点。如果有许多用户需要连接到同一个 ASP 数据库应用程序，一个好方法就是，将跨页连接字符串置于 ASP 的 Application 对象中，重复使用数据库连接。例如，可以在 Global.asa 文件的 Application_OnStart 事件过程中指定连接字符串，如下面的脚本所示：

Application.lock  
Application("ConnectionString") = "FILEDSN=MyDatabase.dsn"  
Application.unlock  

然后，在每一个访问数据库的 ASP 文件中写入：

<OBJECT RUNAT=Server ID=cn PROGID="ADODB.Connection"> </OBJECT>

要想创建连接对象的实例，请使用以下脚本：

cn.Open Application("ConnectionString")

对于打开的连接，可以在页尾写入以下脚本，关闭连接：

cn.Close

在单个用户需要重复使用跨页连接的情况下，使用 Session对象连接比使用 Application 对象更好。

关闭连接

要想更好地使用连接池，就应尽快地关闭数据库连接。默认情况下，当脚本执行完以后，连接将被终止。当不再需要连接时将其关闭，就可以减少对数据库服务器的要求并可以使其他用户能够使用该连接。

可以使用Connection 对象的Close方法终止Connection对象和数据库之间的连接。下面的脚本打开连接，然后将其关闭：

<% 
 strDSN = "FILEDSN=MyDatabase.dsn"  
 Set cn = Server.CreateObject("ADODB.Connection")  
 cn.Open   
 cn.Close  
%>