asp 全面安全數據連接代碼

　　下面提供一款最全面的asp數據庫連接源碼哦可以根據不同類型判斷是連接access數據庫還是mssql數據庫哦

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE=""%>
<%
dim DataLinkTypeconnconnstrMyDbPath
MyDbPath="data/Databasemdb" 數據庫文件位置
DataLinkType =        設置數據庫連接方式為SQL數據庫為Access數據庫
If dataLinkType= Then
 **************************************************
 使用Access數據庫
 **************************************************
 ConnStr = "Provider = MicrosoftJetOLEDB;Data Source = " & ServerMapPath(MyDbPath)
Else
 **************************************************
 使用SQL數據庫
 **************************************************
 ConnStr = "Driver={SQL Server}; server=(local);uid=sa;pwd=windows;database=data;"
 ConnStr = "Provider=SQLNCLI; server=SQLEXPRESS;uid=sa;pwd=windows;database=data;"
End If
On Error Resume Next
Set conn = ServerCreateObject("ADODBConnection")
connopen ConnStr
If Err Then
 ErrClear
 Set Conn = Nothing
 ResponseWrite "數據庫連接出錯請檢查連接字串"注釋需要把這幾個字翻譯成英文
 ResponseEnd
End If
**************************************************
關閉數據庫
**************************************************
sub CloseConn()
connclose
set conn=nothing
end sub
%>

From:http://tw.wingwit.com/Article/program/net/201311/14364.html