conn.asp

这是一套基于WEB的网站管理系统

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Dim startime,Conn,ConnStr
Dim db,DBPath
Response.Buffer = True
startime = Timer()
'------------------------------------------
'-- ACCESS数据库连接路径,请使用根路径或者绝对路径
db = "\database\#newasp.mdb"

'-- 采集数据库连接路径
DBPath = "/database/#Collect.mdb"		'-- 请用根相对路径

Sub ConnectionDatabase()
	On Error Resume Next
	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(db)
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。"
		Response.End
	End If
End Sub
Sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		Conn.Close
		Set Conn = Nothing
	End If
	Set Newasp = Nothing
End Sub
%>