发一个ASP的ADODB类代码

'/*****************/
class adodb_class
        dim conn,connstr,rs
        dim dbclass'数据库类型access,sql2000,sql2005三个值之一
        dim SqlDbName,SqlUser,SqlPass,SqlServer
        dim SqlAccess
        dim Selectd,Insertd,Updated
        dim rsCounts,rsPage,readCounts,nowPage '记录集 总数/页数 查询次数

        Private Sub Class_Initialize()
                        SqlDbName        = ""
                        SqlUser                = ""
                        SqlPass                = ""
                        SqlServer        = ""
                        SqlAccess         = "/simple_date/simple_xiehui.mdb"
                        rsCounts = 0:rsPage = 1:readCounts = 0:nowPage = 1
                        Call OpenConn("access")

                        selectd                = 0
                        Insertd                = 0
                        Updated                = 0