asp 資料庫連接與關閉程式

Public Function DbOpen()
  If IsObject(Conn) Then Exit Function
  Set Conn = Server.CreateObject(Cfg.nConnectionObject)
  If Conn.State = 1 Then Exit Function
  On Error Resume Next
  Conn.Open ConnStr
  If Err.Number Then
   ErrorInfo = Err.Description
   Err.Clear
   Set Conn = Nothing
   Response.Write "<div style=""font-family:Arial,Verdana; font-size:12px;"">"& Cfg.sysVersion &"執行錯誤("& Now() &") <a href=""javascript教程:history.back();"">返回</a> <a href=""javascript:location.reload();"">重試</a><br /><br />錯誤源:<br /><span style=""color:#FF0000"">資料庫連接錯誤</span><br />錯誤描述:<br /><span style=""color:#FF0000"">" & ErrorInfo & "</span>"
   Response.Write "</div>"
   Response.End()
  End If
    End Function
 
    Public Function DbClose()
  If Not IsObject(Conn) Then Exit Function
  If Conn.State = 0 Then Exit Function
  Conn.Close:Set Conn = Nothing
 End Function

    '函數:建立資料庫RecordSet對象
    '參數:連結串
    Public Function RecordSet(obj)
        Set obj = Server.CreateObject(Cfg.nRecordSetObject)
    End Function