好东东献给大家,无限级菜单函数!!!!!! 帝国cms

帝国论坛 → 技术交流区 → 网络编程 → 好东东献给大家,无限级菜单函数!!!!!!

帝国CMS5.0正式版发布	中客:域名1元,空间10元,随时可退款！	测试：生成20万数据共用107分钟	《帝国下载系统》全面免费
Mysql大数据备份工具下载	帝国软件旗下新站 - 站长工具	1G双线帝国空间+200M数据库=158	帝国CMS教程下载

1/2 1 2 ›› ›|

jukey
用户头衔：版主

精华贴   ：1
发贴数   ：249
经验值   ：1099
注册时间：2003-10-07

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》基础教程下载】 [第 1 楼]

好东东献给大家,无限级菜单函数!!!!!!

<%
Option Explicit
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆程序名称: tree_fun.asp
'◆功能说明: 无限级树结构菜单
'◆编写人: 芮建聪                         编写日期: 2003-12-19
'◆修改人:                               修改日期:
'◆版本: 1.0v
dim tree_basefrm
dim t_path
dim tree_gbase
dim tree_path
dim tree_count
dim jsvn
tree_count=1
Const t_gbase="ftv2"
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆模块名称:Tree
'◆参数说明:t_path javascript函数的路径,t_frame 连接打开显示到目标窗口,
'          如:_parent,_bank,_self,也可以是框架名称
'◆功能说明: 初始化菜单树
'◆编写人: 芮建聪                         编写日期: 2003-12-19
'◆修改人:                               修改日期:
'++++++++++++++++++++++++++++++++++++++++++++++++++++++
function Tree(t_path,t_frame)
tree_path=t_path
tree_basefrm = t_frame
end function

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆模块名称: Open_Tree
'◆功能说明: 初始化树的javascript及显示顶级菜单
'◆参数说明: t_text 顶级菜单名称,t_url 连接文件(可为空),t_frame 连接打开显示到目标窗口,
'          t_gbase 图标文件夹名称
'◆编写人: 芮建聪                         编写日期: 2003-12-19
'◆修改人:                               修改日期:
'++++++++++++++++++++++++++++++++++++++++++++++++++++++
public function Open_Tree(t_text,t_url,t_frame,t_gbase)
dim tree_ftv2blank,tree_ftv2doc,tree_ftv2folderclosed,tree_ftv2folderopen
dim tree_ftv2lastnode,tree_ftv2link,tree_ftv2mlastnode,tree_ftv2mnode
dim tree_ftv2node,tree_ftv2plastnode,tree_ftv2pnode,tree_ftv2vertline
      tree_gbase =t_gbase
      tree_ftv2blank = tree_gbase & "/ftv2blank.gif"
      tree_ftv2doc =tree_gbase & "/ftv2doc.gif"
      tree_ftv2folderclosed =tree_gbase & "/ftv2folderclosed.gif"
      tree_ftv2folderopen =tree_gbase & "/ftv2folderopen.gif"
      tree_ftv2lastnode =tree_gbase & "/ftv2lastnode.gif"
      tree_ftv2link =tree_gbase & "/ftv2link.gif"
      tree_ftv2mlastnode =tree_gbase & "/ftv2mlastnode.gif"
      tree_ftv2mnode =tree_gbase & "/ftv2mnode.gif"
      tree_ftv2node =tree_gbase & "/ftv2node.gif"
      tree_ftv2plastnode =tree_gbase & "/ftv2plastnode.gif"
      tree_ftv2pnode =tree_gbase & "/ftv2pnode.gif"
      tree_ftv2vertline =tree_gbase & "/ftv2vertline.gif"
      if(t_frame="") then
         tree_basefrm =t_frame
      end if
%>
<script>
classPath = <% response.write(chr(34)& tree_path &chr(34)&chr(59))%>
ftv2blank = <% response.write(chr(34)& tree_ftv2blank &chr(34)&chr(59)) %>
ftv2doc = <% response.write(chr(34)& tree_ftv2doc &chr(34)&chr(59)) %>
ftv2folderclosed = <% response.write(chr(34)& tree_ftv2folderclosed &chr(34)&chr(59)) %>
ftv2folderopen = <% response.write(chr(34)& tree_ftv2folderopen &chr(34)&chr(59)) %>
ftv2lastnode = <% response.write(chr(34)& tree_ftv2lastnode &chr(34)&chr(59)) %>
ftv2link = <% response.write(chr(34)& tree_ftv2link &chr(34)&chr(59)) %>
ftv2mlastnode = <% response.write(chr(34)& tree_ftv2mlastnode &chr(34)&chr(59)) %>
ftv2mnode = <% response.write(chr(34)& tree_ftv2mnode &chr(34)&chr(59)) %>
ftv2node = <% response.write(chr(34)& tree_ftv2node &chr(34)&chr(59)) %>
ftv2plastnode = <% response.write(chr(34)& tree_ftv2plastnode &chr(34)&chr(59)) %>
ftv2pnode = <% response.write(chr(34)& tree_ftv2pnode &chr(34)&chr(59)) %>
ftv2vertline = <% response.write(chr(34)& tree_ftv2vertline &chr(34)&chr(59)) %>
basefrm = <% response.write(chr(34)& tree_basefrm &chr(34)&chr(59)) %>
</script>
<script src="<%  Response.write(tree_path  &"/tree.js") %>" type="text/javascript">
</script>
<script>
<%
jsvn = "foldersTree"
Response.Write (jsvn &"=gFld("&chr(34)&t_text&chr(34)&","&chr(34)&t_url&chr(34)&")"&chr(59))
Open_Tree=jsvn
end function

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆模块名称: add_folder
'◆功能说明: 添加父菜单
'◆参数说明: t_parent 上一级目录参数,t_text 父菜单名称,t_url 连接文件(可为空)
'◆编写人: 芮建聪                         编写日期: 2003-12-19
'◆修改人:                               修改日期:
'++++++++++++++++++++++++++++++++++++++++++++++++++++++
function add_folder (t_parent, t_text, t_url)
   jsvn = "aux" & tree_count
   tree_count=tree_count+1
   Response.Write(jsvn &"= insFld("&t_parent&", gFld ("&chr(34)&t_text&chr(34)&", "&chr(34)&t_url&chr(34)&"))"&chr(59))
   add_folder=jsvn
end function

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆模块名称: add_document
'◆功能说明: 添加子菜单
'◆参数说明: t_parent 上一级目录参数,t_text 子菜单名称,t_url 连接文件(可为空)
'◆编写人: 芮建聪                         编写日期: 2003-12-19
'◆修改人:                               修改日期:
'++++++++++++++++++++++++++++++++++++++++++++++++++++++
function add_document (t_parent, t_text, t_url)
   Response.Write("insDoc("&t_parent&", gLnk ("&t_parent&", "&chr(34)&t_text&chr(34)&", "&chr(34)&t_url&chr(34)&"))"&chr(59))
end function

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆模块名称: close_tree
'◆功能说明: 结束菜单创建
'◆参数说明: 无
'◆编写人: 芮建聪                         编写日期: 2003-12-19
'◆修改人:                               修改日期:
'++++++++++++++++++++++++++++++++++++++++++++++++++++++
function close_tree ( )
Response.Write("initializeDocument();</script>")
end function

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'                      示                         例
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

dim t_text,t_url,t_frame,t_parent,t_sub,t_sub1
t_text="单位类别"
t_url=""
t_frame="main"
call Tree("tree",t_frame)
t_parent=Open_Tree(t_text,t_url,t_frame,t_gbase)
t_sub=add_folder(t_parent,"一级目录","")
t_sub1=add_folder(t_sub,"一级ads","")
call add_document(t_sub,"二级目录1","as.asp")
call add_document(t_sub,"二级目录2","1.asp")
call add_document(t_sub1,"一级2323","")
t_sub=add_folder(t_parent,"一级目录1","")
call close_tree()
%>

[该贴被修改 2 次，最后修改时间 2003-12-22 00:37:03 ]