<%
starttime=timer()

'DbType = "MSSQL" '鏈接MSSQL數據庫
'DbType = "MYSQL" '鏈接MYSQL數據庫
DbType = "ACCESS" '鏈接ACCESS數據庫

if DbType="ACCESS" then
	DB = "DataBase/#####WmGOV.cn#####.asp"
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
end if

if DbType="MSSQL" then
	ConnStr = "driver={SQL Server};server=127.0.0.1;uid=feitium;pwd=12345678;database=FeiTium"
end if

if DbType="MYSQL" then
	ConnStr = "driver=MySQL;server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME"
end if

On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "數據庫連接出錯[代碼：01]，請檢查數據庫鏈接文件中的連接字串。"
	Response.End
End If
%>