asp连接数据库的问题
Sub ConnectGame(lDataBase)
Dim ConnStr
If RLGameIsSql = 1 ThenDim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlUsername = "xx"
SqlPassword = "xxxxxx"
'SqlDatabaseName = lDataBase
SqlDatabaseName = "xxxxxxxxx"
SqlLocalName = "local,1433"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
End If
On Error Resume Next
Set GameConn = Server.CreateObject("ADODB.Connection")
GameConn.open ConnStr
If Err Then
err.Clear
Set GameConn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
