asp 简单数据库连接类

2015-08-12 16:02:46来源:作者:人点击

Class Cls_DB
 Private ConnStr
 Private DBpath,DBLink,DBi
 ==============================
 函 数 名:DB_Conn
 作    用:数据库连接函数
 参    数:
 ==============================
 Private Sub DB_Conn()
  On Error Resume Next
  Set Conn = Server.CreateObject("Adodb.Connection")
  ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(SiteDB)
  Conn.Open ConnStr
  If Err Then
   Call AspErr()
  End If
 End Sub

 ==============================
 函 数 名:DB_Open
 作    用:创建读取对象
 参    数:
 ==============================
 Public Sub DB_Open()
  Call DB_Conn()
  Set Rs=Server.Createobject("Adodb.RecordSet")
 End Sub
 
 ==============================
 函 数 名:DB_Close
 作    用:关闭读取对象
 参    数:
 ==============================
 Public Sub DB_Close()
  Set Rs=Nothing
  If IsObject(Conn) Then Conn.Close
  Set Conn = Nothing
 End Sub
 
 =============================
  函 数 名:AspErr
  作    用:连接报错
  参    数:
 =============================
 Private Sub AspErr()
  DBLink = Request.ServerVariables("url")
  DBLink = Split(DBLink,"/")
  For DBi = 0 To Ubound(DBLink)-1
   DBpath = DBpath&DBLink(DBi)&"/"
  Next
  Response.Write "<body style='font-size:12px'>"
  Response.Write "错 误 号:" & Err.Number & "<br />"
  Response.Write "错误描述:" & Err.Description & "<br />"
  Response.Write "错误来源:" & Err.Source & "<br />"
  Response.Write "</body>"
  Err.Clear
  Response.End
 End Sub
End Class

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台