1000分悬赏，不相信没人能解决！！！分十次给！！

Question

你可以用event.srcElement.innerText或其他的属性来判断啊，你在生成树的时候应该加入一些标记的属性，比如：id,name等之类的，也可以把你的机构名字附到参数的后面：
<a href="f2.asp?id=机构名称" target='frameName'>机构名称</a>这样，点击的时候就可以判断了。

Answer 1

其实，做树并不难，只要设计好数据库，就可以了，关键是递归的思想，可以生成无穷级的饿树：下面是我们以前代码的生成树的代码：Function addChildItem(oFolder, szHtml,n)
dim tmp
tmp=""
for i=1 to n
tmp=tmp&"&nbsp;&nbsp;"
next
szHtml =szHtml & "<span>"&tmp&"<img src=images/openfld.gif border=0 alt='折叠' style='cursor:hand' ALIGN=ABSMIDDLE onclick=expendit(this,'child"& oFolder.ff_ID &"')>"

If oFolder Is Nothing Then Exit Function
szHtml = szHtml & "&nbsp;<a href='StoreMain.asp?myID=" & oFolder.ff_ID & "' class=fav onmouseout=""this.className='fav'"" onmouseover=""this.className='favMouse'"" title='" & oFolder.ff_Name & "'>" & oFolder.ff_Name & "</a>"
strOperation=strOperation & oFolder.ff_Name & "=" &oFolder.ff_ID & "|" If Not oFolder.SubFolders Is Nothing Then

szHtml = szHtml & "<span id=child" & oFolder.ff_ID & ">"
nTotal=nTotal+oFolder.SubFolders.Count
strTotal=strTotal& oFolder.ff_Name &"="&oFolder.SubFolders.Count &"|" Dim i
For i = 1 To oFolder.SubFolders.Count
szHtml=szHtml&"<br>"
addChildItem oFolder.SubFolders.Item(i), szHtml,n+1

Next 
szHtml = szHtml & "</span>"
End If
szHtml = szHtml & "</span>"End Function
Dim szHtml
Dim strTotal,nTotal,strOperation
strOperation=""
nTotal=0
strTotal=""
szHtml=""
addChildItem fAllTreeFolder.FolderTree, szHtml,0

Answer 2

其实，做树并不难，只要设计好数据库，就可以了，关键是递归的思想，可以生成无穷级的饿树：下面是我们以前代码的生成树的代码：Function addChildItem(oFolder, szHtml,n)
dim tmp
tmp=""
for i=1 to n
tmp=tmp&"&nbsp;&nbsp;"
next
szHtml =szHtml & "<span>"&tmp&"<img src=images/openfld.gif border=0 alt='折叠' style='cursor:hand' ALIGN=ABSMIDDLE onclick=expendit(this,'child"& oFolder.ff_ID &"')>"

If oFolder Is Nothing Then Exit Function
szHtml = szHtml & "&nbsp;<a href='StoreMain.asp?myID=" & oFolder.ff_ID & "' class=fav onmouseout=""this.className='fav'"" onmouseover=""this.className='favMouse'"" title='" & oFolder.ff_Name & "'>" & oFolder.ff_Name & "</a>"
strOperation=strOperation & oFolder.ff_Name & "=" &oFolder.ff_ID & "|" If Not oFolder.SubFolders Is Nothing Then

szHtml = szHtml & "<span id=child" & oFolder.ff_ID & ">"
nTotal=nTotal+oFolder.SubFolders.Count
strTotal=strTotal& oFolder.ff_Name &"="&oFolder.SubFolders.Count &"|" Dim i
For i = 1 To oFolder.SubFolders.Count
szHtml=szHtml&"<br>"
addChildItem oFolder.SubFolders.Item(i), szHtml,n+1

Next 
szHtml = szHtml & "</span>"
End If
szHtml = szHtml & "</span>"End Function
Dim szHtml
Dim strTotal,nTotal,strOperation
strOperation=""
nTotal=0
strTotal=""
szHtml=""
addChildItem fAllTreeFolder.FolderTree, szHtml,0

Answer 3

你可以在frame1用：
top.frames.frame2.formname.A11.value
得到相应的值，其他的值类似。frame2也可以类似得到frame1的值。完整代码的话，我没有你已经做出的属性目录代码，也就无所谓完整代码了。

Answer 4

问题太简单了。不屑一做。
你到网上search一把，有无数的树结构的代码。

Answer 5

代码已经写好，你还要不！ 
而且我发现你上面写的四个sql语句有问题，你看看我的就会明白，没有那么简单！

Answer 6

我也要，邮箱：[email protected]