<%
Set Cn = Server.CreateObject("ADODB.Connection")
   strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbase/bgh1234567fh.asa")'这里是数据库所在的地址和名字
   Cn.Open strCon  
'dim db
'更改数据库名字
'db="data.mdb"
'Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
'conn.Open connstr 
%>