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