Function Open_conn() 
dim Dbpath,Conn 
Dbpath=server.MapPath("數(shù)據(jù)庫路徑") 
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 "對不起，數(shù)據(jù)庫連接出錯。" 
Response.End 
End If 
End Function 

調(diào)用方法： 

將原來的 

rs.open sql,conn 

改成 

rs.open sql,Open_conn() 

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

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

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

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