ASP不是数据库而是强大的服务器端脚本技术深入了解其如何连接并操作各类数据库构建动态网页应用

威震华夏关云长

引言

在Web开发领域，ASP（Active Server Pages）经常被误解为一种数据库技术。然而，这种认识是错误的。ASP实际上是一种强大的服务器端脚本技术，由微软开发，用于创建动态网页和Web应用程序。它的真正价值在于能够连接并操作各种数据库系统，从而实现数据的动态展示和交互。本文将深入探讨ASP的本质，以及它如何与各类数据库协作，构建功能丰富的动态网页应用。

ASP技术基础

什么是ASP

ASP（Active Server Pages）是微软公司开发的一种服务器端脚本环境，它允许开发人员创建和运行动态网页和Web应用程序。ASP首次发布于1996年，作为Internet Information Services (IIS)的一部分，它革命化了Web开发的方式，使得开发人员能够轻松地将服务器端处理与HTML内容结合起来。

ASP文件以.asp为扩展名，包含HTML标记、服务器端脚本和客户端脚本。当浏览器请求一个ASP页面时，服务器会先处理其中的服务器端脚本，然后将生成的HTML发送到客户端浏览器。这意味着客户端只能看到处理后的HTML结果，而无法查看原始的服务器端脚本代码，这在一定程度上提高了应用程序的安全性。

ASP的工作原理

ASP的工作流程可以概括为以下几个步骤：

1. 客户端浏览器向服务器请求一个ASP页面。
2. Web服务器接收到请求，识别出这是一个ASP文件。
3. 服务器将ASP文件发送到ASP引擎进行处理。
4. ASP引擎逐行执行服务器端脚本，可能与数据库交互、执行计算或处理表单数据。
5. 执行完成后，ASP引擎将结果转换为标准的HTML。
6. 服务器将生成的HTML发送回客户端浏览器。
7. 客户端浏览器接收并渲染HTML，显示给用户。

这一过程使得ASP能够根据用户请求、数据库内容或其他动态因素生成个性化的网页内容，而不仅仅是静态的HTML页面。

ASP的版本演变

ASP技术经历了多个版本的演进：

1. ASP 1.0：1996年发布，是IIS 3.0的一部分，引入了基本的脚本功能。
2. ASP 2.0：1997年发布，作为IIS 4.0的一部分，增加了事务处理、错误处理等功能。
3. ASP 3.0：1999年发布，作为IIS 5.0的一部分，增强了XML支持和可扩展性。
4. ASP.NET：2002年发布，是ASP的重大升级，基于.NET Framework，提供了更强大的功能和更好的性能。

尽管ASP.NET已经取代了传统ASP，但许多现有的Web应用程序仍然使用传统ASP技术，因此了解ASP的数据库连接和操作技术仍然具有重要的实际意义。

ASP与数据库的关系

ASP不是数据库

首先，需要明确的是，ASP本身不是数据库系统。它是一种服务器端脚本技术，用于生成动态网页内容。数据库是专门用于存储、管理和检索数据的系统，如Microsoft SQL Server、MySQL、Oracle等。ASP与数据库的关系是：ASP作为应用程序层，负责业务逻辑和用户界面；数据库作为数据存储层，负责数据的持久化存储。

ASP与数据库的交互模式

ASP与数据库的交互通常遵循以下模式：

1. 建立连接：ASP通过适当的数据库驱动程序或提供程序与数据库建立连接。
2. 发送查询：ASP向数据库发送SQL查询或存储过程调用。
3. 处理结果：ASP接收数据库返回的结果集，并进行处理。
4. 显示数据：ASP将处理后的数据嵌入到HTML中，生成动态网页内容。
5. 关闭连接：完成操作后，ASP关闭与数据库的连接，释放资源。

这种交互模式使得ASP能够根据数据库中的内容动态生成网页，实现数据的展示、添加、修改和删除等功能。

ASP支持的数据库类型

ASP具有广泛的数据库兼容性，可以连接和操作多种数据库系统，包括：

1. Microsoft Access：适合小型应用和开发环境。
2. Microsoft SQL Server：企业级数据库系统，与ASP有良好的集成。
3. MySQL：流行的开源数据库系统。
4. Oracle：大型企业级数据库系统。
5. 其他ODBC兼容数据库：任何支持ODBC（开放数据库连接）标准的数据库。

这种广泛的兼容性使得ASP成为连接不同数据库系统的理想选择，特别是在需要集成多个数据源的企业环境中。

连接数据库的方法

使用ADO连接数据库

在ASP中，最常用的数据库连接技术是ADO（ActiveX Data Objects）。ADO是微软提供的一种高级数据访问接口，它简化了与数据库的交互过程。ADO提供了几个核心对象，用于连接数据库、执行查询和处理结果：

1. Connection对象：用于建立与数据库的连接。
2. Command对象：用于执行SQL命令或存储过程。
3. Recordset对象：用于表示从数据库返回的数据集。
4. Parameter对象：用于表示Command对象的参数。

下面我们将详细介绍如何使用这些对象连接不同类型的数据库。

连接Microsoft Access数据库

Microsoft Access是一种常用的桌面数据库系统，适合小型应用和开发环境。使用ASP连接Access数据库通常有两种方法：通过ODBC驱动程序或通过OLE DB提供程序。

首先，需要在服务器上创建一个系统DSN（数据源名称），然后使用以下代码连接数据库：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "DSN=myAccessDB;UID=;PWD=;"
9. ' 执行SQL查询
10. Set rs = conn.Execute("SELECT * FROM Users")
12. ' 处理查询结果
13. While Not rs.EOF
14.     Response.Write rs("UserName") & "<br>"
15.     rs.MoveNext
16. Wend
18. ' 关闭记录集和连接
19. rs.Close
20. Set rs = Nothing
21. conn.Close
22. Set conn = Nothing
23. %>

复制代码

使用OLE DB提供程序直接连接Access数据库，无需创建DSN：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 定义连接字符串
7. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
9. ' 打开数据库连接
10. conn.Open connStr
12. ' 执行SQL查询
13. Set rs = conn.Execute("SELECT * FROM Users")
15. ' 处理查询结果
16. While Not rs.EOF
17.     Response.Write rs("UserName") & "<br>"
18.     rs.MoveNext
19. Wend
21. ' 关闭记录集和连接
22. rs.Close
23. Set rs = Nothing
24. conn.Close
25. Set conn = Nothing
26. %>

复制代码

对于Access 2007及更高版本（.accdb文件），连接字符串需要修改为：

2. connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("database.accdb")

复制代码

连接Microsoft SQL Server

Microsoft SQL Server是一种功能强大的企业级数据库系统，与ASP有良好的集成。连接SQL Server同样可以使用ODBC或OLE DB。

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "DSN=mySQLServer;UID=myUsername;PWD=myPassword;Database=myDatabase"
9. ' 执行SQL查询
10. Set rs = conn.Execute("SELECT * FROM Customers")
12. ' 处理查询结果
13. While Not rs.EOF
14.     Response.Write rs("CustomerName") & "<br>"
15.     rs.MoveNext
16. Wend
18. ' 关闭记录集和连接
19. rs.Close
20. Set rs = Nothing
21. conn.Close
22. Set conn = Nothing
23. %>

复制代码

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 定义连接字符串
7. connStr = "Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDatabase;User Id=myUsername;Password=myPassword;"
9. ' 打开数据库连接
10. conn.Open connStr
12. ' 执行SQL查询
13. Set rs = conn.Execute("SELECT * FROM Customers")
15. ' 处理查询结果
16. While Not rs.EOF
17.     Response.Write rs("CustomerName") & "<br>"
18.     rs.MoveNext
19. Wend
21. ' 关闭记录集和连接
22. rs.Close
23. Set rs = Nothing
24. conn.Close
25. Set conn = Nothing
26. %>

复制代码

对于SQL Server 2005及更高版本，建议使用SQL Native Client提供程序：

2. connStr = "Provider=SQLNCLI;Data Source=myServerAddress;Initial Catalog=myDatabase;User Id=myUsername;Password=myPassword;"

复制代码

连接MySQL数据库

MySQL是一种流行的开源数据库系统，可以通过ODBC或OLE DB连接ASP应用程序。

首先需要安装MySQL ODBC驱动程序，然后使用以下代码连接：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 定义连接字符串
7. connStr = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=myDatabase;USER=myUsername;PASSWORD=myPassword;OPTION=3;"
9. ' 打开数据库连接
10. conn.Open connStr
12. ' 执行SQL查询
13. Set rs = conn.Execute("SELECT * FROM Products")
15. ' 处理查询结果
16. While Not rs.EOF
17.     Response.Write rs("ProductName") & "<br>"
18.     rs.MoveNext
19. Wend
21. ' 关闭记录集和连接
22. rs.Close
23. Set rs = Nothing
24. conn.Close
25. Set conn = Nothing
26. %>

复制代码

使用MySQL的OLE DB提供程序连接：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 定义连接字符串
7. connStr = "Provider=MySQLProv;Data Source=myDatabase;User Id=myUsername;Password=myPassword;"
9. ' 打开数据库连接
10. conn.Open connStr
12. ' 执行SQL查询
13. Set rs = conn.Execute("SELECT * FROM Products")
15. ' 处理查询结果
16. While Not rs.EOF
17.     Response.Write rs("ProductName") & "<br>"
18.     rs.MoveNext
19. Wend
21. ' 关闭记录集和连接
22. rs.Close
23. Set rs = Nothing
24. conn.Close
25. Set conn = Nothing
26. %>

复制代码

连接Oracle数据库

Oracle是一种大型企业级数据库系统，可以通过ODBC或OLE DB连接ASP应用程序。

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "DSN=myOracleDB;UID=myUsername;PWD=myPassword;"
9. ' 执行SQL查询
10. Set rs = conn.Execute("SELECT * FROM Employees")
12. ' 处理查询结果
13. While Not rs.EOF
14.     Response.Write rs("EmployeeName") & "<br>"
15.     rs.MoveNext
16. Wend
18. ' 关闭记录集和连接
19. rs.Close
20. Set rs = Nothing
21. conn.Close
22. Set conn = Nothing
23. %>

复制代码

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 定义连接字符串
7. connStr = "Provider=OraOLEDB.Oracle;Data Source=myOracleDB;User Id=myUsername;Password=myPassword;"
9. ' 打开数据库连接
10. conn.Open connStr
12. ' 执行SQL查询
13. Set rs = conn.Execute("SELECT * FROM Employees")
15. ' 处理查询结果
16. While Not rs.EOF
17.     Response.Write rs("EmployeeName") & "<br>"
18.     rs.MoveNext
19. Wend
21. ' 关闭记录集和连接
22. rs.Close
23. Set rs = Nothing
24. conn.Close
25. Set conn = Nothing
26. %>

复制代码

数据库操作技术

执行SQL查询

在ASP中，可以使用ADO的Connection对象或Command对象执行SQL查询。以下是几种常见的查询执行方式：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
9. ' 执行SQL查询
10. Set rs = conn.Execute("SELECT * FROM Products WHERE CategoryID = 1")
12. ' 处理查询结果
13. While Not rs.EOF
14.     Response.Write rs("ProductName") & " - $" & rs("Price") & "<br>"
15.     rs.MoveNext
16. Wend
18. ' 关闭记录集和连接
19. rs.Close
20. Set rs = Nothing
21. conn.Close
22. Set conn = Nothing
23. %>

复制代码

2. <%
3. ' 创建Connection和Command对象
4. Set conn = Server.CreateObject("ADODB.Connection")
5. Set cmd = Server.CreateObject("ADODB.Command")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 设置Command对象属性
11. Set cmd.ActiveConnection = conn
12. cmd.CommandText = "SELECT * FROM Products WHERE CategoryID = ?"
13. cmd.CommandType = adCmdText
15. ' 创建参数对象
16. Set param = cmd.CreateParameter("CategoryID", adInteger, adParamInput, , 1)
17. cmd.Parameters.Append param
19. ' 执行查询
20. Set rs = cmd.Execute
22. ' 处理查询结果
23. While Not rs.EOF
24.     Response.Write rs("ProductName") & " - $" & rs("Price") & "<br>"
25.     rs.MoveNext
26. Wend
28. ' 关闭记录集和连接
29. rs.Close
30. Set rs = Nothing
31. conn.Close
32. Set conn = Nothing
33. %>

复制代码

插入数据

向数据库插入新记录是常见的数据库操作之一。以下是使用ASP插入数据的示例：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
9. ' 获取表单数据
10. productName = Request.Form("productName")
11. categoryID = Request.Form("categoryID")
12. price = Request.Form("price")
14. ' 构建SQL插入语句
15. sql = "INSERT INTO Products (ProductName, CategoryID, Price) VALUES ('" & productName & "', " & categoryID & ", " & price & ")"
17. ' 执行插入操作
18. conn.Execute sql
20. ' 关闭连接
21. conn.Close
22. Set conn = Nothing
24. ' 重定向到成功页面
25. Response.Redirect "success.asp"
26. %>

复制代码

为了防止SQL注入攻击，建议使用参数化查询：

2. <%
3. ' 创建Connection和Command对象
4. Set conn = Server.CreateObject("ADODB.Connection")
5. Set cmd = Server.CreateObject("ADODB.Command")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 获取表单数据
11. productName = Request.Form("productName")
12. categoryID = Request.Form("categoryID")
13. price = Request.Form("price")
15. ' 设置Command对象属性
16. Set cmd.ActiveConnection = conn
17. cmd.CommandText = "INSERT INTO Products (ProductName, CategoryID, Price) VALUES (?, ?, ?)"
18. cmd.CommandType = adCmdText
20. ' 创建参数对象
21. Set param1 = cmd.CreateParameter("ProductName", adVarChar, adParamInput, 100, productName)
22. Set param2 = cmd.CreateParameter("CategoryID", adInteger, adParamInput, , categoryID)
23. Set param3 = cmd.CreateParameter("Price", adCurrency, adParamInput, , price)
25. ' 添加参数到Command对象
26. cmd.Parameters.Append param1
27. cmd.Parameters.Append param2
28. cmd.Parameters.Append param3
30. ' 执行插入操作
31. cmd.Execute
33. ' 关闭连接
34. conn.Close
35. Set conn = Nothing
36. Set cmd = Nothing
38. ' 重定向到成功页面
39. Response.Redirect "success.asp"
40. %>

复制代码

更新数据

更新数据库中的现有记录是另一个常见的操作。以下是使用ASP更新数据的示例：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
9. ' 获取表单数据
10. productID = Request.Form("productID")
11. productName = Request.Form("productName")
12. categoryID = Request.Form("categoryID")
13. price = Request.Form("price")
15. ' 构建SQL更新语句
16. sql = "UPDATE Products SET ProductName = '" & productName & "', CategoryID = " & categoryID & ", Price = " & price & " WHERE ProductID = " & productID
18. ' 执行更新操作
19. conn.Execute sql
21. ' 关闭连接
22. conn.Close
23. Set conn = Nothing
25. ' 重定向到成功页面
26. Response.Redirect "success.asp"
27. %>

复制代码

同样，使用参数化查询更安全：

2. <%
3. ' 创建Connection和Command对象
4. Set conn = Server.CreateObject("ADODB.Connection")
5. Set cmd = Server.CreateObject("ADODB.Command")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 获取表单数据
11. productID = Request.Form("productID")
12. productName = Request.Form("productName")
13. categoryID = Request.Form("categoryID")
14. price = Request.Form("price")
16. ' 设置Command对象属性
17. Set cmd.ActiveConnection = conn
18. cmd.CommandText = "UPDATE Products SET ProductName = ?, CategoryID = ?, Price = ? WHERE ProductID = ?"
19. cmd.CommandType = adCmdText
21. ' 创建参数对象
22. Set param1 = cmd.CreateParameter("ProductName", adVarChar, adParamInput, 100, productName)
23. Set param2 = cmd.CreateParameter("CategoryID", adInteger, adParamInput, , categoryID)
24. Set param3 = cmd.CreateParameter("Price", adCurrency, adParamInput, , price)
25. Set param4 = cmd.CreateParameter("ProductID", adInteger, adParamInput, , productID)
27. ' 添加参数到Command对象
28. cmd.Parameters.Append param1
29. cmd.Parameters.Append param2
30. cmd.Parameters.Append param3
31. cmd.Parameters.Append param4
33. ' 执行更新操作
34. cmd.Execute
36. ' 关闭连接
37. conn.Close
38. Set conn = Nothing
39. Set cmd = Nothing
41. ' 重定向到成功页面
42. Response.Redirect "success.asp"
43. %>

复制代码

删除数据

从数据库中删除记录也是常见的操作。以下是使用ASP删除数据的示例：

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 打开数据库连接
7. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
9. ' 获取要删除的记录ID
10. productID = Request.QueryString("id")
12. ' 构建SQL删除语句
13. sql = "DELETE FROM Products WHERE ProductID = " & productID
15. ' 执行删除操作
16. conn.Execute sql
18. ' 关闭连接
19. conn.Close
20. Set conn = Nothing
22. ' 重定向到产品列表页面
23. Response.Redirect "product_list.asp"
24. %>

复制代码

使用参数化查询更安全：

2. <%
3. ' 创建Connection和Command对象
4. Set conn = Server.CreateObject("ADODB.Connection")
5. Set cmd = Server.CreateObject("ADODB.Command")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 获取要删除的记录ID
11. productID = Request.QueryString("id")
13. ' 设置Command对象属性
14. Set cmd.ActiveConnection = conn
15. cmd.CommandText = "DELETE FROM Products WHERE ProductID = ?"
16. cmd.CommandType = adCmdText
18. ' 创建参数对象
19. Set param = cmd.CreateParameter("ProductID", adInteger, adParamInput, , productID)
20. cmd.Parameters.Append param
22. ' 执行删除操作
23. cmd.Execute
25. ' 关闭连接
26. conn.Close
27. Set conn = Nothing
28. Set cmd = Nothing
30. ' 重定向到产品列表页面
31. Response.Redirect "product_list.asp"
32. %>

复制代码

调用存储过程

存储过程是预编译的SQL语句，存储在数据库中，可以提高性能和安全性。以下是使用ASP调用存储过程的示例：

2. <%
3. ' 创建Connection和Command对象
4. Set conn = Server.CreateObject("ADODB.Connection")
5. Set cmd = Server.CreateObject("ADODB.Command")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 设置Command对象属性
11. Set cmd.ActiveConnection = conn
12. cmd.CommandText = "sp_GetProductsByCategory"
13. cmd.CommandType = adCmdStoredProc
15. ' 创建参数对象
16. Set param = cmd.CreateParameter("CategoryID", adInteger, adParamInput, , 1)
17. cmd.Parameters.Append param
19. ' 执行存储过程
20. Set rs = cmd.Execute
22. ' 处理查询结果
23. While Not rs.EOF
24.     Response.Write rs("ProductName") & " - $" & rs("Price") & "<br>"
25.     rs.MoveNext
26. Wend
28. ' 关闭记录集和连接
29. rs.Close
30. Set rs = Nothing
31. conn.Close
32. Set conn = Nothing
33. Set cmd = Nothing
34. %>

复制代码

处理事务

事务是一组作为单个逻辑单元执行的SQL操作，要么全部成功，要么全部失败。以下是使用ASP处理事务的示例：

2. <%
3. On Error Resume Next
5. ' 创建Connection对象
6. Set conn = Server.CreateObject("ADODB.Connection")
8. ' 打开数据库连接
9. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
11. ' 开始事务
12. conn.BeginTrans
14. ' 执行多个SQL操作
15. conn.Execute "INSERT INTO Orders (CustomerID, OrderDate) VALUES (1, GETDATE())"
16. conn.Execute "INSERT INTO OrderDetails (OrderID, ProductID, Quantity) VALUES (@@IDENTITY, 1, 2)"
17. conn.Execute "UPDATE Products SET Stock = Stock - 2 WHERE ProductID = 1"
19. ' 检查是否有错误
20. If Err.Number <> 0 Then
21.     ' 如果有错误，回滚事务
22.     conn.RollbackTrans
23.     Response.Write "订单处理失败: " & Err.Description
24. Else
25.     ' 如果没有错误，提交事务
26.     conn.CommitTrans
27.     Response.Write "订单处理成功"
28. End If
30. ' 关闭连接
31. conn.Close
32. Set conn = Nothing
33. %>

复制代码

实际应用案例

用户登录系统

用户登录系统是Web应用中最常见的功能之一。以下是使用ASP和数据库实现的用户登录系统：

2. <%@ Language=VBScript %>
3. <!DOCTYPE html>
4. <html>
5. <head>
6.     <title>用户登录</title>
7. </head>
8. <body>
9.     <h1>用户登录</h1>
10.     <form method="post" action="check_login.asp">
11.         <div>
12.             <label for="username">用户名:</label>
13.             <input type="text" id="username" name="username" required>
14.         </div>
15.         <div>
16.             <label for="password">密码:</label>
17.             <input type="password" id="password" name="password" required>
18.         </div>
19.         <div>
20.             <input type="submit" value="登录">
21.         </div>
22.     </form>
23. </body>
24. </html>

复制代码

2. <%@ Language=VBScript %>
3. <%
4. ' 获取表单数据
5. username = Request.Form("username")
6. password = Request.Form("password")
8. ' 创建Connection和Command对象
9. Set conn = Server.CreateObject("ADODB.Connection")
10. Set cmd = Server.CreateObject("ADODB.Command")
12. ' 打开数据库连接
13. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
15. ' 设置Command对象属性
16. Set cmd.ActiveConnection = conn
17. cmd.CommandText = "SELECT * FROM Users WHERE Username = ? AND Password = ?"
18. cmd.CommandType = adCmdText
20. ' 创建参数对象
21. Set param1 = cmd.CreateParameter("Username", adVarChar, adParamInput, 50, username)
22. Set param2 = cmd.CreateParameter("Password", adVarChar, adParamInput, 50, password)
24. ' 添加参数到Command对象
25. cmd.Parameters.Append param1
26. cmd.Parameters.Append param2
28. ' 执行查询
29. Set rs = cmd.Execute
31. ' 检查用户是否存在
32. If Not rs.EOF Then
33.     ' 用户存在，设置会话变量
34.     Session("UserID") = rs("UserID")
35.     Session("Username") = rs("Username")
36.    
37.     ' 重定向到主页
38.     Response.Redirect "home.asp"
39. Else
40.     ' 用户不存在，重定向回登录页面
41.     Response.Redirect "login.asp?error=1"
42. End If
44. ' 关闭记录集和连接
45. rs.Close
46. Set rs = Nothing
47. conn.Close
48. Set conn = Nothing
49. Set cmd = Nothing
50. %>

复制代码

2. <%@ Language=VBScript %>
3. <%
4. ' 检查用户是否已登录
5. If Session("UserID") = "" Then
6.     Response.Redirect "login.asp"
7. End If
8. %>
9. <!DOCTYPE html>
10. <html>
11. <head>
12.     <title>主页</title>
13. </head>
14. <body>
15.     <h1>欢迎, <%= Session("Username") %>!</h1>
16.     <p>这是一个受保护的页面，只有登录用户才能访问。</p>
17.     <p><a href="logout.asp">退出登录</a></p>
18. </body>
19. </html>

复制代码

2. <%@ Language=VBScript %>
3. <%
4. ' 清除会话变量
5. Session.Contents.RemoveAll()
6. Session.Abandon()
8. ' 重定向到登录页面
9. Response.Redirect "login.asp"
10. %>

复制代码

产品管理系统

产品管理系统是另一个常见的Web应用，它允许用户查看、添加、编辑和删除产品信息。以下是使用ASP和数据库实现的产品管理系统：

2. <%@ Language=VBScript %>
3. <%
4. ' 创建Connection对象
5. Set conn = Server.CreateObject("ADODB.Connection")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 执行SQL查询
11. Set rs = conn.Execute("SELECT p.*, c.CategoryName FROM Products p JOIN Categories c ON p.CategoryID = c.CategoryID ORDER BY p.ProductName")
12. %>
13. <!DOCTYPE html>
14. <html>
15. <head>
16.     <title>产品列表</title>
17. </head>
18. <body>
19.     <h1>产品列表</h1>
20.     <p><a href="product_add.asp">添加新产品</a></p>
21.     <table border="1">
22.         <tr>
23.             <th>产品ID</th>
24.             <th>产品名称</th>
25.             <th>类别</th>
26.             <th>价格</th>
27.             <th>库存</th>
28.             <th>操作</th>
29.         </tr>
30.         <% While Not rs.EOF %>
31.         <tr>
32.             <td><%= rs("ProductID") %></td>
33.             <td><%= rs("ProductName") %></td>
34.             <td><%= rs("CategoryName") %></td>
35.             <td><%= FormatCurrency(rs("Price")) %></td>
36.             <td><%= rs("Stock") %></td>
37.             <td>
38.                 <a href="product_edit.asp?id=<%= rs("ProductID") %>">编辑</a> |
39.                 <a href="product_delete.asp?id=<%= rs("ProductID") %>" onclick="return confirm('确定要删除这个产品吗？')">删除</a>
40.             </td>
41.         </tr>
42.         <%
43.             rs.MoveNext
44.         Wend
45.         %>
46.     </table>
47. </body>
48. </html>
49. <%
50. ' 关闭记录集和连接
51. rs.Close
52. Set rs = Nothing
53. conn.Close
54. Set conn = Nothing
55. %>

复制代码

2. <%@ Language=VBScript %>
3. <%
4. ' 创建Connection对象
5. Set conn = Server.CreateObject("ADODB.Connection")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 获取类别列表
11. Set rsCategories = conn.Execute("SELECT * FROM Categories ORDER BY CategoryName")
12. %>
13. <!DOCTYPE html>
14. <html>
15. <head>
16.     <title>添加产品</title>
17. </head>
18. <body>
19.     <h1>添加新产品</h1>
20.     <form method="post" action="product_save.asp?action=add">
21.         <div>
22.             <label for="productName">产品名称:</label>
23.             <input type="text" id="productName" name="productName" required>
24.         </div>
25.         <div>
26.             <label for="categoryID">类别:</label>
27.             <select id="categoryID" name="categoryID" required>
28.                 <% While Not rsCategories.EOF %>
29.                 <option value="<%= rsCategories("CategoryID") %>"><%= rsCategories("CategoryName") %></option>
30.                 <%
31.                     rsCategories.MoveNext
32.                 Wend
33.                 %>
34.             </select>
35.         </div>
36.         <div>
37.             <label for="price">价格:</label>
38.             <input type="text" id="price" name="price" required>
39.         </div>
40.         <div>
41.             <label for="stock">库存:</label>
42.             <input type="text" id="stock" name="stock" required>
43.         </div>
44.         <div>
45.             <label for="description">描述:</label>
46.             <textarea id="description" name="description" rows="4" cols="50"></textarea>
47.         </div>
48.         <div>
49.             <input type="submit" value="保存">
50.             <a href="product_list.asp">取消</a>
51.         </div>
52.     </form>
53. </body>
54. </html>
55. <%
56. ' 关闭记录集和连接
57. rsCategories.Close
58. Set rsCategories = Nothing
59. conn.Close
60. Set conn = Nothing
61. %>

复制代码

2. <%@ Language=VBScript %>
3. <%
4. ' 获取表单数据
5. action = Request.QueryString("action")
6. productID = Request.Form("productID")
7. productName = Request.Form("productName")
8. categoryID = Request.Form("categoryID")
9. price = Request.Form("price")
10. stock = Request.Form("stock")
11. description = Request.Form("description")
13. ' 创建Connection和Command对象
14. Set conn = Server.CreateObject("ADODB.Connection")
15. Set cmd = Server.CreateObject("ADODB.Command")
17. ' 打开数据库连接
18. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
20. ' 设置Command对象属性
21. Set cmd.ActiveConnection = conn
23. If action = "add" Then
24.     ' 添加新产品
25.     cmd.CommandText = "INSERT INTO Products (ProductName, CategoryID, Price, Stock, Description) VALUES (?, ?, ?, ?, ?)"
26.     cmd.CommandType = adCmdText
27.    
28.     ' 创建参数对象
29.     Set param1 = cmd.CreateParameter("ProductName", adVarChar, adParamInput, 100, productName)
30.     Set param2 = cmd.CreateParameter("CategoryID", adInteger, adParamInput, , categoryID)
31.     Set param3 = cmd.CreateParameter("Price", adCurrency, adParamInput, , price)
32.     Set param4 = cmd.CreateParameter("Stock", adInteger, adParamInput, , stock)
33.     Set param5 = cmd.CreateParameter("Description", adLongVarChar, adParamInput, 1000, description)
34.    
35.     ' 添加参数到Command对象
36.     cmd.Parameters.Append param1
37.     cmd.Parameters.Append param2
38.     cmd.Parameters.Append param3
39.     cmd.Parameters.Append param4
40.     cmd.Parameters.Append param5
41.    
42.     ' 执行插入操作
43.     cmd.Execute
44. ElseIf action = "edit" Then
45.     ' 更新产品
46.     cmd.CommandText = "UPDATE Products SET ProductName = ?, CategoryID = ?, Price = ?, Stock = ?, Description = ? WHERE ProductID = ?"
47.     cmd.CommandType = adCmdText
48.    
49.     ' 创建参数对象
50.     Set param1 = cmd.CreateParameter("ProductName", adVarChar, adParamInput, 100, productName)
51.     Set param2 = cmd.CreateParameter("CategoryID", adInteger, adParamInput, , categoryID)
52.     Set param3 = cmd.CreateParameter("Price", adCurrency, adParamInput, , price)
53.     Set param4 = cmd.CreateParameter("Stock", adInteger, adParamInput, , stock)
54.     Set param5 = cmd.CreateParameter("Description", adLongVarChar, adParamInput, 1000, description)
55.     Set param6 = cmd.CreateParameter("ProductID", adInteger, adParamInput, , productID)
56.    
57.     ' 添加参数到Command对象
58.     cmd.Parameters.Append param1
59.     cmd.Parameters.Append param2
60.     cmd.Parameters.Append param3
61.     cmd.Parameters.Append param4
62.     cmd.Parameters.Append param5
63.     cmd.Parameters.Append param6
64.    
65.     ' 执行更新操作
66.     cmd.Execute
67. End If
69. ' 关闭连接
70. conn.Close
71. Set conn = Nothing
72. Set cmd = Nothing
74. ' 重定向到产品列表页面
75. Response.Redirect "product_list.asp"
76. %>

复制代码

安全性考虑

SQL注入攻击防护

SQL注入是一种常见的Web应用安全漏洞，攻击者可以通过注入恶意SQL代码来操纵数据库查询。在ASP中，有几种方法可以防止SQL注入攻击：

参数化查询是防止SQL注入的最有效方法。它将SQL语句和参数分开处理，确保用户输入不会被解释为SQL代码。

2. <%
3. ' 创建Connection和Command对象
4. Set conn = Server.CreateObject("ADODB.Connection")
5. Set cmd = Server.CreateObject("ADODB.Command")
7. ' 打开数据库连接
8. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
10. ' 获取用户输入
11. username = Request.Form("username")
12. password = Request.Form("password")
14. ' 设置Command对象属性
15. Set cmd.ActiveConnection = conn
16. cmd.CommandText = "SELECT * FROM Users WHERE Username = ? AND Password = ?"
17. cmd.CommandType = adCmdText
19. ' 创建参数对象
20. Set param1 = cmd.CreateParameter("Username", adVarChar, adParamInput, 50, username)
21. Set param2 = cmd.CreateParameter("Password", adVarChar, adParamInput, 50, password)
23. ' 添加参数到Command对象
24. cmd.Parameters.Append param1
25. cmd.Parameters.Append param2
27. ' 执行查询
28. Set rs = cmd.Execute
30. ' 处理结果
31. If Not rs.EOF Then
32.     ' 用户验证成功
33.     Session("UserID") = rs("UserID")
34.     Response.Redirect "home.asp"
35. Else
36.     ' 用户验证失败
37.     Response.Redirect "login.asp?error=1"
38. End If
40. ' 关闭记录集和连接
41. rs.Close
42. Set rs = Nothing
43. conn.Close
44. Set conn = Nothing
45. Set cmd = Nothing
46. %>

复制代码

输入验证是另一种防止SQL注入的重要方法。在处理用户输入之前，应该验证输入是否符合预期的格式和范围。

2. <%
3. ' 获取用户输入
4. productID = Request.QueryString("id")
6. ' 验证输入是否为数字
7. If Not IsNumeric(productID) Then
8.     Response.Write "无效的产品ID"
9.     Response.End
10. End If
12. ' 转换为整数
13. productID = CLng(productID)
15. ' 创建Connection对象
16. Set conn = Server.CreateObject("ADODB.Connection")
18. ' 打开数据库连接
19. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
21. ' 执行SQL查询
22. Set rs = conn.Execute("SELECT * FROM Products WHERE ProductID = " & productID)
24. ' 处理结果
25. If Not rs.EOF Then
26.     ' 显示产品信息
27.     Response.Write "产品名称: " & rs("ProductName")
28. Else
29.     Response.Write "产品不存在"
30. End If
32. ' 关闭记录集和连接
33. rs.Close
34. Set rs = Nothing
35. conn.Close
36. Set conn = Nothing
37. %>

复制代码

身份验证和授权

身份验证和授权是保护Web应用程序的重要机制。身份验证确认用户是谁，授权确定用户可以访问哪些资源。

基于表单的身份验证是最常见的身份验证方法之一。用户通过填写表单提供用户名和密码，服务器验证这些凭据。

2. <%@ Language=VBScript %>
3. <%
4. ' 检查用户是否已提交登录表单
5. If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
6.     ' 获取表单数据
7.     username = Request.Form("username")
8.     password = Request.Form("password")
9.    
10.     ' 创建Connection和Command对象
11.     Set conn = Server.CreateObject("ADODB.Connection")
12.     Set cmd = Server.CreateObject("ADODB.Command")
13.    
14.     ' 打开数据库连接
15.     conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
16.    
17.     ' 设置Command对象属性
18.     Set cmd.ActiveConnection = conn
19.     cmd.CommandText = "SELECT * FROM Users WHERE Username = ? AND Password = ?"
20.     cmd.CommandType = adCmdText
21.    
22.     ' 创建参数对象
23.     Set param1 = cmd.CreateParameter("Username", adVarChar, adParamInput, 50, username)
24.     Set param2 = cmd.CreateParameter("Password", adVarChar, adParamInput, 50, password)
25.    
26.     ' 添加参数到Command对象
27.     cmd.Parameters.Append param1
28.     cmd.Parameters.Append param2
29.    
30.     ' 执行查询
31.     Set rs = cmd.Execute
32.    
33.     ' 检查用户是否存在
34.     If Not rs.EOF Then
35.         ' 用户存在，设置会话变量
36.         Session("UserID") = rs("UserID")
37.         Session("Username") = rs("Username")
38.         Session("Role") = rs("Role")
39.         
40.         ' 更新最后登录时间
41.         conn.Execute "UPDATE Users SET LastLogin = GETDATE() WHERE UserID = " & rs("UserID")
42.         
43.         ' 重定向到主页
44.         Response.Redirect "home.asp"
45.     Else
46.         ' 用户不存在，设置错误消息
47.         Session("LoginError") = "用户名或密码错误"
48.     End If
49.    
50.     ' 关闭记录集和连接
51.     rs.Close
52.     Set rs = Nothing
53.     conn.Close
54.     Set conn = Nothing
55.     Set cmd = Nothing
56. End If
57. %>
58. <!DOCTYPE html>
59. <html>
60. <head>
61.     <title>用户登录</title>
62. </head>
63. <body>
64.     <h1>用户登录</h1>
65.     <% If Session("LoginError") <> "" Then %>
66.     <div style="color: red;"><%= Session("LoginError") %></div>
67.     <% Session("LoginError") = "" %>
68.     <% End If %>
69.     <form method="post">
70.         <div>
71.             <label for="username">用户名:</label>
72.             <input type="text" id="username" name="username" required>
73.         </div>
74.         <div>
75.             <label for="password">密码:</label>
76.             <input type="password" id="password" name="password" required>
77.         </div>
78.         <div>
79.             <input type="submit" value="登录">
80.         </div>
81.     </form>
82. </body>
83. </html>

复制代码

性能优化

数据库连接管理

数据库连接是宝贵的资源，应该有效地管理它们以提高应用程序的性能。以下是几种优化数据库连接管理的方法：

连接池是一种重用数据库连接的技术，可以显著提高应用程序的性能。在ASP中，可以通过配置ODBC数据源或OLE DB连接字符串来启用连接池。

2. <%
3. ' 创建Connection对象
4. Set conn = Server.CreateObject("ADODB.Connection")
6. ' 配置连接字符串以启用连接池
7. connStr = "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;OLE DB Services=-2;"
9. ' 打开数据库连接
10. conn.Open connStr
12. ' 执行数据库操作
13. Set rs = conn.Execute("SELECT * FROM Products")
15. ' 处理结果
16. While Not rs.EOF
17.     Response.Write rs("ProductName") & "<br>"
18.     rs.MoveNext
19. Wend
21. ' 关闭记录集和连接
22. rs.Close
23. Set rs = Nothing
24. conn.Close
25. Set conn = Nothing
26. %>

复制代码

及时关闭数据库连接是良好的编程实践，可以释放资源并提高性能。可以使用ASP的On Error Resume Next和On Error GoTo 0来确保连接在发生错误时也能被关闭。

2. <%
3. On Error Resume Next
5. ' 创建Connection对象
6. Set conn = Server.CreateObject("ADODB.Connection")
8. ' 打开数据库连接
9. conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
11. ' 检查是否发生错误
12. If Err.Number <> 0 Then
13.     Response.Write "连接数据库时发生错误: " & Err.Description
14. Else
15.     ' 执行数据库操作
16.     Set rs = conn.Execute("SELECT * FROM Products")
17.    
18.     ' 检查是否发生错误
19.     If Err.Number = 0 Then
20.         ' 处理结果
21.         While Not rs.EOF
22.             Response.Write rs("ProductName") & "<br>"
23.             rs.MoveNext
24.         Wend
25.     Else
26.         Response.Write "执行查询时发生错误: " & Err.Description
27.     End If
28.    
29.     ' 关闭记录集
30.     rs.Close
31.     Set rs = Nothing
32. End If
34. ' 关闭连接
35. conn.Close
36. Set conn = Nothing
38. ' 重置错误处理
39. On Error GoTo 0
40. %>

复制代码

缓存技术

缓存是一种存储常用数据的技术，可以减少数据库访问次数，提高应用程序性能。

ASP提供了Application对象，可以用于存储应用程序级别的缓存数据。

2. <%
3. ' 检查缓存中是否存在产品类别数据
4. If Not IsObject(Application("Categories")) Then
5.     ' 缓存中不存在，从数据库获取
6.     Set conn = Server.CreateObject("ADODB.Connection")
7.     conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
8.    
9.     Set rs = conn.Execute("SELECT * FROM Categories ORDER BY CategoryName")
10.    
11.     ' 将数据存储到缓存中
12.     Set Application("Categories") = rs.GetRows()
13.    
14.     ' 关闭记录集和连接
15.     rs.Close
16.     Set rs = Nothing
17.     conn.Close
18.     Set conn = Nothing
19. End If
21. ' 从缓存中获取数据
22. categories = Application("Categories")
24. ' 显示数据
25. For i = 0 To UBound(categories, 2)
26.     Response.Write categories(1, i) & "<br>"  ' 假设第二列是CategoryName
27. Next
28. %>

复制代码

ASP提供了Session对象，可以用于存储用户特定的缓存数据。

2. <%
3. ' 检查缓存中是否存在用户购物车数据
4. If Not IsObject(Session("ShoppingCart")) Then
5.     ' 缓存中不存在，从数据库获取
6.     Set conn = Server.CreateObject("ADODB.Connection")
7.     conn.Open "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDB;User Id=myUser;Password=myPass;"
8.    
9.     Set cmd = Server.CreateObject("ADODB.Command")
10.     Set cmd.ActiveConnection = conn
11.     cmd.CommandText = "sp_GetShoppingCart"
12.     cmd.CommandType = adCmdStoredProc
13.    
14.     Set param = cmd.CreateParameter("UserID", adInteger, adParamInput, , Session("UserID"))
15.     cmd.Parameters.Append param
16.    
17.     Set rs = cmd.Execute()
18.    
19.     ' 将数据存储到缓存中
20.     Set Session("ShoppingCart") = rs.GetRows()
21.    
22.     ' 关闭记录集和连接
23.     rs.Close
24.     Set rs = Nothing
25.     conn.Close
26.     Set conn = Nothing
27.     Set cmd = Nothing
28. End If
30. ' 从缓存中获取数据
31. cartItems = Session("ShoppingCart")
33. ' 显示数据
34. For i = 0 To UBound(cartItems, 2)
35.     Response.Write cartItems(1, i) & " - " & cartItems(2, i) & "<br>"  ' 假设第二列是ProductName，第三列是Quantity
36. Next
37. %>

复制代码

总结

ASP（Active Server Pages）是一种强大的服务器端脚本技术，而不是数据库系统。它的真正价值在于能够连接并操作各种数据库系统，从而实现数据的动态展示和交互。通过本文的介绍，我们深入了解了ASP如何与数据库交互，包括连接不同类型的数据库、执行各种数据库操作、构建实际应用案例以及考虑安全性和性能优化。

ASP的数据库连接和操作技术为开发人员提供了丰富的工具和灵活性，使他们能够构建功能强大、性能优良的动态网页应用。无论是小型网站还是大型企业应用，ASP都能够满足不同的需求，提供可靠的数据访问和处理能力。

尽管ASP.NET已经取代了传统ASP，成为微软Web开发的主流技术，但许多现有的Web应用程序仍然使用传统ASP技术。因此，了解ASP的数据库连接和操作技术仍然具有重要的实际意义，特别是在维护和升级现有系统时。

通过掌握ASP的数据库技术，开发人员可以更好地理解Web应用程序的工作原理，为学习和使用更现代的技术（如ASP.NET、PHP、Java等）打下坚实的基础。无论技术如何发展，数据库连接和操作的基本原理都是相似的，这些知识和经验将在开发人员的职业生涯中持续发挥作用。