ajax+asp无限级分类树型结构的代码

                            FEditCheck=1
                            ErrorStr="类名重复！"
                            exit Function
                        end if
                        set rs=nothing
                    end if
                    set temprs=nothing
                end if
            end if
        end if
    End Function

    Public Sub SEdit()        '类别修改
        sql="update ArticleClass set ClassName='"& sClassName &"',FilePath='"& sFilePath &"' where ClassID="& nClassID
        conn.execute(sql)
    End Sub

    Public Function FDeleteCheck()    '类别删除检查函数，结果为0表示通过检查，为1表示有错误发生，有错误发生时退出函数，将错误信息写入错误变量ErrorStr
        FDeleteCheck=0                '这里删除没有写级联删除文章部分的代码，删除时应该级联删除
        if nClassID="" then
            FDeleteCheck=1
            ErrorStr="要删除的类别id不能为空！"
            exit Function
        else
            set rs=conn.execute("select Child from ArticleClass where ClassID="& nClassID)