ASP数据库打开关闭

web必须设计数据库，否则它存在的意义永远只会留在1.0时代。为了进步所以记录了下最基础的连接数据库！

'''打开SQL数据库
Function DimConnDataBase_A() 
     DimConnDataBase_A = "DRIVER={Sql Server}; server=.; Database=DB_A;Uid=sa;Pwd=sa"
End Function

Dim Conn_A
Sub OpenDataBase_A()
      On Error Resume Next
      Set Conn_A = Server.CreateObject("ADODB.Connection")
      Conn_A.Open DimConnDataBase_A
      If  Err Then
            Err.Clear
            Response.Write "Connection DataBase ERR (Z)"
            Response.End
            Set Conn_A = Nothing 
      End If
End Sub
'''关闭数据库
Sub CloseDataBase_A()
      If  IsObject(Conn_A) Then 
            Conn_A.Close
            Set Conn_A = Nothing
      End If
End Sub
'''打开ACCESS数据库
set conn=server.createobject("adodb.connection")
conn.open "DBQ="&server.mappath("db.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
--------------------------------------------------------------------------------------------------
set conn = server.createobject("ADODB.Connection")
conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=绝对路径"
'''打开MySQL数据库
Set connmy=Server.CreateObject("ADODB.Connection")
connmy.ConnectionString="Driver={MySQL ODBC 5.1 Driver};SERVER=地址;DATABASE=数据库名;uid=用户名;pwd=密码"
connmy.Open