<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Option Explicit
Dim ConnStr
Dim Db,MyDbPath
Const MsxmlVersion=".3.0" ''XML版本
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0
MyDbPath = ""
Const EnabledSession= True''开启session
If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
	Const SqlDatabaseName = "love"
	Const SqlPassword = "love"
	Const SqlUsername = "love"
	Const SqlLocalName = "(local)"
Else
	Db = "data/data.mdb"
End If

Sub OpenConn()
If IsSqlDataBase = 1 Then
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
End If
End Sub
%>