50分谁来给我看一个“这棵树”（属性菜单）啊？感激不尽！在线等！

antacy 2003-12-12 01:56:26

我自己做了一个树型菜单，结果演示如下：
http://www.eseng.com.cn/tree

由于我js 不好！我现在有以下问题请各位大侠相助：

1、当点开子目录时，无法显示树型菜单的连线（ blank.gif ）____最需要解决的！

2、我想实现只有在点击前面的小图标时，才进行子目录的展开和收缩（即在点后面显示的文字时只打开链接，不进行子菜单的展开和收缩————现在的状况是点后面的文字，它也进行的展开和收缩）

======================源代码如下（一个文件）================



<html>
<style TYPE="text/css">
/* Outline Style Sheet */
UL UL {display: none;
margin-left: 20pt}
</style>
<head>
<link rel="stylesheet" href="font.css">
<title>tree</title>
<script LANGUAGE="JavaScript">
function checkParent(src, dest) {
// Search for a specific parent of the current element
while (src!=null) {
if (src.tagName == dest) return src;
src = src.parentElement;
}
return null;
}
function outline() {
// Expand or collapse if a list item is clicked.
var open = event.srcElement;
// Make sure clicked inside an LI. This test allows rich HTML inside lists.
var el = checkParent(open, "LI");
if (null!=el) {
var pos = 0;
// Search for a nested list
for (var pos=0; pos<el.children.length; pos++) {
if ("UL"==el.children[pos].tagName) break;
}
if (pos==el.children.length) return;
} else return;
el = el.children[pos];
if ("UL"==el.tagName) {
// Expand or Collapse nested list
if (""==el.style.display) {
el.style.display = "block";
el.style.listStyleImage = "url(images/open.gif)";
el.style.listStyleImage = "url(images/blank.gif)";
el.parentElement.style.listStyleImage = "url(images/open.gif)";
}
else
{
el.style.display = "";
el.parentElement.style.listStyleImage = "url(images/close.gif)";
}
}
event.cancelBubble = true;
}
document.onclick = outline;
</script>
<base target="right">

</head>
<body bgColor=PaleTurquoise>
<%
set rs1=server.createobject("adodb.recordset")
sql="select id,att_filename,link from document where parent=0 "
rs1.open sql,conn,1,3
Response.write "<UL>"
do while not rs1.EOF

checksql="select * from document where parent="&rs1("id")
set checkrs=conn.execute(checksql)
if not checkrs.eof then
Response.write "<LI STYLE='list-style-image: url(images/close.gif)'><a href='"&rs1("link")&"'>"&rs1("att_filename")&"</a></LI><br>"
else
Response.write "<LI STYLE='list-style-image: url(images/open.gif)'><a href='"&rs1("link")&"'>"&rs1("att_filename")&"</a></LI><br>"
end if

Call ShowFolderList(rs1("id"))
rs1.MoveNext
loop
Response.write "</UL>"
rs1.Close
set rs1=nothing

Sub ShowFolderList(parentid)
set rs=server.createobject("adodb.recordset")
sql="select id,att_filename,link from document where parent="&cstr(parentid)&""
rs.open sql,conn,1,3
if (not rs.EOF) then
Response.write "<UL>"
do while not rs.EOF

s=rs("att_filename")

checksql2="select * from document where parent="&rs("id")
set checkrs2=conn.execute(checksql2)
if not checkrs2.eof then
Response.write "<li STYLE='list-style-image: url(images/close.gif)'>"
else
Response.write "<li STYLE='list-style-image: url(images/open.gif)'>"
end if
Response.write "<a href='"&rs("link")&"'>"&rs("att_filename")&"</a></LI><br>"
Response.write "</a>"

Call ShowFolderList(rs("id"))
rs.MoveNext
loop
rs.Close
set rs=nothing
Response.write "</UL>"
end if
end sub

%>

...全文

87 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

ph4studio 2003-12-12

打赏
举报

我在帮你测试，问题就在下面的语句，俺的js也不好，不过尽力吧
document.onclick = outline;

kirc 2003-12-12

打赏
举报

你说的这两个问题，你的这个树都解决不了
1 这个树的缩进是由样式表决定的。margin-left: 20pt 在这20pt中是写不上图片的。
2 点击事件是发生在<UL>标签上的，而图片只是该标签的一个样式属性，根本捕获不到
Click 事件。
btw：你的脚本有问题，最好换个树。CSDN上有无数的。

antacy 2003-12-12