<%app
'鏈接Access2013的accdb文件ide
Dim connserver
Set conn = Server.CreateObject("adodb.connection")it
conn.Connectiontring="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & server.mappath("test.accdb") io
conn.Openclass
conn.Closetest
Set conn=Nothing map
%>im