IT门户网,专注电脑知识与技术及手机硬件信息服务网站!

当前位置:IT门户网 > 网络知识 > 网站seo >

asp 简朴数据库连 接类

时间:2021-09-14    来源:IT门户网    人气:

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
&nbs精选搞笑动态图片[]   p;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>"
  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

相关文章

网站seo排行榜

更多>>

网络知识排行榜

更多>>

系统教程排行榜

更多>>

服务号