ASP中SQL数据库连接代码

在ASP (Active Server Pages) 中，使用 ADO (ActiveX Data Objects) 来连接到 SQL 数据库是非常常见的。下面是一个基本的 ASP 页面中用于连接到 SQL Server 的示例代码：

<%
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

' 创建数据库连接字符串
Dim strConnectionString As String
strConnectionString = "Provider=SQLOLEDB;Data Source=<你的服务器名称>;Initial Catalog=<你的数据库名称>;User ID=<你的用户名>;Password=<你的密码>"

' 尝试打开数据库连接
Set conn = New ADODB.Connection
conn.Open strConnectionString

' 如果连接成功，可以执行 SQL 查询
If conn.State = adStateOpen Then
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM <你的表名>", conn

    ' 这里处理查询结果
    Do While Not rs.EOF
        ' 显示或操作数据
        Response.Write(rs("字段名")) ' 用字段名替换 "字段名"
        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
Else
    ' 处理连接失败的情况
    MsgBox "无法连接到数据库."
End If

' 关闭数据库连接
conn.Close
Set conn = Nothing
%>

在这个例子中，你需要将 `<你的服务器名称>`、`<你的数据库名称>`、`<你的用户名>` 和 `<你的密码>` 替换为你实际的数据库信息，`<你的表名>` 和 `字段名` 替换成你要查询的表和需要读取的字段。