asp高手进来看看,有谁会做这个?

zyl123456 2007-05-08 04:59:33

---------------------------------------------------------------------------------
下面是调用后台的无限级分类,请问如何才能将这个代码写成可收缩的菜单啊?
---------------------------------------------------------------------------------


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="veteadmin/inc/css.css" rel="stylesheet">
<title>目录树</title>
<script language="JavaScript">
function showhide(subid)
{
if (subid.style.display=='none')
{
subid.style.display='block';
}
else
{
subid.style.display='none';
}
}
</script>
</head>
<%
Dim ClassSql,RsClassObj,clid,direct_f
clid=Cint(request("clid"))
direct_f=request("file")
ClassSql = "Select * from downclass where parentID="&clid
Set RsClassObj = Conn.Execute(ClassSql)

Function GetChildClassList(ClassID,Str)
Dim Sql,RsTempObj,TempImageStr,ImageStr
TempImageStr = "<img src=""veteadmin/Images/folder-.gif"" width=""18"" height=""18""><img src=""veteadmin/Images/folder.gif"" width=""18"" height=""18"">"
Sql = "Select * from downclass where ParentID=" & ClassID
ImageStr = Str & "<img src=""veteadmin/Images/folderHR.gif"" width=""18"" height=""18"">"
Set RsTempObj = Conn.Execute(Sql)
do while Not RsTempObj.Eof
GetChildClassList = GetChildClassList & "<table border=""0"" cellspacing=""0"" cellpadding=""0""><tr style=""cursor:hand;"" onDblClick=""DblClickClass(this);"" ChildClassShowTF=""true"" ParentID=""" & RsTempObj("ParentID") & """ ClassID=""" & RsTempObj("id") & """ align=""left"" onClick=""ClickClass(this)"" class=""TempletItem""><td>" & ImageStr & TempImageStr & "</td><td>"& RsTempObj("title") & "</td></tr></table>"
GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("id"),ImageStr)
RsTempObj.MoveNext
loop
RsTempObj.close
Set RsTempObj = Nothing
End Function
%>
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#F0F0F0"> 点击左边分类右边显示列表</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellspacing="0" cellpadding="0">
<tr onDblClick="DblClickClass(this);" ChildClassShowTF="true" id="SysRootClass" ParentID="0" ClassID="0" align="left" onClick="ClickClass(this)" class="TempletItem">
<td><img src="veteadmin/Images/Folderk.gif" width="18" height="18"></td>
<td class="TempletSelectItem">系统根栏目</td>
</tr>
</table></td>
</tr>
<%
do while Not RsClassObj.Eof
%>
<tr>
<td bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0">
<tr style="cursor:hand;" onDblClick="DblClickClass(this);" ChildClassShowTF="true" ParentID="<% = RsClassObj("ParentID") %>" ClassID="<% = RsClassObj("id") %>" align="left" onClick="ClickClass(this)" class="TempletItem">
<td style="cursor:hand;"><img src="veteadmin/Images/folder-.gif" width="18" height="18"><img src="veteadmin/Images/Folder.gif" onclick="showhide(aa)"></td>
<td><% = RsClassObj("title") %></td>
</tr>
</table></td>
</tr>
<%
Response.Write(GetChildClassList(RsClassObj("id"),""))
RsClassObj.MoveNext
loop
%>
</table>
</body>
</html>
<%
RsClassObj.close
Set RsClassObj = Nothing
%>

</body>
</html>
<script language="JavaScript">
var ParentID='0';
var ClassID='0';
function ClickClass(Obj)
{
if ((Obj.ParentID==null)||(Obj.ClassID==null)) return;
for (var i=0;i<document.all.length;i++) if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
Obj.children(1).className='TempletSelectItem';
ParentID=Obj.ParentID;
ClassID=Obj.ClassID;
parent.frames['OpreateWindow'].location='<%=direct_f%>.asp?classid='+ClassID;
}

function DblClickClass(Obj)
{
if (Obj.ChildClassShowTF=='true')
{
HideChildClass(ClassID);
Obj.ChildClassShowTF='false';
//if (Obj.id.toLowerCase()=='SysRootClass') Obj.children(0).children(0).src='../Images/Folder.gif';
//else Obj.children(0).children(1).src='../Images/Folder.gif';
}
else
{
ShowChildClass(ClassID);
Obj.ChildClassShowTF='true';
//if (Obj.id.toLowerCase()=='SysRootClass') Obj.children(0).children(0).src='../Images/FolderK.gif';
//else Obj.children(0).children(1).src='../Images/FolderK.gif';
}
}

function HideChildClass(ID)
{
var CurrObj=null;
for (var i=0;i<document.all.length;i++)
{
CurrObj=document.all(i);
if ((CurrObj.ParentID==ID)&&(CurrObj.id!='SysRootClass'))
{
if (CurrObj.parentElement.parentElement.parentElement.parentElement.tagName.toLowerCase()=='tr')
{
CurrObj.parentElement.parentElement.parentElement.parentElement.style.display='none';
HideChildClass(CurrObj.ClassID);
}
}
}
}

function ShowChildClass(ID)
{
var CurrObj=null;
for (var i=0;i<document.all.length;i++)
{
CurrObj=document.all(i);
if ((CurrObj.ParentID==ID)&&(CurrObj.id!='SysRootClass'))
{
if (CurrObj.parentElement.parentElement.parentElement.parentElement.tagName.toLowerCase()=='tr')
{
CurrObj.parentElement.parentElement.parentElement.parentElement.style.display='';
ShowChildClass(CurrObj.ClassID);
}
}
}
}
</script>
<%call connclose()%>
---------------------------------------------------------------
现在的效果是可以隐藏子菜单,但点击父菜单,却无法展开,请高手看看,应该如何修改?

...全文

246 点赞收藏 14

写回复

14 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

zyl123456 2007-05-10

再顶

回复赞

zyl123456 2007-05-09

可是我前后台都已经写好了，如果再来改成梅花雪的，太麻烦了，再说我每个菜单都是写进另外一张表了啊，你看看http://www.vetech.cn/xzzx.asp这个就明白了，我只是想把左侧的菜单收缩起来，要求不高的．

对了，梅花雪的树形菜单能否发一份给我，谢谢zyl82214@163.com

回复赞

ybcola 2007-05-09

目录树嘛，何必做喃！！用梅花雪的不就得了！

回复赞

zyl123456 2007-05-09

js代码，我是能看懂，我是指在我发的那段程序中应该如何加入，才行，我现在是程序不知道如何加啊？
-----------------------------------------------------------------------------------


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="veteadmin/inc/css.css" rel="stylesheet">
<title>目录树</title>
<script language="JavaScript">
function showhide(subid)
{
if (subid.style.display=='none')
{
subid.style.display='block';
}
else
{
subid.style.display='none';
}
}
</script>
</head>
<%
Dim ClassSql,RsClassObj,clid,direct_f
clid=Cint(request("clid"))
direct_f=request("file")
ClassSql = "Select * from downclass where parentID="&clid
Set RsClassObj = Conn.Execute(ClassSql)

Function GetChildClassList(ClassID,Str)
Dim Sql,RsTempObj,TempImageStr,ImageStr
TempImageStr = "<img src=""veteadmin/Images/folder-.gif"" width=""18"" height=""18""><img src=""veteadmin/Images/folder.gif"" width=""18"" height=""18"">"
Sql = "Select * from downclass where ParentID=" & ClassID
ImageStr = Str & "<img src=""veteadmin/Images/folderHR.gif"" width=""18"" height=""18"">"
Set RsTempObj = Conn.Execute(Sql)
do while Not RsTempObj.Eof
GetChildClassList = GetChildClassList & "<table id='aa' style='display:none' border=""0"" cellspacing=""0"" cellpadding=""0"" ><tr style=""cursor:hand;"" onDblClick=""DblClickClass(this);"" ChildClassShowTF=""true"" ParentID=""" & RsTempObj("ParentID") & """ ClassID=""" & RsTempObj("id") & """ align=""left"" onClick=""ClickClass(this)"" class=""TempletItem""><td>" & ImageStr & TempImageStr & "</td><td>"& RsTempObj("title") & "</td></tr></table>"
GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("id"),ImageStr)
RsTempObj.MoveNext
loop
RsTempObj.close
Set RsTempObj = Nothing
End Function
%>
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#F0F0F0"> 点击左边分类右边显示列表</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellspacing="0" cellpadding="0">
<tr onDblClick="DblClickClass(this);" ChildClassShowTF="true" id="SysRootClass" ParentID="0" ClassID="0" align="left" onClick="ClickClass(this)" class="TempletItem">
<td><img src="veteadmin/Images/Folderk.gif" width="18" height="18"></td>
<td class="TempletSelectItem">系统根栏目</td>
</tr>
</table></td>
</tr>
<%
do while Not RsClassObj.Eof
%>
<tr>
<td bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0">
<tr style="cursor:hand;" onDblClick="DblClickClass(this);" ChildClassShowTF="true" ParentID="<% = RsClassObj("ParentID") %>" ClassID="<% = RsClassObj("id") %>" align="left" onClick="ClickClass(this)" class="TempletItem">
<td style="cursor:hand;"><img src="veteadmin/Images/folder-.gif" width="18" height="18"><img src="veteadmin/Images/Folder.gif" onclick="showhide(aa)"></td>
<td><% = RsClassObj("title") %></td>
</tr>
</table></td>
</tr>
<%
Response.Write(GetChildClassList(RsClassObj("id"),""))
RsClassObj.MoveNext
loop
%>
</table>
</body>
</html>
<%
RsClassObj.close
Set RsClassObj = Nothing
%>

</body>
</html>
<script language="JavaScript">
var ParentID='0';
var ClassID='0';
function ClickClass(Obj)
{
if ((Obj.ParentID==null)||(Obj.ClassID==null)) return;
for (var i=0;i<document.all.length;i++) if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
Obj.children(1).className='TempletSelectItem';
ParentID=Obj.ParentID;
ClassID=Obj.ClassID;
parent.frames['OpreateWindow'].location='<%=direct_f%>.asp?classid='+ClassID;
}

function DblClickClass(Obj)
{
if (Obj.ChildClassShowTF=='true')
{
HideChildClass(ClassID);
Obj.ChildClassShowTF='false';
//if (Obj.id.toLowerCase()=='SysRootClass') Obj.children(0).children(0).src='../Images/Folder.gif';
//else Obj.children(0).children(1).src='../Images/Folder.gif';
}
else
{
ShowChildClass(ClassID);
Obj.ChildClassShowTF='true';
//if (Obj.id.toLowerCase()=='SysRootClass') Obj.children(0).children(0).src='../Images/FolderK.gif';
//else Obj.children(0).children(1).src='../Images/FolderK.gif';
}
}

function HideChildClass(ID)
{
var CurrObj=null;
for (var i=0;i<document.all.length;i++)
{
CurrObj=document.all(i);
if ((CurrObj.ParentID==ID)&&(CurrObj.id!='SysRootClass'))
{
if (CurrObj.parentElement.parentElement.parentElement.parentElement.tagName.toLowerCase()=='tr')
{
CurrObj.parentElement.parentElement.parentElement.parentElement.style.display='none';
HideChildClass(CurrObj.ClassID);
}
}
}
}

function ShowChildClass(ID)
{
var CurrObj=null;
for (var i=0;i<document.all.length;i++)
{
CurrObj=document.all(i);
if ((CurrObj.ParentID==ID)&&(CurrObj.id!='SysRootClass'))
{
if (CurrObj.parentElement.parentElement.parentElement.parentElement.tagName.toLowerCase()=='tr')
{
CurrObj.parentElement.parentElement.parentElement.parentElement.style.display='';
ShowChildClass(CurrObj.ClassID);
}
}
}
}
</script>
<%call connclose()%>
----------------------------------------------------------------------------------
我在上面的GetChildClassList = GetChildClassList & "<table id='aa' style='display:none' border=""0"" cellspacing=""0"" cellpadding=""0"" >这里加入了id和style，还在<img src="veteadmin/Images/Folder.gif" onclick="showhide(aa)">这里加入了onclick，但现在是有子类的都隐藏了，点击父类，无法展开子类，请大哥帮忙修改一下，好吗？

回复赞