<%@ LANGUAGE = VBScript CodePage = 936%><%
'Option Explicit
Response.Buffer = True
Dim Startime,SqlNowString,Conn,Db,MyDbPath,ConnStr

'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0
MyDbPath = ""
'================================================================================================================
Const SystemEdition = 3	'美斯卡网站管理系统的版本，1为免费版，2为标准版，3为高级版
Const IsDeBug = 1	'定义运行模式，测试的时候设置1，正常运行的时候设置为0,不输出错误信息有利于安全，
Startime = Timer()

If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
	Const SqlDatabaseName = "mesky_v3"
	Const SqlPassword = "123"
	Const SqlUsername = "sa"
	Const SqlLocalName = "(local)"
'================================================================================================================
	SqlNowString = "GetDate()"
	
Else

'必修改设置三：========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将MeskyDMS_Data.mdb修改为MeskyDMS_Data.asp
	Db = "Data/MeskyDMS_Data.mdb"
'================================================================================================================
	SqlNowString = "Now()"
End If

Sub ConnectionDatabase()
	On Error Resume Next
	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
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr	
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		Response.End
	End If
End Sub
Sub CloseConn()
	If IsObject(Conn) then
		Conn.close
		Set Conn = Nothing
	End If
End sub
%>