asp 简单数据库连接类_Asp.net专题(WCF/WPF/WF)

夜鹰教程网-程序员的加油站

·设为首页·加入收藏

本站首页技术文章全套前端云课堂智慧校园

你好，欢迎来到夜鹰网！【去购买教程】

当前位置：文章中心 >> Asp.net专题(WCF/WPF/WF)

asp 简单数据库连接类

夜鹰教程网来源：www.yyjcw.com 日期：2016-11-24 20:28:41

60;'作用：数据库连接函数 '参数： '============================== Private Sub DB_Conn() On Error Resume Next Set Conn = Server.CreateObject("Adodb.Connection") ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data So...

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站内搜索的实例源代码下一条： asp数组中REDIM的用法（动态数组）

夜鹰教程网成立于2008年，目前已经运营了将近 13 年，发布了大量关于 html5/css3/C#/asp.net/java/python/nodejs/mongodb/sql server/android/javascript/mysql/mvc/easyui/vue/echarts原创教程。我们一直都在坚持的是：认证负责、一丝不苟、以工匠的精神来打磨每一套教程，让读者感受到作者的用心。我们默默投入的时间，确保每一套教程都是一件作品，而不是呆板的文字和视频！目前我们推出在线辅导班试运营，模式为一对一辅导，教学工具为QQ。我们的辅导学科包括 java 、android原生开发、webapp开发、商城开发、C#和asp.net开发，winform和物联网开发、web前端开发，但不仅限于此。普通班针对的是国内学员，例如想打好基础的大学生、想转行的有志青年、想深入学习的程序员、想开发软件的初学者或者业余爱好者等。就业办针对即将毕业上岗的大四学生，或者打算转行的初级开发工程师。留学生班针对的是在欧美、加拿大、澳洲、日本、韩国、新加坡等地留学的中国学子，目的是让大家熟练地掌握编程技能，按时完成老师布置的作业，并能顺利地通过考试。详细咨询QQ：1416759661 夜鹰教程网