ASP教程之asp对象化之:数据库了局纠合操作类

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.对象|纠合|数据|数据库   <%  

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


’*************************************************************  
’@author:                        面条  
’@realname:                        徐仁禄  
’@email:                        xurenlu@sohu.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   
      
      
      

’*************************************************************  
</p>  缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。