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