主頁 > 知識庫 > Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享

Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享

熱門標簽:鄭州語音電銷機器人官網(wǎng) 北京大興區(qū)地圖標注 微信地圖標注有什么用 不封卡外呼系統(tǒng)一般多少錢 地圖標注中心多少錢注冊 濰坊呼叫中心外呼系統(tǒng)供應(yīng)商 重慶外呼電銷系統(tǒng)費用 地圖標注不完整被罰款 電銷機器人一個多少錢

數(shù)據(jù)庫連接是一種關(guān)鍵的有限的昂貴的資源,這一點在多用戶的網(wǎng)頁應(yīng)用程序中體現(xiàn)得尤為突出。對數(shù)據(jù)庫連接的管理能顯著影響到整個應(yīng)用程序的伸縮性和健壯性,影響到程序的性能指標。數(shù)據(jù)庫連接池正是針對這個問題提出來的。數(shù)據(jù)庫連接池負責分配、管理和釋放數(shù)據(jù)庫連接,它允許應(yīng)用程序重復(fù)使用一個現(xiàn)有的數(shù)據(jù)庫連接,而再不是重新建立一個;釋放空閑時間超過最大空閑時間的數(shù)據(jù)庫連接來避免因為沒有釋放數(shù)據(jù)庫連接而引起的數(shù)據(jù)庫連接遺漏。這項技術(shù)能明顯提高對數(shù)據(jù)庫操作的性能。

但是這項技術(shù)一般在java ,php ,.net 里面運用到,asp很少用到,因為一些企業(yè)網(wǎng)站根本就不需要這樣的技術(shù)。
也不是不能使用,下面就是研究出來的asp版本,能夠加快網(wǎng)頁的訪問速度,降低數(shù)據(jù)庫的壓力。

1.數(shù)據(jù)庫連接文件 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 '如果這個連接已經(jīng)關(guān)閉,將其從池里注銷,再新建一個可用的連接并添加到池里
DbPool.Remove CurKey
Call CreateDbConn() '新建一個連接并添加到池里
Set GetDbConn = GetDbConn()
Else '否則的話,將其從池里注銷,然后將復(fù)制的對象返回
DbPool.Remove CurKey
Set GetDbConn = Conn
Exit Function
End If
Else
Response.Write "連接池已用完,請重新初始化應(yīng)用程序"
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 '建立指定數(shù)目的數(shù)據(jù)庫連接
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 />"
 
%>

標簽:汕頭 佛山 攀枝花 揭陽 撫州 海南 鶴崗 唐山

巨人網(wǎng)絡(luò)通訊聲明:本文標題《Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享》,本文關(guān)鍵詞  Asp,實現(xiàn),的,數(shù)據(jù)庫,連接,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享》相關(guān)的同類信息!
  • 本頁收集關(guān)于Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章