通过asp与access数据库建立连接

<%@ Language=VBScript %>
<%
    Dim conn, rs, sql
    ' 数据库路径
    Dim dbPath
    dbPath = Server.MapPath("Database.mdb")

    ' 创建连接字符串
    Dim connStr
    connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

    ' 创建并打开连接
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open connStr

    ' 创建SQL查询
    sql = "SELECT * FROM Users"

    ' 创建并打开记录集
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn

    ' 输出结果
    Do While Not rs.EOF
        Response.Write rs("Username") & "<br>"
        rs.MoveNext
    Loop

    ' 关闭记录集和连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
%>