熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 簡單數據庫連接類

2013-11-13 10:34:43  來源: .NET編程 

  Class Cls_DB
 Private ConnStr
 Private DBpathDBLinkDBi
 ==============================
 函 數 名DB_Conn
 作    用數據庫連接函數
 參    數
 ==============================
 Private Sub DB_Conn()
  On Error Resume Next
  Set Conn = ServerCreateObject("AdodbConnection")
  ConnStr="Provider=MicrosoftJetOLEDB;Data Source=" & ServerMapPath(SiteDB)
  ConnOpen ConnStr
  If Err Then
   Call AspErr()
  End If
 End Sub

  ==============================
 函 數 名DB_Open
 作    用創建讀取對象
 參    數
 ==============================
 Public Sub DB_Open()
  Call DB_Conn()
  Set Rs=ServerCreateobject("AdodbRecordSet")
 End Sub
 
 ==============================
 函 數 名DB_Close
 作    用關閉讀取對象
 參    數
 ==============================
 Public Sub DB_Close()
  Set Rs=Nothing
  If IsObject(Conn) Then ConnClose
  Set Conn = Nothing
 End Sub
 
 =============================
  函 數 名AspErr
  作    用連接報錯
  參    數
 =============================
 Private Sub AspErr()
  DBLink = RequestServerVariables("url")
  DBLink = Split(DBLink"/")
  For DBi = To Ubound(DBLink)
   DBpath = DBpath&DBLink(DBi)&"/"
  Next
  ResponseWrite "<body style=fontsize:px>"
  ResponseWrite "錯 誤 號" & ErrNumber & "<br />"
  ResponseWrite "錯誤描述" & ErrDescription & "<br />"
  ResponseWrite "錯誤來源" & ErrSource & "<br />"
  ResponseWrite "</body>"
  ErrClear
  ResponseEnd
 End Sub
End Class


From:http://tw.wingwit.com/Article/program/net/201311/14028.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.