<%
  Dim DataBase,Conn,ConnStr
  DataBase = "DataBase.mdb"
  Set Conn = Server.CreateObject("ADODB.Connection")
  ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBase)
  
  If Err Then
    Err.Clear
  Else
    Conn.Open ConnStr
  End If

  Sub CloseConn()
    Conn.Close
    Set Conn = Nothing
  End Sub
%>
大家觉得这具数据库连接文件如何，有何不足之处吗？

连上就行

楼主想表达什么？

呵呵,我一般都是这样用的:
<%
  Dim DataBase,Conn
  DataBase = "DataBase.mdb"
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBase)
%>

支持楼上的观点.