<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
response.buffer=true
session.codepage=936
response.charset="gb2312"
Dim Conn,db,MyDbPath,startime
Const isSqlDataBase = 0
Const MsxmlVersion=".3.0"  '系统采用XML版本设置
Const AcTCMSN="AcTCMSN"'系统缓存名称.在一个URL下安装多个ACTCMS请设置不同名称
Dim NowString,ConnStr
NowString = "Now()"
startime = Timer()

MyDbPath ="/www/"'系统安装目录,如在虚拟目录下安装.请填写 /虚拟目录名称/
db = "data_act/actcms.mdb" 'ACCESS数据库的文件名
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MyDbPath & db)
Sub ConnectionDatabase()
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置 [<a href=http://www.actcms.com/install.htm>Help</a>] &nbsp;[<a href='install/index.asp'>点击安装</a>]"
		Response.End
	End If
End Sub

Sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		Conn.Close:Set Conn = Nothing
	End If
End Sub
%>
