menu.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<link href="style.css" rel="stylesheet" type="text/css">
<style type=text/css>
body  { 
background-color:#C5D4E0;
font-family: Verdana; 
font-size: 12px;
SCROLLBAR-FACE-COLOR: #8FACC2; 
SCROLLBAR-HIGHLIGHT-COLOR: #8FACC2; 
SCROLLBAR-SHADOW-COLOR: #8FACC2; 
SCROLLBAR-DARKSHADOW-COLOR: #8FACC2; 
SCROLLBAR-3DLIGHT-COLOR: #8FACC2; 
SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #C5D4E0;
margin-top:5;
}
table  { border:0px; }
td  { font:normal 12px Verdana;}
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px Verdana; color:#000000; text-decoration:none; }
a:hover  { color:#FF6600;text-decoration:none; }
.sec_menu  { }
.menu_title  { }
.menu_title span  { position:relative; top:0px; left:8px; color:#000000; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:0px; left:8px; color:#F5F5F5; font-weight:bold; }

.menu  {height:22px;line-height:20px; border: 1px solid #C5D4E0;}/*background-image: url(images/menu_bg.gif);*/
.menu_2  {height:22px;line-height:20px;background-color:#FEFEFE; border: 1px solid #748FB3;}
</style>
  
  <table width="158" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="52" height="38"><img src="images/logo_t.gif" width="52" height="38" /></td>
      <td width="106" valign="bottom"><table width="98%" height="20"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="61%" align="center" class=menu onmouseover=this.className='menu_2'; onmouseout=this.className='menu';><a href="/" target="_top"><strong>返回首页</strong></a></td>
          <td width="35%" align="center" class=menu onmouseover=this.className='menu_2'; onmouseout=this.className='menu';><a href="logout.asp" target="_top"><strong>退出</strong></a></td>
        </tr>
      </table></td>
    </tr>
  </table>
  <br>
  <base target="mainFrame">  
  <%
set doc = Server.CreateObject("Microsoft.XMLDOM")
doc.async=false
doc.load (server.mappath("menu.xml"))
set rootNode = doc.DocumentElement
i = 0
for each child in rootNode.childNodes
	set c1 = rootNode.childnodes.item(i)
	%>
	<table cellpadding=0 cellspacing=0 width=158>
    <tr>      
    <td height=25 class=menu_title onmouseover=this.className='menu_title2' onmouseout=this.className='menu_title' background="images/title_bg_show.gif" id=menuTitle<%=i%> onclick="showmenu_item(<%=i%>)"><span><%=c1.getAttributeNode("title").nodeValue%></span> 
    </td>
    </tr>
    <tr>
      <td style="display:none;" id='menu_item<%=i%>'><div class=sec_menu style="width:158">
          <table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="4"></td>
            </tr><%
	j=0
	for each childNodes in rootNode.childnodes.item(i).childNodes
	set c2 = c1.childnodes.item(j)
	if inStr(c2.getAttributeNode("url").nodeValue,"|") >0 then
		td = "<a href='"&split(c2.getAttributeNode("url").nodeValue,"|")(0)&"' target='mainFrame'>"&split(c2.getAttributeNode("name").nodeValue,"|")(0)&"</a> | "&"<a href='"&split(c2.getAttributeNode("url").nodeValue,"|")(1)&"' target='mainFrame'>"&split(c2.getAttributeNode("name").nodeValue,"|")(1)&"</a>"
	else
		td = "<a href='"&c2.getAttributeNode("url").nodeValue&"' target='mainFrame'>"&c2.getAttributeNode("name").nodeValue&"</a>"
	end if
	%>
            <tr>
              <td class=menu onmouseover=this.className='menu_2' onmouseout=this.className='menu'>&nbsp;<font face="Webdings">4</font>&nbsp;<%=td%></td>
            </tr>
    <%j = j+1
	next%> 
	
	
          </table>
      </div>
          <div  style="width:158">
            <table cellpadding=0 cellspacing=0 align=center width=135>
              <tr>
                <td height=12></td>
              </tr>
            </table>
        </div></td>
    </tr>
  </table></base><%	
	i = i+1
next%>
<table><tr>
              <td class=menu onmouseover=this.className='menu_2' onmouseout=this.className='menu'>&nbsp;<font face="Webdings">4</font>&nbsp;<A href="Z.ASP?admin=admin" target="mainFrame">注册</A></td>
            </tr></table>

<%response.write "<SCRIPT language=javascript1.2>" & vbnewline
response.write "function showmenu_item(sid)" & vbnewline
response.write "{" & vbnewline
response.write "	which = eval('menu_item' + sid);" & vbnewline
response.write "	if (which.style.display == 'none')" & vbnewline
response.write "	{" & vbnewline
response.write "		var j = 0" & vbnewline
response.write "		while(j<"&i&"){" & vbnewline
response.write "			eval('menu_item'+ j +'.style.display=\'none\';');" & vbnewline
response.write "			eval('menuTitle'+ j +'.background=\'images/title_bg_show.gif\';');" & vbnewline
response.write "			j++;" & vbnewline
response.write "		}" & vbnewline
response.write "		eval('menu_item' + sid + '.style.display=\'\';');" & vbnewline
response.write "		eval('menuTitle'+ sid + '.background=\'images/title_bg_hide.gif\';');" & vbnewline
response.write "	}else{" & vbnewline
response.write "		eval('menu_item' + sid + '.style.display=\'none\';');" & vbnewline
response.write "		eval('menuTitle'+ sid + '.background=\'images/title_bg_show.gif\';');" & vbnewline
response.write "	}" & vbnewline
response.write "}" & vbnewline
response.write "</SCRIPT>" & vbnewline
%>
                <br>
                <table width="160" height="70" border="0" align="left" cellpadding="0" cellspacing="0" title="开发：良精科技">
                  <tr>
                    <td height="70" align="center">    <strong>良精网站管理系统</strong><br>
                      <strong>Power By：</strong><a href="http://www.liangjing.net" target="_blank">良精软件</a></td>
                  </tr>
                </table>
</body></html>