关于数据库连接的一点浅见

最近经常见到有人问如何连接数据库效率最高，耗费资源最低，在这里我谈一下我的看法。连接数据库不外乎三种方

法，一种是将数据库连接放到session变量中，一种是放到application变量中，再一种就是在页面中使用时打开，用完立

刻关闭。尽管前两种方法用起来比较方便，但应该说第三种方法是最好的，下面我分别讲一下，由于水平所限，错误难

免，请大家指正。

session:用session的缺点显而易见，服务器会为每一个用户创建一个数据连接，直到这个用户离开或session超时，

这样就会大大浪费服务器资源，如果访问量大的话，系统资源就会被耗尽，或者数据库连结数到达上界，就会造成程序出

错。

application:既然用session会出现这么多问题，那是不是用application最节省资源呢？只建立一条连接就够了，大

家共用。不是这样的，如果无论多少用户只建立一条连接，同样会带来很多问题，首先是如果访问量大，一条连接肯定无

法满足需要，同样会造成程序出错；其次，如果你用了私人临时表或光标，那麻烦就来了。私人临时表和光标只对当前连

接可见，可是如果大家都用一条连接，那么就会产生冲突，造成程序错误。

最后一种方法（即开即用即关）：这是最好的一种方法，原因如下:打开数据库连接，使用完立即关闭，是一种良好的

编程习惯，其实不仅是数据库连接对象如此，所有对象也就是说server.creatobject出来的对象理论上生存期都不能超过

0.01秒(国外有人做过测试的，不是我信口开河），如果超过就会对效率产生影响。那么也许你会说每个页面都会打开一个

连接，那打开的连接数不是更多，效率不是更低吗？错了，讲到这里就不能不提一下连接池（也叫共享池的概念），现在

的大型数据库包括odbc本身都提供连接池的功能，他的基本原理是这样的，一个连接申请关闭时系统并不是真的关闭它，

而是将它放到共享池中，如果这时有相同的连接请求，系统就会把这个连接从共享池中取出来给用户，这样就省去了关闭

和打开连接的系统开销，只有当这个连接长时间不被请求时并且共性池中的连接饱和，系统才会真的干掉它。明白这个道

理，你就明白尽管你在程序中请求打开和关闭连接，但系统并不一定要增加这些开销的。

道理讲完了，现在给例子。下面是打开和关闭数据库连接的两个函数，你可以把它存为一个include文件，使用时包含

进来就行了。例子连接的数据库是sql server 7.0，我没用odbc，因为用oledb效率高的多。

<script language = VBScript runat = server>

'---------------------------------------------------------------------------------

'

' file name : connectdb.inc

'

' Description: 数据库连接

'

' function list : OpenDbConnection(a_strDataName , a_strServerName) ：打开数据库连接

' parameter: a_strDateName , 数据库服务器名

' a_strServerName :数据库server名

'

' CloseDbConnection(a_objDbConn) ：关闭数据库连接

' parameter: a_ObjDbConn ，连接对象

'

'

' date: 2000/05/03

'

' Author: LiuYunpeng

'

' History: 2000/05/03 version 1.0

' 2000/06/03 modified function opendbconnection's parameters

' by LiuYunpeng

'--------------------------------------------------------------------------------

Function OpenDbConnection(a_strDataName , a_strServerName)

dim m_DbConn , m_strConn

Set m_dbConn = Server.CreateObject("ADODB.Connection")

m_strConn = "Provider=Sqloledb ; User ID = sa ; Password= ; Initial Catalog = "&a_strDataName&" ;

Data Source = "&a_strServerName

m_dbConn.open m_strConn

Call CheckError()

'return this database connection

Set OpenDbConnection = m_dbConn

end function

sub CloseDbConnection(a_objDbconn)

a_objDbconn.close

set a_objDbConn = nothing

end sub

</script>

简单说一下使用方法，假设你的数据库server是"server1" , 数据库是"mydatabase" , 则使用如下

<％

dim m_objConn

'打开数据库连接

set m_objConn = OpenDbConnection("mydatabase" , "server1")

....

'关闭数据库连接

CloseDbConnection m_objConn

％>