<%@ 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"
Dim NowString,ConnStr

startime = Timer()
MyDbPath =""
	NowString = "Now()"
	db = "help/Help.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>]"
		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
Application.Contents.RemoveAll()
%>
