mconn.asp

来自「六合彩投注全功能,无任何限制,此源码是先前从此网站下载,BUG太多,已修正先前的」· ASP 代码 · 共 25 行

<%
'Option Explicit
Response.Buffer = True

Dim Conn,ConnStr

	'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
		Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
		SqlDatabaseName = "ab588"
		SqlPassword = "2119949"
		SqlUsername = "sa"
		SqlLocalName = "127.0.0.1"
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		Response.End
	End If

%>