收录日期:2018/10/22 22:45:43 时间:2016/05/20 18:28:15 标签:JavaScript
HTML
如何在树的节点上右键弹出自定义的右键菜单???
我右键的时候都是出现定义的打开新窗的那个菜单
仿照csdn左面的菜单的ASP+数据库无限级树菜单代码分享

近来问无限级数据库树菜单人很多,我就自己做了一个仿照csdn左面的菜单,自己暂时不用,完全是给大家分享的,要数据库和代码文件请到www.ymdg.com/tree.rar下载,如果有人提供空间存放那是最好了。
本文完全采用大家熟悉的ASP(VBS)制作,过写日子我再写一个基于XML技术的给大家。
QQ:28963147,email:panyuguang962@sohu.com
感谢CSDN和全体网友!
说明:
Access数据库
●     数据库名:tree
●     表名:tree
●     字段名的设计
ID  文本类型 编码
Name 文本类型 节点文字
HyperLink  文本类型 相关信息
---------------------------------------------------
   ID        |   Name         |     HyperLink     
---------------------------------------------------
 1_1_1       | ASP            | http://www.csdn.net 
---------------------------------------------------
 1_1_1_1     | DHTML          | http://www.csdn.net 
---------------------------------------------------
 1_2_2       | JAVA           | http://www.csdn.net 
---------------------------------------------------
 1_1_2       | JavaScript     | http://www.csdn.net 
---------------------------------------------------
 1_2_1       | VB             | http://www.csdn.net 
---------------------------------------------------
 1_2_1_2     | VBA            | http://www.csdn.net 
---------------------------------------------------
 1_1         | WEB开发        | http://www.csdn.net 
---------------------------------------------------
 1           | WWW.CSDN.net   | http://www.csdn.net 
---------------------------------------------------
 1_2_1_1     | 基础类         | http://www.csdn.net 
---------------------------------------------------
 1_3_1       | 基础类         | http://www.csdn.net 
---------------------------------------------------
 1_2         | 开发语言       | http://www.csdn.net 
---------------------------------------------------
 1_1_1_2     | 内建对象       | http://www.csdn.net 
---------------------------------------------------
 1_3         | 数据库         | http://www.csdn.net 
----------------------------------------------------
文件:nolimited.asp经简单测试好用!代码如下:
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp树的研究</title>
</head>
<style type="text/css">
<!--
.aa {
font-size: 14px;
color: #000000;
text-align: center;
vertical-align: middle;
letter-spacing: 0px;
word-spacing: 0px;
}
-->
</style>
<body bgcolor="DEE3F7">
<%
      dim cn,rs,SQL ,Para,NumChild
      set cn=server.CreateObject("ADODB.connection")
      set rs=server.createobject("ADODB.recordset")
      set rs1=server.createobject("ADODB.recordset")
      cn.Open  "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tree.mdb")     
      SQL="Select * from tree order by ID"
      rs.open SQL,cn,3,2     
do while not rs.EOF 
SQL="Select ID from tree where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by ID"
Para=rs("ID") & "|"
NumChild=0
rs1.open SQL,cn, 3,2
NumChild=rs1.RecordCount
do while not rs1.EOF 
Para =Para  & rs1("ID") & "|"
rs1.MoveNext
loop
Para=cstr(trim(left(Para,len(Para)-1)))
rs1.Close
%>
<table id="T<%=rs("ID")%>" 
border=1 
cellpadding=0 
cellspacing=0 
bordercolor="#DEE3F7" 
class="aa" 
abbr="<%=Para%>"
summary=<%=checkid(rs("ID"))%>
style="cursor:hand"
onClick="vbs:subtree '<%=Para%>'" >

  <tr> 
<td width="<%=17+checkid(rs("ID"))*20%>" 
height="20" align="right"> 
<table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7">
        <tr>
    
          <td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td>
  </tr>
</table>
  </td>

    <td height="20" 
nowrap
bordercolor="#FFFFFF" 
onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'"
title="<%=rs("HyperLink")%>"> 
      <%=rs("Name")%></td>
  </tr>
 </table>

 
<%
 rs.MoveNext
 loop
 rs.Close:set rs=nothing
 cn.Close:set cn=nothing
 function checkid(x)
dim Tempnum
Tempnum=0
for i=1 to len(x)
if mid(x,i,1)="_" then 
Tempnum=Tempnum+1
end if
next
checkid=Tempnum
 end function 


 %>
  <script language=VBS>
sub subtree(Client_para)
if instr(Client_para,"|")=0 then exit sub
Myarray=split(Client_para,"|")
Mytext=eval("R" & Myarray(0) & ".innertext")
select case Mytext
case "+"
document.all.item("R" & Myarray(0)).innertext="-"
for i=1 to ubound(Myarray)
if  eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
document.all.item("T" & Myarray(i)).style.display="block"
end if
if  eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
document.all.item("T" & Myarray(i)).style.display="none"
end if
next
case "-"
document.all.item("R" & Myarray(0)).innertext="+"
for i=1 to ubound(Myarray)
if  eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
document.all.item("T" & Myarray(i)).style.display="none"
if eval("R" & Myarray(i) & ".innertext")="-" then
document.all.item("R" & Myarray(i)).innertext="+"
end if
end if
next
end select
set Myarray=nothing
end sub

Sub document_onselectstart
document.selection.clear
End Sub

if isobject(eval("T1"))  then 
subtree document.all("T1").abbr
subtree document.all("T1").abbr
end if
</script>

</html>




我是学软件工程方向的学生,如果辅修一门别的专业,应该选哪一类的专业有助于以后发展呢?? 累了一周,终于不用去笔试了! 高分速求,OpenGL画3D地图 网通宽带错误691如何解决? 问一个IP访问的问题~ 新手问题! 广电慢录系统 急!求一个j2ee开发中 滑块操作的相关内容 关于变量的传递~ 新手问题! 浏览器问题 查询数据库中重复的记录 request.setAttribute为什么是空指针异常呢?请高人指点 import的疑问 新手求教 编译没问题,可以高诉我怎样让程序工作吗?拜托了谢谢。我真的好需要帮助。Z怎么调用?? UltraVNC的2次开发 C#绘图 优化 directshow播放rmvb的问题 连续打印的问题 C++ 如何判断一个驱动卷是本地硬盘,还是USB接入的移动硬盘? Sqlite 语法出错 VC++2008如何添加组件类? 发现一个Linux牛人的博客 U盘开发和固态硬盘开发的看什么资料 CAsyncSocket::OnReceive问题 非常急~高手来帮帮我啊 perl习题 我总有那种感觉,在未来几十年里,会有惊天动地的巨变发生 [已处理] 技术分不算总分了? C#自定义类型传址引用的问题?