asp 經典資料庫連接檔案 支援access,mssql server

asp 經典資料庫連接檔案 支援access,mssql server
Dim Conn,ConnString
Sub OpenConn()
 If DB_Type = "Access" Then
  ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(AccPath)
 ElseIf DB_Type = "Sql" Then
  ConnString = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlSource & ";"
 Else
  Response.Write "系統資料庫類型錯誤，請檢查 Inc/Const.asp 中的資料庫類型是否設定正確。"
  Response.End
 End If
 'On Error Resume Next
 Set Conn = Server.CreateObject(ConnObj)
 Conn.Open ConnString
 If Err Then
  Err.Clear
  Conn.Close : Set Conn = Nothing
  Response.Write "系統資料庫串連錯誤，請檢查 Inc/Const.asp 中的資料庫連接部分是否設定正確。"
  Response.End
 End If
End Sub

Sub CloseConn()
 On Error Resume Next
 If IsObject(Conn) Then
  Conn.Close : Set Conn = Nothing
 End If
End Sub