发一个ASP的ADODB类代码

                        if err then
                                Select_Table = False
                                rs.close
                                exit Function
                                err.clear
                        End If
                        If rs.eof and rs.bof then
                                        rs.close
                                        Select_Table = false
                                Else
                                        Select_Table = true
                        End If
                        readCounts = readCounts + 1
        End Function
        '分页处理
        Public Function Select_page(page,psize)
                        if isnull(page) or page = "" then page = 1