'以下為建立connection對象連接數據庫 Dim conn Set conn=Server.CreateObject("ADODB.Connection") sql="Provider=SQLoledb;data source=WWW-2443D34E558/SQL2005;UID=;PWD=;Initial Catalog=forum;Integrated Security=SSPI" conn.Open sql '以下為判斷是否連接 If conn.state=2 Then Response.Write("正在連接") ElseIf conn.state=1 Then Response.Write("連接已經打開") Else Response.Write("對不起,無法打開連接") End If
'以下為建立connection對象連接數據庫 Dim conn Set conn=Server.CreateObject("ADODB.Connection") sql="Provider=SQLoledb;data source=WWW-2443D34E558/SQL2005;UID=sa;PWD=********;Initial Catalog=forum" conn.Open sql '以下為判斷是否連接 If conn.state=2 Then Response.Write("正在連接") ElseIf conn.state=1 Then Response.Write("連接已經打開") Else Response.Write("對不起,無法打開連接") End If
(3)、以上兩種方法也可以用以下方式
復制代碼 代碼如下:
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn SqlDatabaseName = "forum" 'SQL數據庫名 SqlUsername = "sa" 'SQL數據庫用戶名 SqlPassword = "**********" 'SQL數據庫用戶密碼 SqlLocalName = "WWW-2443D34E558/SQL2005" 'SQL主機IP地址(服務器名) ConnStr = " Password = "&SqlPassword&"; user id =" & SqlUsername&"; Initial Catalog ="&SqlDatabaseName&"; data source ="& SqlLocalName &";Provider = sqloledb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr
If conn.state=2 Then Response.Write("正在連接") ElseIf conn.state=1 Then Response.Write("連接已經打開") Else Response.Write("對不起,無法打開連接") End If