发一个ASP的ADODB类代码(4)

                        conn.open connstr
                        if err then
                                Response.write "数据库链接失败<br>sqlstring = " + connstr
                                Response.End()
                                err.clear
                        end if
        End Sub
        '**********结束/查询构造*************
        Public Function Select_Table(sql)
                        if not not isempty(conn) or isnull(conn) then
                                        call OpenConn(dbclass)
                                elseif conn.state = 0 then
                                        call OpenConn(dbclass)
                        end if
                        on error resume next
                        Set rs = Server.CreateObject("adodb.recordset")
                        rs.open sql,conn,1,1