Asp,帮忙修改一下代码!

zyl123456

浏览: 2699 次
性别:
来自: 北京

最近访客更多访客>>

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (2)

社区版块

存档分类

asp

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


<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()%>

分享到：

帮忙看看下面的CSS代码?

2007-05-08 13:41
浏览 1551
评论(1)
论坛回复 / 浏览 (1 / 1928)
查看更多

1 楼 zyl123456 2007-05-08

现在是有子类的栏目可以隐藏,但是点击后无法展开,不知道问题出在哪里,还望各们哥哥\姐姐帮忙看一下吧...

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论