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

                        end if
                        conn.close
                        Set conn = nothing
        End Function
        '增加
        '输入：insert SQL语句，表名，自增字段
        Public Function Insert_Table(sql,table,id_column)
                        if not isempty(conn) or isnull(conn) then
                                        call OpenConn(dbclass)
                                elseif conn.state = 0 then
                                        call OpenConn(dbclass)
                        end if
                        on error resume next
                        if sql <> "" then
                                conn.Execute(sql)
                                if err then
                                                Insert_Table = false:err.clear