ASP連接SQL2005數(shù)據(jù)庫連接代碼

更新時間：2009年11月20日 17:54:01 作者：

動態(tài)網(wǎng)頁開發(fā) ASP連接SQL2005數(shù)據(jù)庫連接代碼

說明：
a、以下字符中數(shù)據(jù)庫名forum，數(shù)據(jù)庫服務器名WWW-2443D34E558\SQL2005（或者127.0.0.1）
b、查看sql數(shù)據(jù)庫服務器名稱：對象資源管理器->數(shù)據(jù)庫->右鍵點擊自己建的數(shù)據(jù)庫->屬性->權(quán)限
c、Provider=sqlncli也可以,UID與“=”之間不可以有空格，如果換用user id就可以有
空格，Initial Catalog可以換用database，pwd可以換用password，data source可以換用server，
在VBScript中，不區(qū)分大小寫，因此UID等同uid等同Uid。。。，其中provider、uid、pwd、
Initial Catalog、data source等位置可以自由放
（1）、windows身份驗證連接SQL2005字符串，使用Integrated Security=SSPI方法

復制代碼代碼如下:

 
'以下為建立connection對象連接數(shù)據(jù)庫 
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("連接已經(jīng)打開") 
Else 
Response.Write("對不起，無法打開連接") 
End If 

（2）、SQL SERVER用戶名身份驗證連接方法,此例中SQL用戶名為sa ,密碼********

復制代碼代碼如下:

 
'以下為建立connection對象連接數(shù)據(jù)庫 
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("連接已經(jīng)打開") 
Else 
Response.Write("對不起，無法打開連接") 
End If 

（3）、以上兩種方法也可以用以下方式

復制代碼代碼如下:

 
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn 
SqlDatabaseName = "forum" 'SQL數(shù)據(jù)庫名 
SqlUsername = "sa" 'SQL數(shù)據(jù)庫用戶名 
SqlPassword = "**********" 'SQL數(shù)據(jù)庫用戶密碼 
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("連接已經(jīng)打開") 
Else 
Response.Write("對不起，無法打開連接") 
End If 