asp 數據庫連接函數代碼介紹

以下是SQL連接代碼：

複製代碼 代碼如下:

Function Open_conn()

dim Conn,Strconn

set Conn=teobject("ection")

Strconn = "Provider = Sqloledb; User ID = 數據庫登錄帳號; Password = 數據庫登錄密碼; Initial Catalog = 數據庫名稱; Data Source = (local);"

Strconn

set Open_conn=Conn

If Err Then

r

e:set Conn=nothing

e "對不起，數據庫連接出錯。"

End If

End Function

調用方法：

將原來的

複製代碼 代碼如下:

sql,conn

改成

複製代碼 代碼如下:

sql,Open_conn()

以下是ACCESS連接代碼：

複製代碼 代碼如下:

Function Open_conn()

dim Dbpath,Conn

Dbpath=server.MapPath("數據庫路徑")

set Conn=teObject("ection")

"data source="&dbpath&";provider=B.4.0;"

set Open_conn=Conn

If Err Then

r

e:set Conn=nothing

e "對不起，數據庫連接出錯。"

End If

End Function

調用方法：

將原來的

複製代碼 代碼如下:

sql,conn

改成

複製代碼 代碼如下:

sql,Open_conn()