发一个ASP的ADODB类代码

                        if page < 1 then page = 1
                        if rs.state = 1 then
                                if not rs.eof then
                                        rs.pagesize = psize
                                        rsPage = rs.pagecount
                                        rsCounts = rs.recordcount
                                        if int(page) > Int(rsPage) then page = rsPage
                                        rs.absolutepage = page:nowPage = page
                                end if
                        end if                
        End Function
        '更新记录
        Public Function Update_Table(Sql)
                        if not isempty(conn) or isnull(conn) then
                                        call OpenConn(dbclass)