conn.asp

来自「CC足球投注系统」· ASP 代码 · 共 29 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Response.Buffer=True
Dim SqlNowString,Conn
Const IsSqlDataBase=0
Dim Db
Dim ConnStr
If IsSqlDataBase=1 Then		
		Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
		SqlDatabaseName="bet"
		SqlPassword="betsystem"
		SqlUsername="bet"
		SqlLocalName="(local)"
		ConnStr="Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Elseif IsSqlDataBase=0 Then
		Db="bet2004.mdb"
		ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)		
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
		Response.Write err.number
		response.write("<br>")
		response.write err.description
		Response.End
	End If
%>