conn.asp

大型豪华网络游戏交易平台!!有喜欢的就的就快哦~~~~~~

<%
Call SqlError(1)
Response.Buffer = True
IsSqlDataBase = 0 '定义数据库类别，1为SQL数据库，0为Access数据库
If IsSqlDataBase = 1 Then
	SqlDatabaseName = "ihelp"
	SqlPassword = "sa"
	SqlUsername = "sa"
	SqlLocalName = "127.0.0.1"
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
	DbFile = "whelpu_data/help.mdb"
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbFile)
End If
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
	Err.Clear
	Set Conn = Nothing
	Call Info("打开数据库发生错误！",1,"")
End If
On Error GoTo 0
%>