ASP 连接 ACCESS 数据库

<%
starttime=timer()

 

DbType = "ACCESS" '链接ACCESS数据库

if DbType="ACCESS" then
 DB = "sys/data/data.mdb"
 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
end if

If Err Then
 err.Clear
 Set Conn = Nothing
 Response.Write "数据库连接出错。"
 Response.End
End If
%>