ajax+asp無(wú)限級(jí)分類樹(shù)型結(jié)構(gòu)的代碼
更新時(shí)間：2007年10月30日 22:01:37 作者：
復(fù)制代碼 代碼如下:
<%
'數(shù)據(jù)庫(kù)字段為類屬性，添加、刪除、修改、操作檢查等函數(shù)為類的方法
Class Cls_Leibie
Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定義私有變量（類的屬性，即數(shù)據(jù)庫(kù)字段對(duì)應(yīng)的變量）
Private rs,sql,ErrorStr
Private Sub Class_Initialize()
ErrorStr="" '初始化錯(cuò)誤信息為空
End Sub
Private Sub Class_Terminate() '銷毀類時(shí)關(guān)閉數(shù)據(jù)庫(kù)連接
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Sub
'*******************設(shè)置各個(gè)屬性******************************************************
Public Property Let ClassID(str) '獲取類別ID（主鍵）
nClassID=str
call ClassProperty() '獲取類別ID時(shí)調(diào)用此函數(shù)讀出類的所有屬性
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) '子類別個(gè)數(shù)
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) '類別文件根目錄（生成靜態(tài)文件路徑，小站奇人異事網(wǎng)（[url]www.guaishi.org[/url]）用的是生成靜態(tài)，故設(shè)置此字段）
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() '類別添加檢查函數(shù)，結(jié)果為0表示通過(guò)檢查，為1表示有錯(cuò)誤發(fā)生，有錯(cuò)誤發(fā)生時(shí)退出函數(shù)，將錯(cuò)誤信息寫入錯(cuò)誤變量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="所屬類別不存在或已經(jīng)被刪除！"
exit Function
else
sql="select ClassID from ArticleClass where ClassName='"& sClassName &"' and ParentID="& nParentID '類名重復(fù)
set rs=conn.execute(sql)
if not rs.eof then
FAddCheck=1
ErrorStr="類名重復(fù)！"
exit Function
end if
set rs=nothing
end if
set temprs=nothing
else
sql="select ClassID from ArticleClass where ClassName='"& sClassName &"' and ParentID="& nParentID '類名重復(fù)
set rs=conn.execute(sql)
if not rs.eof then
FAddCheck=1
ErrorStr="類名重復(fù)！"
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") '查找當(dāng)前數(shù)據(jù)庫(kù)中最大的類別id，如果沒(méi)有數(shù)據(jù)則設(shè)置為0，要插入的類別id為當(dāng)前最大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") '查找當(dāng)前數(shù)據(jù)庫(kù)中最大的根id，如果沒(méi)有數(shù)據(jù)則設(shè)置為0，要插入的根id為當(dāng)前最大根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) '查找父類別相應(yīng)信息
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則當(dāng)前要插入的類別為根類別，則深度為0
nDepth=cint(trim(rs("Depth")))+1
else
nDepth=0
end if
if cint(trim(rs("Child")))>0 then
dim rsPrevOrderID
'得到與本欄目同級(jí)的最后一個(gè)欄目的OrderID
set rsPrevOrderID=conn.execute("select Max(OrderID) From ArticleClass where ParentID=" & ParentID)
prevOrderID=rsPrevOrderID(0)
'得到同一父欄目但比本欄目級(jí)數(shù)大的子欄目的最大OrderID，如果比前一個(gè)值大，則改用這個(gè)值。
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
'更新其父類的子欄目數(shù)
conn.execute("update ArticleClass set child=child+1 where ClassID="& nParentID)
'更新該欄目排序以及大于本需要和同在本分類下的欄目排序序號(hào)
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() '類別修改檢查函數(shù)，結(jié)果為0表示通過(guò)檢查，為1表示有錯(cuò)誤發(fā)生，有錯(cuò)誤發(fā)生時(shí)退出函數(shù)，將錯(cuò)誤信息寫入錯(cuò)誤變量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="所屬類別不存在或已經(jīng)被刪除！"
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 '類名重復(fù)
FEditCheck=1
ErrorStr="類名重復(fù)！"
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() '類別刪除檢查函數(shù)，結(jié)果為0表示通過(guò)檢查，為1表示有錯(cuò)誤發(fā)生，有錯(cuò)誤發(fā)生時(shí)退出函數(shù)，將錯(cuò)誤信息寫入錯(cuò)誤變量ErrorStr
FDeleteCheck=0 '這里刪除沒(méi)有寫級(jí)聯(lián)刪除文章部分的代碼，刪除時(shí)應(yīng)該級(jí)聯(lián)刪除
if nClassID="" then
FDeleteCheck=1
ErrorStr="要?jiǎng)h除的類別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="類別不存在或者已經(jīng)被刪除！"
exit Function
else
if trim(rs("Child"))>0 then
FDeleteCheck=1
ErrorStr="該類別含有子類別，請(qǐng)刪除其子類別后再進(jìn)行刪除本類別的操作！"
exit Function
end if
end if
end if
End Function
Public Sub SDelete()
if nDepth>0 then '修改父id孩子數(shù)
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代碼
復(fù)制代碼 代碼如下:
var xmlHttp; //定義一個(gè)全局變量
var currentID=1;//設(shè)置當(dāng)前選中ID，如果此ID不存在則會(huì)發(fā)生js錯(cuò)誤
//類別顯示主函數(shù)
//cid--子類別所在層id
//id --類別id
//pid--[+]和[-]圖標(biāo)id
//fid--類別圖標(biāo)id
function DivDisplay(cid,id,pid,fid)
{
if (GetId(cid).style.display=='') //子類別不顯示時(shí)圖標(biāo)顯示控制
{
GetId(cid).style.display='none';
GetId(pid).src = 'images/closed.gif';
GetId(fid).src = 'images/folder.gif';
}
else //展開(kāi)子類別時(shí)的操作
{
GetId(cid).style.display='';
GetId(pid).src = 'images/opened.gif';
GetId(fid).src = 'images/folderopen.gif';
if (GetId(cid).innerHTML==''||GetId(cid).innerHTML=='正在提交數(shù)據(jù)...')
{
GetId(cid).innerHTML='';
ShowChild(cid,id); //調(diào)用顯示子類別函數(shù)
}
}
}
//與上一個(gè)函數(shù)作用相同，只作用在最后一個(gè)類別
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=='正在提交數(shù)據(jù)...')
{
GetId(cid).innerHTML='';
ShowChild(cid,id);
}
}
}
//類別添加函數(shù)
//id--類別id
function ClassAdd(id){
if (GetId("p"+id).src.indexOf("last")>0){ //最后一個(gè)類別時(shí)的添加操作
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){ //不為最后一個(gè)類別的添加操作
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);
}
//類別修改函數(shù)
function ClassEdit(id,classname){
GetId("s"+id).innerHTML=classname;
}
//有多個(gè)子類別的類別的刪除函數(shù)
function ClassDel(id){
ShowChild("c"+id,id);
CurrentSelect(currentID,id)
BrowseRight(id);
}
//只有一個(gè)子類別的類別的刪除函數(shù)
function ClassDel1(id){
if (GetId("p"+id).src.indexOf("last")>0){ //當(dāng)類別是當(dāng)前類別的最后一個(gè)類別時(shí)
GetId("p"+id).style.cursor="cursor"; //設(shè)置圖標(biāo)的鼠標(biāo)經(jīng)過(guò)樣式
GetId("p"+id).onclick=function (){}; //因?yàn)橹挥幸粋€(gè)子類別刪除后就不再有子類別，故將圖標(biāo)單擊事件修改為空函數(shù)
GetId("s"+id).ondblclick=function (){}; //同上
GetId("p"+id).src = 'images/lastnochild.gif'; //圖標(biāo)設(shè)置
}
else{
GetId("p"+id).style.cursor="cursor"; //非最后一個(gè)類別的刪除操作
GetId("p"+id).onclick=function (){};
GetId("s"+id).ondblclick=function (){};
GetId("p"+id).src = 'images/nofollow2.gif'; //這里的圖標(biāo)設(shè)置與前面不一樣
}
ShowChild("c"+id,id);
CurrentSelect(currentID,id);
BrowseRight(id);
}
//向右邊框架傳遞參數(shù)
function BrowseRight(id){
CurrentSelect(currentID,id);
top.ContentFrame.location="../ArticleMain.asp?ClassID="+ id;
}
//設(shè)置類別選中狀態(tài)的函數(shù)
function CurrentSelect(oldid,newid){
currentID=newid;
document.getElementById("s"+oldid).style.backgroundColor="white";
document.getElementById("s"+currentID).style.backgroundColor="#C0C0E9";
}
//創(chuàng)建XMLHttpRequest對(duì)象
function CreateXMLHttpRequest()
{
if (window.ActiveXObject)
{
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
}
else
{
xmlHttp = new XMLHttpRequest();
}
}
//Ajax處理函數(shù)
//id,層id
//rid,數(shù)據(jù)在表中的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='出錯(cuò)：'+xmlHttp.statusText;
}
}
else
{
GetId(cid).innerHTML="正在提交數(shù)據(jù)...";
}
}
}
else
{
GetId(cid).innerHTML='抱歉，您的瀏覽器不支持XMLHttpRequest，請(qǐng)使用IE6以上版本！';
}
}
//取得頁(yè)面對(duì)象
//id,層id
function GetId(id)
{
return document.getElementById(id);
}
您可能感興趣的文章:
- jstree創(chuàng)建無(wú)限分級(jí)樹(shù)的方法【基于ajax動(dòng)態(tài)創(chuàng)建子節(jié)點(diǎn)】
- 一個(gè)很簡(jiǎn)單的jquery+xml+ajax的無(wú)刷新樹(shù)結(jié)構(gòu)(無(wú)css，后臺(tái)是c#)
- ajax+asp無(wú)限級(jí)分類樹(shù)型結(jié)構(gòu)(帶數(shù)據(jù)庫(kù))
- 完成了AJAX樹(shù)附原理分析
- 利用Dojo和JSON建立無(wú)限級(jí)AJAX動(dòng)態(tài)加載的功能模塊樹(shù)
- 基于jstree使用AJAX請(qǐng)求獲取數(shù)據(jù)形成樹(shù)
相關(guān)文章
Ajax實(shí)現(xiàn)表格中信息不刷新頁(yè)面進(jìn)行更新數(shù)據(jù)
這篇文章主要為大家詳細(xì)介紹了Ajax實(shí)現(xiàn)表格中的信息不刷新頁(yè)面進(jìn)行更新數(shù)據(jù)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2018-10-10
利用 Linq+Jquery+Ajax 實(shí)現(xiàn)異步分頁(yè)功能可簡(jiǎn)化帶寬壓力
網(wǎng)上的分頁(yè)方法甚多，但都太過(guò)于消耗帶寬，所以我想到了用Ajax來(lái)分頁(yè)，利用返回的Json來(lái)處理返回的數(shù)據(jù)，大大簡(jiǎn)化了帶寬的壓力2014-05-05
菜鳥(niǎo)蔡之Ajax復(fù)習(xí)第二篇(JQuery中的load()方法實(shí)現(xiàn)Ajax功能)
在上一篇博客中寫到的是在傳統(tǒng)的Javascript中使用XMLHttpRequest對(duì)象異步加載數(shù)據(jù)的，唉，童鞋.......看到那些代碼是不是有點(diǎn)頭疼啊!呵呵......2012-11-11
這篇文章主要介紹了Ajax獲取XMLHttp對(duì)象的方法,涉及JavaScript基于ajax的瀏覽器判定、加載等技巧,非常簡(jiǎn)單實(shí)用,需要的朋友可以參考下2015-12-12
這篇文章主要教大家如何手寫Ajax實(shí)現(xiàn)異步刷新，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2017-07-07
這篇文章給大家介紹ajax基礎(chǔ)教程之封裝的知識(shí)，本文通過(guò)實(shí)例給大家詳細(xì)介紹，非常不錯(cuò)，感興趣的朋友一起學(xué)習(xí)吧2016-06-06
這篇文章主要為大家詳細(xì)介紹了ajax獲取用戶所在地天氣的方法，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2017-10-10
AJAX請(qǐng)求隊(duì)列實(shí)現(xiàn)
這篇文章主要為大家詳細(xì)介紹了AJAX請(qǐng)求隊(duì)列的實(shí)現(xiàn)代碼,具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2016-11-11
利用iframe實(shí)現(xiàn)ajax跨域通信的實(shí)現(xiàn)原理(圖解)
一般情況下都是用在同一域下的ajax請(qǐng)求；但是如果請(qǐng)求是發(fā)生在不同的域下，請(qǐng)求就無(wú)法執(zhí)行，并且會(huì)拋出異常提示不允許跨域請(qǐng)求,接下來(lái)介紹利用iframe實(shí)現(xiàn)ajax跨域通信感興趣的朋友可以了解下，或許對(duì)你學(xué)習(xí)ajax跨域有所幫助2013-02-02
解決ajax異步請(qǐng)求返回的是字符串問(wèn)題
這篇文章主要介紹了解決ajax異步請(qǐng)求返回的是字符串問(wèn)題,非常不錯(cuò)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2018-11-11