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)訪問修改。） 

以下的數(shù)據(jù)庫(kù)物理路徑類似于 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

最新評(píng)論