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
转载于:https://www.cnblogs.com/jguangliang/articles/1328744.html