在 ASP（Active Server Pages）中读取数据库信息是一个常见的任务，通过与数据库建立连接并执行查询语句，可以将数据库中的数据提取出来并在网页上进行展示，本文将详细介绍如何在 ASP 中实现这一过程。

需要确保已安装并配置好 IIS（Internet Information Services），以及正确安装了相应的数据库驱动程序。

一、创建数据库和表

假设我们使用 MySQL 数据库，创建一个名为testdb 的数据库和一个名为users 的表。

CREATE DATABASE testdb;
USE testdb;
CREATE TABLE users (
    id INT PRIMARY KEY AUTO_INCREMENT,
    username VARCHAR(50),
    email VARCHAR(100)
);
INSERT INTO users (username, email) VALUES ('user1', 'user1@example.com');
INSERT INTO users (username, email) VALUES ('user2', 'user2@example.com');

二、在 ASP 中连接数据库

在 ASP 页面中，需要使用 ADO（ActiveX Data Objects）来连接数据库。

1. 创建数据库连接字符串

根据使用的数据库类型，创建相应的连接字符串，对于 MySQL，可以使用以下格式：

Dim connString
connString = "Driver={MySQL ODBC 8.0 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=yourpassword;"

> 注意：确保已安装 MySQL ODBC 驱动程序，并根据实际的数据库服务器地址、用户名和密码进行修改。

2. 打开数据库连接

使用Server.CreateObject 创建ADODB.Connection 对象，并打开连接。

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connString

三、执行查询并读取数据

连接到数据库后，可以执行 SQL 查询并读取返回的数据。

1. 创建记录集对象

使用Server.CreateObject 创建ADODB.Recordset 对象。

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

2. 执行查询

通过Open 方法执行查询，并将结果存储在记录集中，查询所有用户信息：

rs.Open "SELECT * FROM users", conn

3. 读取数据

遍历记录集，读取每一行的数据，可以使用Do While Not rs.EOF 循环来实现。

Do While Not rs.EOF
    Response.Write("ID: " & rs("id") & "<br>")
    Response.Write("Username: " & rs("username") & "<br>")
    Response.Write("Email: " & rs("email") & "<br><br>")
    rs.MoveNext
Loop

4. 关闭记录集和连接

在完成数据读取后，记得关闭记录集和数据库连接，以释放资源。

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

四、完整示例代码

以下是一个完整的 ASP 页面示例，用于读取数据库中的用户信息并在网页上显示。

<%
' 创建数据库连接字符串
Dim connString
connString = "Driver={MySQL ODBC 8.0 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=yourpassword;"
' 创建数据库连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connString
' 创建记录集对象
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' 执行查询
rs.Open "SELECT * FROM users", conn
' 读取数据并显示在网页上
Do While Not rs.EOF
    Response.Write("ID: " & rs("id") & "<br>")
    Response.Write("Username: " & rs("username") & "<br>")
    Response.Write("Email: " & rs("email") & "<br><br>")
    rs.MoveNext
Loop
' 关闭记录集和连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

将上述代码保存为一个.asp 文件，例如read_db.asp，然后在浏览器中访问该文件，即可看到从数据库中读取的用户信息。

五、常见问题及解答（FAQs）

1. 如何更改数据库连接字符串以适应不同的数据库？

数据库连接字符串的格式会根据所使用的数据库类型而有所不同，以下是一些常见数据库的连接字符串示例：

MySQL："Driver={MySQL ODBC 8.0 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=yourpassword;"

SQL Server："Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=testdb;User ID=sa;Password=yourpassword;"

Access："Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"

Oracle："Provider=MSDAORA;Data Source=ORCL;User Id=username;Password=password;"

根据实际使用的数据库类型和配置，修改连接字符串中的参数。

2. 如何处理数据库查询错误？

在执行数据库查询时，可能会遇到各种错误，例如连接失败、SQL 语法错误等，为了提高程序的健壮性，可以使用On Error Resume Next 语句来捕获错误，并进行相应的处理。

On Error Resume Next
Dim connString
connString = "Driver={MySQL ODBC 8.0 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=yourpassword;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connString
If Err.Number <> 0 Then
    Response.Write("数据库连接错误: " & Err.Description)
    Response.End
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM users", conn
If Err.Number <> 0 Then
    Response.Write("查询错误: " & Err.Description)
    Response.End
End If
Do While Not rs.EOF
    Response.Write("ID: " & rs("id") & "<br>")
    Response.Write("Username: " & rs("username") & "<br>")
    Response.Write("Email: " & rs("email") & "<br><br>")
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

在上面的代码中，如果发生错误，会输出错误描述并终止脚本的执行，这样可以帮助你快速定位和解决问题。