⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 left.asp

📁 个人相册程序-------------供大家分享
💻 ASP
字号:
<!--#include file="login.asp" -->
<%response.Expires=0
 strSourceFile = Server.MapPath("../menu.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 objXML.load(strSourceFile)
 If objXML.parseError.ErrorCode <> 0 Then 
      objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
 End If
 
  
 function show_node(objRootsite,pitem_name)
 i=0
 for each element in objRootsite.ChildNodes
 item_name=""&pitem_name&"_"&element.nodename&""&i&""
 if element.ChildNodes.length<>0 then
 response.Write "var "&item_name&" =new treeItem("""&server.HTMLEncode(element.getAttributeNode("label").nodevalue)&""");" & vbcrlf
 else
 response.Write "var "&item_name&" =new treeItem("""&server.HTMLEncode(element.getAttributeNode("label").nodevalue)&""",""index.xml.asp?path="&server.URLEncode(element.getAttributeNode("path").nodevalue)&""",""right"");" & vbcrlf
 end if 
 response.Write ""&pitem_name&".add("&item_name&");" & vbcrlf
 show_node element,item_name
 i=i+1
 next
 end function
%>
<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="css/xtree.css">
<script language="JavaScript" src="js/xtree.js"></script>
</head>
<body bgcolor="#FF9900">
<br>
<div id=TREE></div>
<script language="JavaScript">
<!--
var root=new treeItem("飞鸟个人相册V3.0免费版","http://www.zhouhaihe.com/photo/","","",icon.root.src);
var item0 =new treeItem("管理员配置工具");
root.add(item0);

var item01 =new treeItem("修改密码","changepwd.asp","right");
var item02 =new treeItem("分类管理","menu.xml.asp","right");
var item03 =new treeItem("系统参数设置","config.xml.asp","right");
item0.add(item01);
item0.add(item02);
item0.add(item03);
<%

Set objRootsite = objXML.documentElement
 show_node objRootsite,"root" 
%>
var logout =new treeItem("退出系统","logout.asp","_top");
root.add(logout)
root.setup(document.getElementById("TREE"));
//-->
</script>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -