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

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

    Public Sub SAdd()
        dim maxClassID,maxRootID
        set rs = conn.execute("select Max(ClassID) from ArticleClass")        '查找当前数据库中最大的类别id，如果没有数据则设置为0，要插入的类别id为当前最大id加1
        maxClassID=rs(0)
        if isnull(maxClassID) then
            maxClassID=0
        end if
        set rs=nothing
        nClassID=maxClassID+1
        set rs=conn.execute("select max(rootid) From ArticleClass")        '查找当前数据库中最大的根id，如果没有数据则设置为0，要插入的根id为当前最大根id加1
        maxRootID=rs(0)
        if isnull(maxRootID) then
            maxRootID=0
        end if
        nRootID=maxRootID+1
        set rs=conn.execute("select RootID,Depth,ParentPath,Child,OrderID From ArticleClass where ClassID=" & nParentID)    '查找父类别相应信息
        if not rs.eof then
            nRootID=trim(rs("Rootid"))        '根id与父类别根id相同