inc_menu.asp

ASP编写的网站

<%
'**************************************
'**    Inc_menu.asp
'**
'** 文件说明：留言本导航栏
'** 修改日期：2004-11-12
'** 作者：HACKer007
'** Email：[e-mail]
'**************************************
%>

<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%" align="right" height="36" bgcolor='#7F7F7F'><IMG SRC="images/blank.gif" WIDTH="100" HEIGHT="36"></td>
  </tr>
  <tr>
    <td id="menu1" width="100%" align="right" height="25"
  <%if pagename="查看留言" then%>
  bgcolor='<%=maincolor%>'
  <%else%>
  onMouseOver="document.all.menu1.bgColor='<%=maincolor%>'" onMouseOut="document.all.menu1.bgColor='#7F7F7F'"
  <%end if%>
  ><a href="Index.asp"><B>查看留言</B></a></td>
  </tr>
  <tr>
    <td id="menu2" width="100%" align="right" height="25"
  <%if pagename="写留言" then%>
  bgcolor='<%=maincolor%>'
  <%else%>
  onMouseOver="document.all.menu2.bgColor='<%=maincolor%>'" onMouseOut="document.all.menu2.bgColor='#7F7F7F'"
  <%end if%>
  ><a href="New.asp"><B>写留言</B></a></td>
  </tr>
  <tr>
    <td id="menu3" width="100%" align="right" height="25" 
  <%if pagename="搜索留言" or pagename="搜索结果" then%>
  bgcolor='<%=maincolor%>'
  <%else%>
  onMouseOver="document.all.menu3.bgColor='<%=maincolor%>'" onMouseOut="document.all.menu3.bgColor='#7F7F7F'"
  <%end if%>
    ><a href="Search.asp?act=fillform"><B>搜索留言</B></a></td>
  </tr><tr>
    <td id="menu4" width="100%" align="right" height="25"
  <%if pagename="帮助" then%>
  bgcolor='<%=maincolor%>'
  <%else%>
  onMouseOver="document.all.menu4.bgColor='<%=maincolor%>'" onMouseOut="document.all.menu4.bgColor='#7F7F7F'"
  <%end if%>
  ><a href="Help.asp"><B>帮助</B></a></td>
  </tr>
</table>