夜鹰教程网-程序员的加油站
 当前位置:文章中心 >> 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   夜鹰教程网  基于角色的权限管理系统(c-s/b-s)。
  夜鹰教程网  基于nodejs的聊天室开发视频教程
  夜鹰教程网  Git分布式版本管理视频教程
  夜鹰教程网  MVC+EasyUI视频教程
  夜鹰教程网  在线考试系统视频教程
  夜鹰教程网  MongoDB视频教程。
  夜鹰教程网 Canvas视频教程
  夜鹰教程网 报表开发视频教程
  热点推荐
表单提交中get和post方式的区别有…
解决ASP中UTF-8与GB2312编码转换乱…
asp数组中REDIM的用法(动态数组)…
生成html的新方法ASP
ASP字符串函数大全
ASP生成Word文件的代码
ASP中Randomize随机函数的使用
十天学会ASP教程之第一天:安装调…
自定义的asp日期格式化函数
防范ASP网站漏洞的八大法则之一
十天学会ASP教程之第二天:表单传…
asp中关于从utf8页面到gb2312页面…
ASP教程:实现长文章分页功能
IIS6架设网站的问题总结
五分钟打开 allow_url_fopen 的最…
  最近更新
C# Json数据中的特殊字符导致页面…
博客园是有开发博客查询相关的接口…
C#里面的ref和out区别
C#调用API让声卡发出声音
.NET使用反射读取用户自定义的枚举…
.net操作SqlServer数据库增删改查…
如何将WCF服务部署到远程服务器
对WebApi 实现服务端信息的监控
用WCF生成Restful风格的接口返回 …
只有一个地址如何调用WCF服务
WCF简介
搭一个简单的wcf服务
WCF配置说明
WCF传输的数据量过大问题的解决方…
asp.net大文件分块上传文件秒传断…

关于我们 | 网站建设 | 技术辅导 | 常见问题 | 联系我们 | 友情链接

夜鹰教程网 版权所有 www.yyjcw.com All rights reserved 备案号:蜀ICP备08011740号3