首页后端开发ASP.NETAsp实现的数据库连接池功能函数分享

Asp实现的数据库连接池功能函数分享

时间2024-02-07 15:58:02发布访客分类ASP.NET浏览797
导读:收集整理的这篇文章主要介绍了Asp实现的数据库连接池功能函数分享,觉得挺不错的,现在分享给大家,也给大家做个参考。 数据库连接是一种关键的有限的昂贵的资源,这一点在多用户的网页应用程序中...
收集整理的这篇文章主要介绍了Asp实现的数据库连接池功能函数分享,觉得挺不错的,现在分享给大家,也给大家做个参考。

数据库连接是一种关键的有限的昂贵的资源,这一点在多用户的网页应用程序中体现得尤为突出。对数据库连接的管理能显著影响到整个应用程序的伸缩性和健壮性,影响到程序的性能指标。数据库连接池正是针对这个问题提出来的。数据库连接池负责分配、管理和释放数据库连接,它允许应用程序重复使用一个现有的数据库连接,而再不是重新建立一个;释放空闲时间超过最大空闲时间的数据库连接来避免因为没有释放数据库连接而引起的数据库连接遗漏。这项技术能明显提高对数据库操作的性能。

但是这项技术一般在java ,php ,.net 里面运用到,asp很少用到,因为一些企业网站根本就不需要这样的技术。
也不是不能使用,下面就是研究出来的asP版本,能够加快网页的访问速度,降低数据库的压力。

1.数据库连接文件 DbPool.asp

 %Const PoolSize = 10Const Connstr = "Driver={
SQL Server}
    ;
    Server=(local);
    UID=sa;
    word=555;
    Database=db" Function GetRandString(lenth)Dim rndstr,iRandomizerndstr = ""i = 1do while i = lenthrndstr = rndstr &
     Chr(cint(((120 - 98 + 1) * Rnd )+ 97))i = i + 1loopGetRandString = rndstrEnd Function Function CreateDbConn()Dim DbConn,ConnKeySet DbConn = Server.CreateObject("ADODB.Connection")DbConn.OPEn ConnstrConnKey = GetRandString(10)DbPool.Add ConnKey,DbConnEnd Function  Function GetDbConn()Dim CurKey,KeysIf DbPool.Count >
     0 ThenKeys = 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 CurKeyCall CreateDbConn() '新建一个连接并添加到池里Set GetDbConn = GetDbConn()Else '否则的话,将其从池里注销,然后将复制的对象返回DbPool.Remove CurKeySet GetDbConn = ConnExit FunctionEnd IfElseResponse.Write "连接池已用完,请重新初始化应用程序"Response.EndEnd ifEnd Function Function FreeDbConn(DbConn)DbPool.Add GetRandString(10),DbConnEnd Function

2.全局文件 global.asa

object ID="DbPool" PRogid="Scripting.Dictionary" Scope="Application" runat="server">
    /object>
    !--#include file="DbPool.asp"-->
     %Sub Application_OnStartDim ConnKeyFor i = 1 To PoolSize '建立指定数目的数据库连接CreateDbConn()NextEnd Sub Sub Application_OnEndDbPool.RemoveAllEnd 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,1Do While Not rs.eofResponse.write Rs("v_oid") &
     "br />
    "Rs.movenextloop FreeDbConn(dbconn)Response.Write "free one connection to pool br />
    "Response.Write "Current Objects count : " &
     DbPool.Count &
     "br />
    " %>
    

声明:本文内容由网友自发贡献,本站不承担相应法律责任。对本内容有异议或投诉,请联系2913721942#qq.com核实处理,我们将尽快回复您,谢谢合作!


若转载请注明出处: Asp实现的数据库连接池功能函数分享
本文地址: https://pptw.com/jishu/604250.html
Asp中使用JQuery的AJAX提交中文乱码解决方法 Excel连接字符串中的HDR、IMEX参数详解

游客 回复需填写必要信息