当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个简单的asp数据库操作类

ASP
asp实现取得数组中的最大值的代码
asp 将日期格式化为需要的格式
asp 下产生任意位数随机密码的代码
asp下返回以千分位显示数字格式化的数值
asp重定向页面的方法总结
asp下去除数组中重复的项的方法
asp下实现 重新排序数字数组的代码
asp 验证输入网址是否有效并可以访问 与正则验证输入网址
asp验证Ip格式的函数
asp实现生成由数字,大写字母,小写字母指定位数的随机数
asp 格式化sql中的like字符串
asp 实现显示所有的服务器变量值的函数
asp 取得用户真实IP,对代理地址仍然有效的函数
asp 通用数据库连接过程函数
asp 字符串截取函数
asp下实现格式化文件大小以MB显示的函数
asp 下用正则表达式检测邮箱格式的函数
asp 实现检测字符串是否为纯字母和数字组合的函数
asp代码实现检测组件是否安装的函数
asp通过JMAIL实现通用发送函数

ASP 中的 一个简单的asp数据库操作类


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 57 ::
收藏到网摘: n/a

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'数据库操作类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称:Class_DBOperate
'版本:0.2
'作者:qihangnet
'更新:2005年6月14日
'作用:简化数据库操作的流程
'授权:免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Class Class_DBOperate
'************************************
'变量定义
'************************************
'Conn ---------- 数据库连接对象
'Conn_Str ------ 数据库连接字符串
Private Conn,Conn_Str
'************************************
'实例 初始化/终止
'************************************
Private Sub Class_Initialize()
Set Conn = Server.CreateObject("ADODB.Connection")
End Sub
Private Sub Class_Teriminate()
Set Conn = Nothing
End Sub
'************************************
'属性
'************************************
'输出数据库连接字符串
' 返回值类型:string
Property Get ConnectString
ConnectString = Conn_Str
End Property
'设置数据库连接字符串(数据库连接字符串)
' 参数:str --- string
Property Let ConnectString(str)
Conn_Str = str
End Property
'************************************
'事件
'************************************
'数据库打开
Public Sub DB_Open() 。
Conn.ConnectionString = Conn_Str
Conn.Open
End Sub
'数据库关闭
Public Sub DB_Close()
Conn.Close
End Sub
'************************************
'方法
'************************************
'数据库查询(sql语句)
' 参数及类别:sql ---- string
' 返回值类型:记录集
' 前提:数据库状态为打开
Public Function DB_Select(sql)
Set DB_Select = Conn.Execute(sql)
End Function
'数据库执行(SQL语句)
' 参数及类别:sql ---- string
' 返回值类型:整形
' 返回值含义:受影响行数
' 前提:数据库状态为打开
Public Function DB_Excute(sql)
Dim rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
End Function
End Class
%>