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