数据库连接是一种关键的有限的昂贵的资源,这一点在多用户的网页应用程序中体现得尤为突出。对数据库连接的管理能显著影响到整个应用程序的伸缩性和健壮性,影响到程序的性能指标。数据库连接池正是针对这个问题提出来的。数据库连接池负责分配、管理和释放数据库连接,它允许应用程序重复使用一个现有的数据库连接,而再不是重新建立一个;释放空闲时间超过最大空闲时间的数据库连接来避免因为没有释放数据库连接而引起的数据库连接遗漏。这项技术能明显提高对数据库操作的性能。
但是这项技术一般在java ,php ,.net 里面运用到,asp很少用到,因为一些企业网站根本就不需要这样的技术。
也不是不能使用,下面就是研究出来的asp版本,能够加快网页的访问速度,降低数据库的压力。
1.数据库连接文件 DbPool.asp
< % Const PoolSize = 10 Const Connstr = "Driver={SQL Server};Server=(local);UID=sa;word=555;Database=db" Function GetRandString(lenth) Dim rndstr,i Randomize rndstr = "" i = 1 do while i <= lenth rndstr = rndstr & Chr(cint(((120 - 98 + 1) * Rnd )+ 97)) i = i + 1 loop GetRandString = rndstr End Function Function CreateDbConn() Dim DbConn,ConnKey Set DbConn = Server.CreateObject("ADODB.Connection") DbConn.Open Connstr ConnKey = GetRandString(10) DbPool.Add ConnKey,DbConn End Function Function GetDbConn() Dim CurKey,Keys If DbPool.Count > 0 Then Keys = DbPool.Keys ' 获取键名。 CurKey = Keys(0) Response.Write "Cur DbConn Key Is : " & CurKey & "<br />" Set Conn = Server.CreateObject("ADODB.Connection") Set Conn = DbPool(CurKey) If Conn.State = adStateClosed Then '如果这个连接已经关闭,将其从池里注销,再新建一个可用的连接并添加到池里 DbPool.Remove CurKey Call CreateDbConn() '新建一个连接并添加到池里 Set GetDbConn = GetDbConn() Else '否则的话,将其从池里注销,然后将复制的对象返回 DbPool.Remove CurKey Set GetDbConn = Conn Exit Function End If Else Response.Write "连接池已用完,请重新初始化应用程序" Response.End End if End Function Function FreeDbConn(DbConn) DbPool.Add GetRandString(10),DbConn End Function
2.全局文件 global.asa
<object ID="DbPool" Progid="Scripting.Dictionary" Scope="Application" runat="server"></object> <!--#include file="DbPool.asp"--> < % Sub Application_OnStart Dim ConnKey For i = 1 To PoolSize '建立指定数目的数据库连接 CreateDbConn() Next End Sub Sub Application_OnEnd DbPool.RemoveAll End Sub %>
3.测试文件 test.asp
<!--#include file="DbPool.asp"--> < % Response.Write "Test Start:<br>" Response.Write "Current Objects count : " & DbPool.Count & "<br />" Set dbconn = Server.CreateObject("ADODB.Connection") Set dbconn = GetDbConn() Response.Write "get one connection from pool <br />" Response.Write "Current Objects count : " & DbPool.Count & "<br />" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open "select * from mkdb",dbconn,1,1 Do While Not rs.eof Response.write Rs("v_oid") & "<br />" Rs.movenext loop FreeDbConn(dbconn) Response.Write "free one connection to pool <br />" Response.Write "Current Objects count : " & DbPool.Count & "<br />" %>
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年09月26日
2024年09月26日
- 纯音入心系列纯音乐《中央民族乐团-古筝传奇》1CD[MP3][253.1MB]
- 江玲.1989-这样你才爱我,是吗?【新作有声】【WAV+CUE】
- 郭美美.2010-我是郭美美【华纳】【WAV+CUE】
- 黄心懋1991-轻忧郁【滚石】【WAV+CUE】
- 群星.2000-大地金曲世纪回顾2CD【大地】【WAV+CUE】
- 王菲.1996-浮躁(2024环球MQA-UHQCD限量版)【环球】【WAV+CUE】
- 群星.2022-传家电视剧原声带【东阳欢娱】【FLAC分轨】
- 《摇滚教父 伍佰黄金精选 2CD》 [WAV+CUE][1GB]
- 《凤凰传奇 我从草原来》[WAV/分轨][400MB]
- 《叶倩文 真心真意过一生》[WAV+CUE][400MB]
- 潘越云.1985-世间女子(滚石25周年经典复刻版)【滚石】【WAV+CUE】
- 陈柏宇.2009-CANT.BE.HALF【SONY】【WAV+CUE】
- 李明依.1989-小女生【滚石】【WAV+CUE】
- 《李荣浩 新时代创作新人王》[WAV分轨][310MB]
- 《黑鸭子与马头琴 史上最动听草原音乐》[WAV+CUE][320MB]