asp对象化之:数据库结果集合操作类

80酷酷网    80kuku.com

  对象|集合|数据|数据库<% 

’************************************************************* 
’转发时请保留此声明信息,这段声明不并会影响你的速度! 
’************************************************************* 


’************************************************************* 
’author:                        面条 
’realname:                        徐仁禄 
’email:                        xurenlusohu.com 
’QQ:                            55547082 
’Homepage:                        http://www.ksdn.net 
’版权申明: 
’            非盈利性质团体或者个人可以免费使用. 
’************************************************************* 


’************************************************************* 
’************************************************************* 
’************************************************************* 
class Rsclass 
    private iRs 
    private isql 
    private iconn 
    private closeConn 
    private openConn 

’************************************************************* 
’        进行初始化,建立iconn和irs对象. 
’************************************************************* 
    Private Sub Class_initialize()  
        set iconn=server.createobject("adodb.connection") 
        set irs=server.createobject("adodb.recordset") 
    End Sub  
     
    public sub connect(connstr) 
        err.clear 
        on error resume next 
        iconn.open connstr 
        if err.number<>0 then response.write "数据联接出错了." 
    end sub 
     
    public property let conn(connection) 
        set iconn=connection        ’通过外界传入一个数据库联接. 
    end property 
     
     
     
    Private Sub Class_Terminate()  
        on error resume next 
        irs.close 
        iconn.close 
        set iconn=nothing 
        set irs=nothing 
    End Sub  

’************************************************************* 
’        内容:实现统计功能,一般用select count(*) from table where id>54类似的sql语句. 
’************************************************************* 
    public function getCountBysql(sql) 
        on error resume next 
        dim count 
        count=iconn.execute(sql)(0) 
        getCountBysql=count 
        iconn.close 
    end function  
     
     
     

’************************************************************* 

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: