数据库高速缓存类

<%
Class CacheConn
Public Conn '数据连接对像
Private ErrStr '出错字符串
Private DBcache '是否使用dbcheck
Private ConFlag '数据连接状态
Private CookieName 'CookIe名(用于防止多网站冲突)
Private ConnStr '连接数据字串

'类始化
Private Sub Class_Initialize()
DBcache = 1
ConFlag = 0
End Sub

'类注销
Private Sub Class_Terminate()
CloseDatabase
End Sub

Public Property Let inCookieName(Vstr) 'CookIe名(用于防止多网站冲突)
CookieName = CStr(Vstr)
End Property

Public Property Let inConnStr(Vstr) '连接数据字串
ConnStr = CStr(Vstr)
End Property

Public Property Let inDBcache(Vstr) '连接数据字串
DBcache = CLng(Vstr)
End Property

'打开数据连接
Public Sub OpenDatabase()
If DBcache = 1 Then
If IsObject(Application(CookieName & "conn")) = False Or Application(CookieName & "conn") = "" Or Application(CookieName & "conn") <> Empty Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = ConnStr
Conn.Open
If Err Then
Err.Clear
Set Conn = Nothing
ErrStr = ErrStr & "数据库连接错误!<br>" & vbCrLf
Response.Write ErrStr
Response.End
End If
Application.Lock
Set Application(CookieName & "conn") = Conn
Application.UnLock
Else
Set Conn = Application(CookieName & "conn")
End If
Else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = ConnStr
Conn.Open
If Err Then
Err.Clear
Set Conn = Nothing
ErrStr = ErrStr & "数据库连接错误!<br>" & vbCrLf
Response.Write ErrStr
Response.End
End If
End If
ConFlag = 1
End Sub

'关闭数据连接
Public Sub CloseDatabase()
If ConFlag = 0 Then Exit Sub
If DBcache = 1 Then
Set Conn = Nothing
Else
Conn.Close
Set Conn = Nothing
End If
ConFlag = 0
End Sub
End Class
%>

用法

<%
Dim GBL_ConnStr '连接数据语句
GBL_ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("data/domain.mdb")
Const GBL_CookieName = "x86fly38domainmanager" '定义缓存名称(防止多网站冲突)
Const GBL_DBcache = 1 '定义是否使用缓存

Dim Conn
'打开数据
Sub inDatabase
'On Error Resume Next
Set eCon = New CacheConn
eCon.inCookieName = GBL_CookieName
eCon.inConnStr = GBL_ConnStr
eCon.inDBcache = GBL_DBcache
eCon.OpenDatabase
Set Conn = eCon.Conn
End Sub

'关闭数据
Sub OutDatabase
Set eCon = Nothing
End Sub
%>