<%
Dim oConn
Sub DBConnBegin()
	If IsObject(oConn) Then Exit Sub
	Dim  dbFilePath,dbFileName
	dbFileName = ""&SystemPath&"/DataBase/#bluespace_soft_dd.asp"
	dbFilePath = Server.MapPath(dbFileName)
	Set oConn = Server.CreateObject("ADODB.Connection")
	On Error Resume Next
	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilePath
	If Err Then
		Err.Clear
		oConn.Close
		Set oConn = Nothing
		Response.Write "數據庫連接出錯，請檢查數據庫連接文件，如果你是普通用戶，請和管理員聯系。"
		Response.End
	End If
End Sub

If Not IsObject(oConn) Then Call DBConnBegin()

Sub CloseConn()
	If IsObject(oConn) Then
		oConn.Close
		Set oConn = Nothing
	End If
End Sub
%>