menus.asp

是个不错的文件代码,希望大家好好用,

<!--#include File="Top.asp"-->
<%
'亦副觅 原创3D菜单 www.52.La
Dim NowClass1,nTopID,rs_top,MenuHilite'类ID和类背景色
Redim MenuInfo(9)
MenuInfo(9)="#E7E7E7"	'none
MenuInfo(0)="#634173|天气预报|weather.asp"
MenuInfo(1)="#008EB5|ＩＰ地址|IpAddress.asp"
MenuInfo(2)="#B57100|号码查询|Number.asp"
MenuInfo(3)="#B5005A|生活查询|Lives.asp"
MenuInfo(4)="#109E4A|网站查询|Manage.asp"
MenuInfo(5)="#7300B5|成语翻译|CWord.asp"
Sub Menu(theMenuIDs,ReturnMenuID)
	Dim MenuStr,MenuStr2
	MenuStr=Split(MenuInfo(theMenuIDs),"|")
	MenuStr2=MenuStr(ReturnMenuID)
	Response.Write(MenuStr2)
End Sub
%>
<div align="center">
<table width="778" border=0 cellpadding=0 cellspacing=0>
  <tr>
    <td width="778" height="30" align="center">
      <table width="100%" height="100%" border="0" align="right" cellpadding="0" cellspacing="0" oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
        <tr valign="bottom" style="padding-bottom:2px;">
          <td>&nbsp;</td>
          <td></td>
		
<% if MenuID=0 then %>
          <td width="56" align="center" background='images/bg/menubg_0.gif'><a href="<%Menu 0,2%>"><font color="#FFFFFF"><B><%Menu 0,1%></B></font></a></td>
<% else %>
          <td width="56" align="center" background='images/bg/menubg_0_none.gif'><a href="<%Menu 0,2%>"><span class="Menus"><%Menu 0,1%></span></a></td>
<% end If %>
<% if MenuID=1 then %>
          <td width="85" align="center" background='images/bg/menubg_<%=MenuID%>.gif'><a href="<%Menu 1,2%>"><font color="#FFFFFF"><B><%Menu 1,1%></B></font></a></td>
<% else %>
          <td width="85" align="center" background='images/bg/menubg_none.gif'><a href="<%Menu 1,2%>"><span class="Menus"><%Menu 1,1%></span></a></td>
<% end If %>
<% if MenuID=2 then %>
          <td width="85" align="center" background='images/bg/menubg_<%=MenuID%>.gif'><a href="<%Menu 2,2%>"><font color="#FFFFFF"><B><%Menu 2,1%></B></font></a></td>
<% else %>
          <td width="85" align="center" background='images/bg/menubg_none.gif'><a href="<%Menu 2,2%>"><span class="Menus"><%Menu 2,1%></span></a></td>
<% end If %>
<% if MenuID=3 then %>
          <td width="85" align="center" background='images/bg/menubg_<%=MenuID%>.gif'><a href="<%Menu 3,2%>"><font color="#FFFFFF"><B><%Menu 3,1%></B></font></a></td>
<% else %>
          <td width="85" align="center" background='images/bg/menubg_none.gif'><a href="<%Menu 3,2%>"><span class="Menus"><%Menu 3,1%></span></a></td>
<% end If %>
<% if MenuID=4 then %>
          <td width="85" align="center" background='images/bg/menubg_<%=MenuID%>.gif'><a href="<%Menu 4,2%>"><font color="#FFFFFF"><B><%Menu 4,1%></B></font></a></td>
<% else %>
          <td width="85" align="center" background='images/bg/menubg_none.gif'><a href="<%Menu 4,2%>"><span class="Menus"><%Menu 4,1%></span></a></td>
<% end If %>
<% if MenuID=5 then %>
          <td width="85" align="center" background='images/bg/menubg_<%=MenuID%>.gif'><a href="<%Menu 5,2%>"><font color="#FFFFFF"><B><%Menu 5,1%></B></font></a></td>
<% else %>
          <td width="85" align="center" background='images/bg/menubg_none.gif'><a href="<%Menu 5,2%>"><span class="Menus"><%Menu 5,1%></span></a></td>
<% end If %>


          <td>&nbsp;<!--这一列防止页面错位--></td>
        </tr>
      </table>
	</td>
  </tr>
  <tr>
    <td height="30" bgcolor="<%Menu MenuID,0%>" align="right" style="padding-right:8px;" oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
      <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <tr>
		  <td style="Color:#cccccc;Padding-left:8px;" class="White"><script>showdate();</script></td>
<% Select Case MenuID %>
<% Case 0 %>
          <td class=Orange align="Right" style="padding-left:10px;">&nbsp;</td>
		  <td class=Orange align="Right" style="padding-right:10px;" width="200">&nbsp;
		  </td>
<% Case 1 %>
		  <td class=Orange align="Right" style="padding-right:10px;">
	        <a href="IPAddress.asp"><span class="White">[ <strong>IP</strong>地址查询 ]</span></a> | <a href="IP_To_Address.asp"><span class="White">用<strong>IP</strong>查真实地址</span></a> | <a href="Address_To_IP.asp"><span class="White">用地址查相应<strong>IP</strong></span></a>
		  </td>
<% Case 2 %>
		  <td class=Orange align="Right" style="padding-right:10px;">
	        <a href="Number.asp"><span class="White">各位号码查询首页</span></a> | <a href="Number_Mobile.asp"><span class="White">手机号码归属地</span></a> | <a href="Number_IDCode.asp"><span class="White">身份证号码查询</span></a>
		  </td>
<% Case 3 %>
		  <td class=Orange align="Right" style="padding-right:10px;">
	        <a href="Lives_ZipCode_Address.asp"><span class="White">邮编、地址 相互查询</span></a> &nbsp;|&nbsp; <a href="Lives_City_Area.asp"><span class="White">区号、城市 相互查询</span></a> &nbsp;|&nbsp; <a href="Lives_Railroad_Train.asp"><span class="White">火车时刻、车次、车站 相互查询</span></a>
		  </td>
<% Case 4 %>
          <td class=Orange align="Right" style="Color:#FFCC22;padding-left:10px;">&nbsp;</td>
		  <td class=Orange align="Right" style="Color:#FFCC22;padding-right:10px;" width="200">&nbsp;
	        </td>
<% Case 5 %>
          <td class=Orange align="Right" style="padding-left:10px;">&nbsp;</td>
		  <td class=Orange align="Right" style="padding-right:10px;" width="200">&nbsp;
	        </td>
<% Case 6 %>
          <td class=Orange align="Right" style="padding-left:10px;">&nbsp;</td>
		  <td class=Orange align="Right" style="padding-right:10px;" width="200">&nbsp;
	        </td>
<% Case Else %>
          <td class=Orange align="Right" style="padding-left:10px;">&nbsp;</td>
		  <td class=Orange align="Right" style="padding-right:10px;" width="200">&nbsp;
	        </td>
<% End Select %>
        </tr>
      </table>
	</td>
  </tr>
</table>
</div>