ajax+asp无限级分类树型结构(带数据库)

　　<%

　　'数据库字段为类属性，添加、删除、修改、操作检查等函数为类的方法

　　Class Cls_Leibie

　　Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量（类的属性，即数据库字段对应的变量）

　　Private rs,sql,ErrorStr

　　Private Sub Class_Initialize()

　　ErrorStr="" '初始化错误信息为空

　　End Sub

　　Private Sub Class_Terminate() '销毁类时关闭数据库连接

　　If IsObject(Conn) Then

　　Conn.Close

　　Set Conn = Nothing

　　End If

　　End Sub

　　'*******************设置各个属性******************************************************

　　Public Property Let ClassID(str) '获取类别ID（主键）

　　nClassID=str

　　call ClassProperty() '获取类别ID时调用此函数读出类的所有属性

　　End Property

　　Public Property Let ClassName(str) '获取类别名称

　　sClassName=str

　　End Property

　　Public Property Get ClassName

　　ClassName=sClassName

　　End Property

　　Public Property Let ParentID(str) '获取类别父ID

　　nParentID=str

　　End Property

　　Public Property Get ParentID

　　ParentID=nParentID

　　End Property

　　Public Property Let ParentPath(str) '获取父路径ID

　　sParentPath=str

　　End Property

　　Public Property Get ParentPath

　　ParentPath=sParentPath

　　End Property

　　Public Property Let Depth(str) '获取类别深度

　　nDepth=str

　　End Property

　　Public Property Get Depth

　　Depth=nDepth

　　End Property

　　Public Property Let RootID(str) '获取类别根ID

　　nRootID=str

　　End Property

　　Public Property Get RootID

　　RootID=nRootID

　　End Property

　　Public Property Let Child(str) '子类别个数

　　nChild=str

　　End Property

　　Public Property Get Child

　　Child=nChild

　　End Property

　　Public Property Let OrderID(str) '排序ID

　　nOrderID=str

　　End Property

　　Public Property Get OrderID

　　OrderID=nOrderID

　　End Property

　　Public Property Let FilePath(str) '类别文件根目录（生成静态文件路径，小站老杨Web技术博客用的是生成静态，故设置此字段）

　　sFilePath=str

　　End Property

　　Public Property Get FilePath

　　FilePath=sFilePath

　　End Property

　　'******************************************************************************

　　Private Sub ClassProperty() '读取类的所有属性

　　sql="select * from ArticleClass where ClassID="& nClassID

　　set rs=conn.execute(sql)

　　if not rs.eof then

　　sClassName=trim(rs("ClassName"))

　　nParentID=trim(rs("ParentID"))

　　sParentPath=trim(rs("ParentPath"))

　　nDepth=trim(rs("Depth"))

　　nRootID=trim(rs("RootID"))

　　nChild=trim(rs("Child"))

　　nOrderID=trim(rs("OrderID"))

　　sFilePath=trim(rs("FilePath"))

　　end if

　　set rs=nothing

　　End Sub

　　Public Function FAddCheck() '类别添加检查函数，结果为0表示通过检查，为1表示有错误发生，有错误发生时退出函数，将错误信息写入错误变量ErrorStr

　　dim temprs

　　FAddCheck=0

　　if sClassName="" then '类名为空

　　FAddCheck=1

　　ErrorStr="类名不能为空！"

　　exit Function

　　else

　　if nParentID="" then '父id为空

　　FAddCheck=1

　　ErrorStr="父id不能为空！"

　　exit Function

　　else

　　if nParentID<>0 then

　　set temprs=conn.execute("select ClassID From ArticleClass where ClassID=" & nParentID) '父类别不存在

　　if temprs.eof then

　　FAddCheck=1

　　ErrorStr="所属类别不存在或已经被删除！"

　　exit Function

　　else

　　sql="select ClassID from ArticleClass where ClassName='"& sClassName &"' and ParentID="& nParentID '类名重复

　　set rs=conn.execute(sql)

　　if not rs.eof then

　　FAddCheck=1

　　ErrorStr="类名重复！"

　　exit Function

　　end if

　　set rs=nothing

　　end if

　　set temprs=nothing

　　else

　　sql="select ClassID from ArticleClass where ClassName='"& sClassName &"' and ParentID="& nParentID '类名重复

　　set rs=conn.execute(sql)

　　if not rs.eof then

　　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相同

　　sParentPath=trim(rs("ParentPath"))& "," &nParentID

　　if cint(trim(nParentID))>0 then '父id大于0则有父类别，故要插入的类别的深度父类别的深度加1，父id不大于0则当前要插入的类别为根类别，则深度为0

　　nDepth=cint(trim(rs("Depth")))+1

　　else

　　nDepth=0

　　end if

　　if cint(trim(rs("Child")))>0 then

　　dim rsPrevOrderID

　　'得到与本栏目同级的最后一个栏目的OrderID

　　set rsPrevOrderID=conn.execute("select Max(OrderID) From ArticleClass where ParentID=" & ParentID)

　　prevOrderID=rsPrevOrderID(0)

　　'得到同一父栏目但比本栏目级数大的子栏目的最大OrderID，如果比前一个值大，则改用这个值。

　　set rsPrevOrderID=conn.execute("select Max(OrderID) From ArticleClass where ParentPath like '" & ParentPath & ",%'")

　　if (not(rsPrevOrderID.bof and rsPrevOrderID.eof)) then

　　if not IsNull(rsPrevOrderID(0)) then

　　if rsPrevOrderID(0)>prevOrderID then

　　prevOrderID=rsPrevOrderID(0)

　　end if

　　end if

　　end if

　　set rsPrevOrderID=nothing

　　end if

　　nOrderID=prevOrderID+1

　　else

　　nOrderID=0

　　sParentPath="0"

　　nDepth=0

　　end if

　　set rs=nothing

　　nChild=0

　　sql="insert into ArticleClass (ClassID,ClassName,ParentID,ParentPath,Depth,RootID,Child,OrderID,FilePath) values ("& nClassID &",'"& sClassName &"',"& nParentID &",'"& sParentPath &"',"& nDepth &","& nRootID &","& nChild &","& nOrderID &",'"& sFilePath &"')"

　　conn.execute(sql)

　　if ParentID>0 then

　　'更新其父类的子栏目数

　　conn.execute("update ArticleClass set child=child+1 where ClassID="& nParentID)

　　'更新该栏目排序以及大于本需要和同在本分类下的栏目排序序号

　　if prevOrderID<>"" then

　　conn.execute("update ArticleClass set OrderID=OrderID+1 where rootid=" & nRootid & " and OrderID>"& prevOrderID &" and ClassID<>"& nClassID)

　　end if

　　end if

　　End Sub

　　Public Function FEditCheck() '类别修改检查函数，结果为0表示通过检查，为1表示有错误发生，有错误发生时退出函数，将错误信息写入错误变量ErrorStr

　　dim temprs

　　FEditCheck=0

　　if nClassID="" then '类别id为空

　　FEditCheck=1

　　ErrorStr="类别id不能为空！"

　　exit Function

　　else

　　if sClassName="" then '类名为空

　　FEditCheck=1

　　ErrorStr="类名不能为空！"

　　exit Function

　　else

　　if nParentID<>0 then

　　set temprs=conn.execute("select ClassID From ArticleClass where ClassID=" & nParentID) '父类别不存在

　　if temprs.eof then

　　FAddCheck=1

　　ErrorStr="所属类别不存在或已经被删除！"

　　exit Function

　　else

　　set rs=conn.execute("select ClassID from ArticleClass where ClassName='"& sClassName &"' and ClassID<>"& nClassID &"and ParentID="& nParentID)

　　if not rs.eof then '类名重复

　　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)

　　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

　　%>

　　index.asp

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

　　<%

　　'作者站点：www.guaishi.org

　　'邮箱：[email protected]

　　'QQ:514777880

　　Session.CodePage=65001

　　Response.Charset = "utf-8"

　　%>

　　<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

　　<html xmlns="http://www.w3.org/1999/xhtml">

　　<head>

　　<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

　　<title></title>

　　<style type="text/css">

　　body{margin:0;padding:0;font-size:12px; background-color:#FFFFFF;}

　　ul{ list-style-type:none; margin:0 0 0 20px; padding:0;}

　　li{ white-space:nowrap; padding:0;}

　　.childdiv{ background:url(images/dot.gif);background-repeat:repeat-y;}

　　span { cursor:pointer;}

　　</style>

　　<script type="text/javascript">

　　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=='') //子类别不显示时图标显示控制

　　{

　　GetId(cid).style.display='none';

　　GetId(pid).src = 'images/closed.gif';

　　GetId(fid).src = 'images/folder.gif';

　　}

　　else //展开子类别时的操作

　　{

　　GetId(cid).style.display='';

　　GetId(pid).src = 'images/opened.gif';

　　GetId(fid).src = 'images/folderopen.gif';

　　if (GetId(cid).innerHTML==''||GetId(cid).innerHTML=='正在提交数据...')

　　{

　　GetId(cid).innerHTML='';

　　ShowChild(cid,id); //调用显示子类别函数

　　}

　　}

　　}

　　//与上一个函数作用相同，只作用在最后一个类别

　　function DivDisplay2(cid,id,pid,fid)

　　{

　　if (GetId(cid).style.display=='')

　　{

　　GetId(cid).style.display='none';

　　GetId(pid).src = 'images/lastclosed.gif';

　　GetId(fid).src = 'images/folder.gif';

　　}

　　else

　　{

　　GetId(cid).style.display='';

　　GetId(pid).src = 'images/lastopen.gif';

　　GetId(fid).src = 'images/folderopen.gif';

　　if (GetId(cid).innerHTML==''||GetId(cid).innerHTML=='正在提交数据...')

　　{

　　GetId(cid).innerHTML='';

　　ShowChild(cid,id);

　　}

　　}

　　}

　　//类别添加函数

　　//id--类别id

　　function ClassAdd(id){

　　if (GetId("p"+id).src.indexOf("last")>0){ //最后一个类别时的添加操作

　　if (!GetId("p"+id).onclick){

　　GetId("p"+id).onclick=function (){DivDisplay2("c"+id,id,"p"+id,"f"+id);}; //为[+]和[-]添加单击事件

　　GetId("s"+id).ondblclick=function (){DivDisplay2("c"+id,id,"p"+id,"f"+id);}; //为显示类别文字的span添加双击事件

　　GetId("p"+id).src = 'images/lastopen.gif';

　　}

　　}

　　else{

　　if (!GetId("p"+id).onclick){ //不为最后一个类别的添加操作

　　GetId("p"+id).onclick=function (){DivDisplay("c"+id,id,"p"+id,"f"+id);};

　　GetId("s"+id).ondblclick=function (){DivDisplay("c"+id,id,"p"+id,"f"+id);};

　　GetId("p"+id).src = 'images/opened.gif';

　　}

　　}

　　GetId("c"+id).style.display='';

　　ShowChild("c"+id,id);

　　}

　　//类别修改函数

　　function ClassEdit(id,classname){

　　GetId("s"+id).innerHTML=classname;

　　}

　　//有多个子类别的类别的删除函数

　　function ClassDel(id){

　　ShowChild("c"+id,id);

　　CurrentSelect(currentID,id)

　　BrowseRight(id);

　　}

　　//只有一个子类别的类别的删除函数

　　function ClassDel1(id){

　　if (GetId("p"+id).src.indexOf("last")>0){ //当类别是当前类别的最后一个类别时

　　GetId("p"+id).style.cursor="cursor"; //设置图标的鼠标经过样式

　　GetId("p"+id).onclick=function (){}; //因为只有一个子类别删除后就不再有子类别，故将图标单击事件修改为空函数

　　GetId("s"+id).ondblclick=function (){}; //同上

　　GetId("p"+id).src = 'images/lastnochild.gif'; //图标设置

　　}

　　else{

　　GetId("p"+id).style.cursor="cursor"; //非最后一个类别的删除操作

　　GetId("p"+id).onclick=function (){};

　　GetId("s"+id).ondblclick=function (){};

　　GetId("p"+id).src = 'images/nofollow2.gif'; //这里的图标设置与前面不一样

　　}

　　ShowChild("c"+id,id);

　　CurrentSelect(currentID,id);

　　BrowseRight(id);

　　}

　　//向右边框架传递参数

　　function BrowseRight(id){

　　CurrentSelect(currentID,id);

　　top.ContentFrame.location="../ArticleMain.asp?ClassID="+ id;

　　}

　　//设置类别选中状态的函数

　　function CurrentSelect(oldid,newid){

　　currentID=newid;

　　document.getElementById("s"+oldid).style.backgroundColor="white";

　　document.getElementById("s"+currentID).style.backgroundColor="#C0C0E9";

　　}

　　//创建XMLHttpRequest对象

　　function CreateXMLHttpRequest()

　　{

　　if (window.ActiveXObject)

　　{

　　xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");

　　}

　　else

　　{

　　xmlHttp = new XMLHttpRequest();

　　}

　　}

　　//Ajax处理函数

　　//id,层id

　　//rid,数据在表中的id

　　function ShowChild(cid,id)

　　{

　　CreateXMLHttpRequest();

　　if(xmlHttp)

　　{

　　xmlHttp.open('POST','child.asp',true);

　　xmlHttp.setRequestHeader('Content-Type','application/x-www-form-urlencoded');

　　var SendData = 'id='+id;

　　xmlHttp.send(SendData);

　　xmlHttp.onreadystatechange=function()

　　{

　　if(xmlHttp.readyState==4)

　　{

　　if(xmlHttp.status==200)

　　{

　　GetId(cid).innerHTML = xmlHttp.responseText;

　　}

　　else

　　{

　　GetId(cid).innerHTML='出错：'+xmlHttp.statusText;

　　}

　　}

　　else

　　{

　　GetId(cid).innerHTML="正在提交数据...";

　　}

　　}

　　}

　　else

　　{

　　GetId(cid).innerHTML='抱歉，您的浏览器不支持XMLHttpRequest，请使用IE6以上版本！';

　　}

　　}

　　//取得页面对象

　　//id,层id

　　function GetId(id)

　　{

　　return document.getElementById(id);

　　}

　　</script>

　　</head>

　　<body>

　　<!--#include file="../conn.asp"-->

　　<%

　　'显示根目录

　　sql="select *,(select top 1 ClassID from ArticleClass where Depth=0 order by ClassID desc) as lastid from ArticleClass where Depth=0 order by ClassID"

　　set rs=conn.execute(sql)

　　if not rs.eof then

　　response.Write "<ul>"&vbcr

　　do while not rs.eof

　　if cint(trim(rs("ClassID")))=cint(trim(rs("lastid"))) then

　　if rs("Child")>0 then

　　response.Write "<li><img id='p"&rs("ClassID")&"' src=""images/lastclosed.gif"" onclick=""DivDisplay2('c"&rs("ClassID")&"','"&rs("ClassID")&"','p"&rs("ClassID")&"','f"& rs("ClassID") &"')"" style=""cursor : hand;"" align=""absmiddle"">"

　　response.Write "<img src=""images/folder.gif"" align=""absmiddle"" id='f"& rs("ClassID") &"' /> <span id='s"& trim(rs("ClassID")) &"' onclick=""BrowseRight("& trim(rs("ClassID")) &")"" ondblclick=""DivDisplay2('c"&rs("ClassID")&"','"&rs("ClassID")&"','p"&rs("ClassID")&"','f"& rs("ClassID") &"')"">"& rs("ClassName") &"</span>"

　　else

　　response.Write "<li><img id='p"& rs("ClassID") &"' src=""images/lastnochild.gif"" align=""absmiddle"" />"

　　response.Write "<img src=""images/folder.gif"" align=""absmiddle"" id='f"& rs("ClassID") &"' /> <span id='s"& trim(rs("ClassID")) &"' onclick=""BrowseRight("& trim(rs("ClassID")) &")"">"& rs("ClassName") &"</span>"

　　end if

　　else

　　if rs("Child")>0 then

　　response.Write "<li><img id='p"&rs("ClassID")&"' src=""images/closed.gif"" onclick=""DivDisplay('c"&rs("ClassID")&"','"&rs("ClassID")&"','p"&rs("ClassID")&"','f"& rs("ClassID") &"')"" style=""cursor : hand;"" align=""absmiddle"">"

　　response.Write "<img src=""images/folder.gif"" align=""absmiddle"" id='f"& rs("ClassID") &"' /> <span id='s"& trim(rs("ClassID")) &"' onclick=""BrowseRight("& trim(rs("ClassID")) &")"" ondblclick=""DivDisplay('c"&rs("ClassID")&"','"&rs("ClassID")&"','p"&rs("ClassID")&"','f"& rs("ClassID") &"')"">"& rs("ClassName") &"</span>"

　　else

　　response.Write "<li><img id='p"& rs("ClassID") &"' src=""images/nofollow2.gif"" align=""absmiddle"" />"

　　response.Write "<img src=""images/folder.gif"" align=""absmiddle"" id='f"& rs("ClassID") &"' /> <span id='s"& trim(rs("ClassID")) &"' onclick=""BrowseRight("& trim(rs("ClassID")) &")"">"& rs("ClassName") &"</span>"

　　end if

　　end if

　　if cint(trim(rs("ClassID")))=cint(trim(rs("lastid"))) then

　　response.Write "<div id='c"&rs("ClassID")&"' style='display:none;'></div>"

　　else

　　response.Write "<div id='c"&rs("ClassID")&"' style='display:none;' class=""childdiv""></div>"

　　end if

　　response.Write "</li>"&vbcr

　　rs.movenext

　　loop

　　response.Write "</ul>"&vbcr

　　end if

　　rs.close

　　set rs=nothing

　　conn.close

　　Set conn = Nothing

　　%>

　　</body>

　　</html>