conn.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<%@ 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()
%>