连接ACCESS数据库

<%dim conn
Dim connstr
dim dbpath
dbpath=“/date.mdb“ ‘数据库地址,相对路径
connstr=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & Server.MapPath(dbpath)
‘On Error resume next

Set conn = Server.CreateObject(“ADODB.Connection“)
conn.Open connstr

If Err Then
err.Clear
Set Conn = Nothing
Response.Write “Sorry! 主数据库连接出错,请检查连接字串。“
Response.End
End If%>