<%

    '连接Access2013的accdb文件

    Dim conn

    Set conn = Server.CreateObject("adodb.connection")

    conn.Connectiontring="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & server.mappath("test.accdb") 

    conn.Open

    conn.Close

    Set conn=Nothing   

%>