连接Access 这样难道不行吗？
<%
dim conn,dbpath
Set conn=Server.CreateObject("ADODB.CONNECTION")
dbpath=Server.MapPath("database200512.mdb")
conn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=dbpath"
conn.Open
If Conn.State=1 Then
Response.Write("数据库已经打开")
End If
%>
<script language="javascript">
alert（"单击关闭数据库"）
</script>
<%
Conn.Close
If Conn.State=0 Then
Response.Write("数据库已经关闭")
End If
Set Conn=nothing
%>
出错提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x92c Thread 0xc6c DBC 0x146009c Jet'。
/index.asp，行 6
[此贴子已经被作者于2005-12-26 22:44:16编辑过]
