asp 简单数据库连接类

时间:2009-08-04 09:07:25  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:;'作    用:数据库连接函数 '参    数: '============================== Private Sub DB_Conn()  On Error Resume Next  Set Conn = Server.CreateObject("Adodb.Connection")  ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=...
  正文:

ASP/ target=_blank class=infotextkey>asp 简单数据库连接类(www.002pc.com)
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

第二电脑网认为编成类的好处在于调用方便更好的有利程序优化

"asp 简单数据库连接类"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/10198.html


关键字:

关于《asp 简单数据库连接类》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td