oconn.asp

blue space 蓝色空间下载系统精简版---大家分享

<%
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
%>