<%
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
%>
分享到:
相关推荐
Oracle Times Ten内存数据库11g和内存数据库高速缓存11g上市.pdf
内存数据库在高速缓存方面的应用,杨艳,李炜,随着Internet技术的不断发展,影响网络速度的瓶颈主要集中在访问距离和服务器承载负荷能力方面,扩展服务器或者镜像服务器作为基本�
惠普服务器高速缓存的设置方法,主要用于数据库读写速度的快慢
一般的使用目的是,通过缓存数据库查询结果,减少数据库访问次数,以提高动态Web应用的速度、提高可扩展性。 如今,越来越多的Web应用程序开始使用memcached这个高速的缓存服务器软件。然而,memcached的基础知识远...
一,使数据库支持SQL高速缓存依赖性。 二,使表支持SQL高速缓存依赖性。 三,在ASP.NET应用程序的web.config文件中包含SQL连接字符串。 四,以如下方式利用SQL高速缓存依赖性: 1)在代码中编程创建一个...
高速神言- Common Lisp中的一个轻量级数据库缓存
插件也不需要什么设置,DB Cache Reloaded插件的界面和DB Cache插件的设置界面完全相同,这里也就不再多做介绍了,当你启用了此插件后,在你的缓存目录wp-content会出现tmp高速缓存文件夹,里面存放着你的相关 ...
拉达缓存 基于Redis的,用于Laravel的完全自动化且可扩展的数据库缓存层 贡献者想要! 如果您对通过环聊进行快速介绍感兴趣,请查看并给我发送电子邮件。目录有关该库如何工作以及如何调试的更多信息,请查看 。产品...
优化数据库缓冲区高速缓存: 错误!未定义书签。 优化共享池: 错误!未定义书签。 优化数据字典高速缓存: 14 优化游标: 15 注释:以上增加SGA分配的调整以SGA不被换出实存为限,否则SGA部分换出实存反而降低Oracle...
课程目标I-2 Oracle9i 企业版I-3 数据库管理员的任务I-4 1 Oracle 体系结构组件 目标1-2 基本组件概览1-3 ...数据库缓冲区高速缓存1-18 重做日志缓冲区1-21 大型共享池1-22 Java 池1-24 程序全局区1-25
您可能感兴趣的文章:MySQL优化之缓存优化mysql的查询缓存说明使用Memcache缓存mysql数据库操作的原理和缓存过程浅析浅析MySQL内存的使用说明(全局缓存+线程缓存)MySQL高速缓存启动方法及参数详解(query_cache_...
SQLite的SQL语句高速缓存技术.pdf
19、只有一个文件,喜欢怎么移植都可以,兼容所有其他网站系统,不需要任何数据库支持,全缓存模式,高速、安全、可靠; 20、使用前请打开程序文件,修改前20行的内容,如何修改,都做了非常详细的说明。
Oracle 数据库常用命令和概念 一、 系统全局区(SGA) 系统全局区(System Global Area)为一组由Oracle分配的共享的内存结构,可包含一个...SGA总容量=共享池+缓冲区高速缓存+大型存储区+Java存储区+日志缓冲区
Dbcache Flush 关闭当前在数据库高速缓存中打开的所有数据库。使用此命令可以在高速缓存中维护数据库,例如:备份或恢复数据库。 Drop username 关闭一个或多个服务器会话。如果希望亲眼确认哪些会话已被关闭,...
另外Cache Server拥有强大的编程能力,拥有业内功能最强大的内存数据库脚本,使Cache Server不只作为数据的高速缓存服务器,更能够实现复杂的业务逻辑,通过编写数据库脚本和存储过程实现以前通过C/C++编程才能实现...
Redis 是完全开源免费的,遵守BSD协议,是一个高性能的key-value数据库。 Redis 与其他 key - value 缓存产品有以下三个特点: Redis支持数据的持久化,可以将内存中的数据保存在磁盘中,重启的时候可以再次加载...
另外Cache Server拥有强大的编程能力,拥有业内功能最强大的内存数据库脚本,使Cache Server不只作为数据的高速缓存服务器,更能够实现复杂的业务逻辑,通过编写数据库脚本和存储过程实现以前通过C/C++编程才能实现...
优化数据库缓冲区高速缓存: 错误!未定义书签。 优化共享池: 错误!未定义书签。 优化数据字典高速缓存: 13 优化游标: 13 注释:以上增加SGA分配的调整以SGA不被换出实存为限,否则SGA部分换出实存反而降低Oracle...
希望顺畅地对数据进行缓存(Cache)处理 希望对数组类型的数据进行高速处理 希望进行全部保存 多样的NoSQL数据库 NoSQL数据库存在着“key-value存储”、“文档型数据库”、“列存储数据库”等各种各样的种类,每种...