asp如何连接access数据库

<%@ Language=VBScript %>
<%
    ' 定义数据库连接字符串
    Dim connStr
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 创建数据库连接对象
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    
    ' 打开数据库连接
    On Error Resume Next
    conn.Open connStr
    If Err.Number <> 0 Then
        Response.Write("数据库连接失败: " & Err.Description)
    Else
        Response.Write("数据库连接成功!")
        
        ' 在此处添加你的数据库操作代码
        
        ' 关闭数据库连接
        conn.Close
    End If
    
    ' 销毁数据库连接对象
    Set conn = Nothing
%>

<%
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询
    rs.Open "SELECT * FROM YourTableName", conn
    
    ' 遍历结果集并输出数据
    Do While Not rs.EOF
        Response.Write(rs("ColumnName") & "<br>")
        rs.MoveNext
    Loop
    
    ' 关闭记录集
    rs.Close
    Set rs = Nothing
%>