实用的ASP连接数据库的函数 (2)

  dim Conn,Strconn
  Set Conn = Server.CreateObject("ADODB.Connection")
  Strconn="Provider = Microsoft.Jet.OLEDB.4.0; "
  Strconn=Strconn & "Data Source=数据库物理路径"
  Conn.Open Strconn
  If Err Then
  err.Clear
  Conn.close:set Conn=nothing
  Response.Write "对不起，数据库连接出错。"
  Response.End
  End If