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

            if rs.bof and rs.eof then
                FDeleteCheck=1
                ErrorStr="类别不存在或者已经被删除！"
                exit Function
            else
                if trim(rs("Child"))>0 then
                    FDeleteCheck=1
                    ErrorStr="该类别含有子类别，请删除其子类别后再进行删除本类别的操作！"
                    exit Function
                end if
            end if
        end if
    End Function

    Public Sub SDelete()
        if nDepth>0 then            '修改父id孩子数
            conn.execute("update ArticleClass set child=child-1 where child>0 and ClassID=" & nParentID)
        end if
        sql="delete from ArticleClass where ClassID="& nClassID
        conn.execute(sql)
    End Sub

    Public Function FErrStr()
        FErrStr=ErrorStr    
    End Function

End Class
%>

核心js代码 

var xmlHttp; //定义一个全局变量
var currentID=1;//设置当前选中ID，如果此ID不存在则会发生js错误
//类别显示主函数
//cid--子类别所在层id
//id --类别id
//pid--[+]和[-]图标id
//fid--类别图标id
function DivDisplay(cid,id,pid,fid)
{
    if (GetId(cid).style.display=='')    //子类别不显示时图标显示控制
    {