細(xì)心的開(kāi)發(fā)人員有時(shí)會(huì)想到，我們?cè)谝粋€(gè)需要讀寫(xiě)數(shù)據(jù)庫(kù)的頁(yè)面里包含類(lèi)似

<!-- #include file="conn.asp" -->

的代碼時(shí)，實(shí)際上，當(dāng)你沒(méi)有進(jìn)行任何讀寫(xiě)數(shù)據(jù)庫(kù)操作時(shí)，這個(gè)數(shù)據(jù)庫(kù)連接仍然是打開(kāi)的，仍然在消耗著服務(wù)器的資源。

那么，我們有沒(méi)有辦法讓數(shù)據(jù)庫(kù)連接僅在需要讀取數(shù)據(jù)庫(kù)時(shí)才打開(kāi)，不讀取時(shí)就沒(méi)有任何動(dòng)作呢，以下即提供這種思路，以求拋磚引玉。

這種思路即是將數(shù)據(jù)庫(kù)連接代碼封裝在函數(shù)里，在需要讀取時(shí)調(diào)用這個(gè)函數(shù)。

以下是SQL連接代碼：

Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "PRovider = Sqloledb; User ID = 數(shù)據(jù)庫(kù)登錄賬號(hào); PassWord = 數(shù)據(jù)庫(kù)登錄密碼; Initial Catalog = 數(shù)據(jù)庫(kù)名稱(chēng); Data Source = (local);"
Conn.open Strconn
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "對(duì)不起，數(shù)據(jù)庫(kù)連接出錯(cuò)。"
Response.End
End If
End Function

調(diào)用方法：
將原來(lái)的

rs.open sql,conn

改成

rs.open sql,Open_conn()

以下是access連接代碼：

Function Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath("數(shù)據(jù)庫(kù)路徑")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "對(duì)不起，數(shù)據(jù)庫(kù)連接出錯(cuò)。"
Response.End
End If
End Function

調(diào)用方法：
將原來(lái)的
rs.open sql,conn

改成
rs.open sql,Open_conn()

順便提供一個(gè)同一服務(wù)器上可以跨站共享ACCESS數(shù)據(jù)庫(kù)的老代碼，也許有朋友用得著：

有時(shí)，我們有很多二級(jí)域名，可能需要讓這些二級(jí)域名調(diào)用某同一個(gè)ACCESS數(shù)據(jù)庫(kù)，在你不愿意使用SQL數(shù)據(jù)庫(kù)的情況下，數(shù)據(jù)庫(kù)連接可以采用以下辦法。（特別提示：如果你的服務(wù)器做了fso安全權(quán)限，需要將這個(gè)數(shù)據(jù)庫(kù)目錄設(shè)置為，允許你需要調(diào)用的各站的IIS用戶有權(quán)訪問(wèn)修改。）

以下的數(shù)據(jù)庫(kù)物理路徑類(lèi)似于   E:\目錄\目錄\數(shù)據(jù)庫(kù)名

dim Conn,Strconn
Set Conn = Server.CreateObject("ADODB.Connection")
Strconn="Provider = Microsoft.Jet.OLEDB.4.0; "
Strconn=Strconn & "Data Source=數(shù)據(jù)庫(kù)物理路徑"
Conn.Open Strconn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "對(duì)不起，數(shù)據(jù)庫(kù)連接出錯(cuò)。"
Response.End
End If

文章來(lái)自: ASP技術(shù)網(wǎng)站(www.) 詳文參考：http://www./aspjs1html/ASPjiaocheng/ASPjishuziliao/704.html