asp sqlserver連接代碼

2016/12/8 9:08:151472 閱讀

Const SqlUsername = "----"          'SQL數據庫用戶名
Const SqlPassword = "----"          'SQL數據庫用戶密碼
Const SqlDatabaseName = "---"       'SQL數據庫名
Const SqlHostIP = "(local)"         'SQL主機IP地址。本地（指網站與數據庫在同一臺服務器上）可用“(local)”或“127.0.0.1”，非本機（指網站與數據庫分別在不同的服務器上）請填寫數據庫服務器的真實IP）

'以下代碼請勿改動
Dim Conn
    Dim ConnStr
    If SystemDatabaseType = "SQL" Then
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
    Else
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFileName)
    End If
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.open ConnStr
	 'Response.Write Err
    If Err Then
        Err.Clear
        Set Conn = Nothing
        Response.Write "數據庫連接出錯，請檢查數據庫參數設置。"
        Response.End
    End If

下一條：SQL 2005 端口設置

上一條：automation 服務器不能創建對象