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