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

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

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

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

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