細(xì)心的開(kāi)發(fā)人員有時(shí)會(huì)想到，我們?cè)谝粋€(gè)需要讀寫(xiě)數(shù)據(jù)庫(kù)的頁(yè)面里包含類(lèi)似
!-- #include file="conn.asp" -->的代碼時(shí)，當(dāng)你沒(méi)有進(jìn)行讀取操作，數(shù)據(jù)庫(kù)究竟是怎么樣的狀態(tài)呢？ 
那么，我們有沒(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連接代碼：