tree.asp

经典的树型列表,是所有WEB应用开发的必需常用的管理控件

<script language="javascript">
function ClickClassImg(ClickObj,ClassID)
{
	var ImgSrc=ClickObj.src,OpenTF;
	var FolderObj=ClickObj.parentElement.children(ClickObj.parentElement.children.length-1);
	if (ImgSrc.indexOf('Close.gif')!=-1) {ClickObj.src='Images/Folder/Open.gif';OpenTF=true}
	if (ImgSrc.indexOf('EndClose.gif')!=-1) {ClickObj.src='Images/Folder/EndOpen.gif';OpenTF=true};
	if (ImgSrc.indexOf('Open.gif')!=-1) {ClickObj.src='Images/Folder/Close.gif';OpenTF=false;}
	if (ImgSrc.indexOf('EndOpen.gif')!=-1) {ClickObj.src='Images/Folder/EndClose.gif';OpenTF=false;}
	if (OpenTF) 
	{
		if (FolderObj.src.indexOf('folderclosed.gif')!=-1) FolderObj.src='Images/Folder/folderopen.gif';
		ShowChildClass(ClassID);
	}
	else
	{
		if (FolderObj.src.indexOf('folderopen.gif')!=-1) FolderObj.src='Images/Folder/folderclosed.gif';
		HideChildClass(ClassID);
	}
}
function ChangeImg(Obj,OpenTF)
{
	var CurrObj=null,ImgSrc='';
	for (var i=0;i<Obj.all.length;i++)
	{
		CurrObj=Obj.all(i);
		if (CurrObj.tagName.toLowerCase()=='img')
		{
			ImgSrc=CurrObj.src;
			if (OpenTF==true)
			{
				if (ImgSrc.indexOf('Close.gif')!=-1) CurrObj.src='Images/Folder/Open.gif';
				if (ImgSrc.indexOf('EndClose.gif')!=-1) CurrObj.src='Images/Folder/EndOpen.gif';
				if (ImgSrc.indexOf('Open.gif')!=-1) return;
				if (ImgSrc.indexOf('EndOpen.gif')!=-1) return;
				if (ImgSrc.indexOf('folderopen.gif')!=-1) return;
				if (ImgSrc.indexOf('folderclosed.gif')!=-1) CurrObj.src='Images/Folder/folderopen.gif';
			}
			else
			{
				if (ImgSrc.indexOf('Close.gif')!=-1) return;
				if (ImgSrc.indexOf('EndClose.gif')!=-1) return;
				if (ImgSrc.indexOf('Open.gif')!=-1) CurrObj.src='Images/Folder/Close.gif';
				if (ImgSrc.indexOf('EndOpen.gif')!=-1) CurrObj.src='Images/Folder/EndClose.gif';
				if (ImgSrc.indexOf('folderopen.gif')!=-1) CurrObj.src='Images/Folder/folderclosed.gif';
				if (ImgSrc.indexOf('folderclosed.gif')!=-1) return;
			}
		}
	}
}
function HideChildClass(ID)
{
	var CurrObj=null;
	var TRObj=document.body.getElementsByTagName('TR');
	for (var i=0;i<TRObj.length;i++)
	{
		CurrObj=TRObj(i);
		if (CurrObj.AllParentID!=null)
		{
			if (CurrObj.AllParentID.indexOf(ID)!=-1) CurrObj.style.display='none';
		}
	}
}

function ShowChildClass(ID)
{
	var CurrObj=null;
	var TRObj=document.body.getElementsByTagName('TR');
	for (var i=0;i<TRObj.length;i++)
	{
		CurrObj=TRObj(i);
		if (CurrObj.ParentID==ID)
		{
			if (CurrObj.tagName.toLowerCase()=='tr')
			{
				CurrObj.style.display='';
				ChangeImg(CurrObj,false);
			}
		}
	}
}
</script>
<!--#include file="conn.asp"-->
<%
Function GetChildClassList(ClassID,Str,EndNodeTF,TempAllParentID) 'CLASSID 图片路径，是否为结点
	Dim Sql,RsTempObj,TempImageStr,ImageStr,ChildClassNumber,AllParentID
	Dim TempSrc,TempEndNodeTF
	if EndNodeTF = True then
		TempSrc = "<img src=""Images/Folder/blank.gif"">"
	else
		TempSrc = "<img src=""Images/Folder/HR.gif"">"
	end if
	ChildClassNumber = 1
	AllParentID = TempAllParentID & "," & ClassID
	Sql = "Select * from News_Class where ParentClassID='" & ClassID & "' " '搜索指定CLASSID频道的子频道
	ImageStr = Str & TempSrc
	Set RsTempObj = Server.CreateObject("Adodb.RecordSet")
	RsTempObj.Open Sql,Conn,1,1
	do while Not RsTempObj.Eof
	    if ChildClassNumber = RsTempObj.RecordCount then '如果记录数为一（只有一个子频道??）
			TempEndNodeTF = True '那么尾结点逻辑值为真
			TempImageStr = "<img onClick=""ClickClassImg(this,'" & RsTempObj("ClassID") & "')"" src=""Images/Folder/EndClose.gif""><img src=""Images/Folder/folderclosed.gif"">" '输出结束的最后一个图片
		else  '如果不至一条记录（多个子频道）
			TempEndNodeTF = False '否则输出列表中间的图片
			TempImageStr = "<img onClick=""ClickClassImg(this,'" & RsTempObj("ClassID") & "')"" src=""Images/Folder/Close.gif""><img src=""Images/Folder/folderclosed.gif"">"
		end if
		GetChildClassList = GetChildClassList & "<tr  ParentID=""" & RsTempObj("ParentClassID") & """ AllParentID=""" & AllParentID & """ ClassID=""" & RsTempObj("ClassID") & """ style=""display:none;""><td><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr align=""left"" class=""TempletItem""><td>" & ImageStr & TempImageStr & "</td><td nowrap><span >" & RsTempObj("ClassName")  & "</span></td></tr></table></td></tr>" & Chr(13) & Chr(10)
		GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("ClassID"),ImageStr,TempEndNodeTF,AllParentID)
		ChildClassNumber = ChildClassNumber + 1
		RsTempObj.MoveNext
	loop
	Set RsTempObj = Nothing
End Function
%>
<%
	Dim ClassSql,RsClassObj
	ClassSql="SELECT * FROM News_Class WHERE ParentClassID IS NULL"
	Set RsClassObj = Server.CreateObject("Adodb.RecordSet")
	RsClassObj.Open ClassSql,Conn,1,1
%>
<table border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td> 
      <table border="0" cellspacing="0" cellpadding="0">
        <tr ParentID="0" ClassID="0" align="left" class="TempletItem">
          <td><img src="Images/Station.gif" width="24" height="22"></td>
          <td>站点</td>
        </tr>
      </table>
	</td>
  </tr>
  <%
	Dim ClassNumber,TempImageSrc,TempFolderImageSrc
	ClassNumber = 1
	do while Not RsClassObj.Eof
		if ClassNumber = RsClassObj.RecordCount then
			TempImageSrc = "Images/Folder/EndClose.gif"
		else
			TempImageSrc = "Images/Folder/Close.gif"
		end if
		
		TempFolderImageSrc = "Images/Folder/folderclosed.gif"
		
%>
  <tr AllParentID="0" ParentID="<% = RsClassObj("ParentClassID") %>" ClassID="<% = RsClassObj("ClassID") %>"> 
    <td>
	<table border="0" cellspacing="0" cellpadding="0">
        <tr align="left">
		<td nowrap><img onClick="ClickClassImg(this,'<% = RsClassObj("ClassID") %>');" src="<% = TempImageSrc %>"><img src="<% = TempFolderImageSrc %>"></td>
		<td nowrap><span><% = RsClassObj("ClassName") %></span></td>
        </tr>
      </table>
	  </td>
  </tr>
  <%
		if ClassNumber = RsClassObj.RecordCount then
			Response.Write(GetChildClassList(RsClassObj("ClassID"),"",true,""))
		else
			Response.Write(GetChildClassList(RsClassObj("ClassID"),"",False,""))
		end if
		ClassNumber = ClassNumber + 1
		RsClassObj.MoveNext
	loop
	Set RsClassObj = Nothing
%>
</table>