asp超牛逼的top页面

<%
Str=Request.ServerVariables("PATH_INFO")  
  Str1=Mid(Str,InstrRev(Str,"/")+1)  
  '若有参数,还须继续处理  
%>
<div id="header">
 <ul>
  <li class="home"><a href="index.asp"<%If Str1="index.asp" then%> class="hover"<%End if%>>首页</a></li>
  <li><a href="about.asp"<%If Str1="about.asp" then%> class="hover"<%End if%>>一线是谁</a></li>
  <li><a href="technology.asp"<%If Str1="technology.asp" then%> class="hover"<%End if%>>方法技术</a></li>
  <li><a href="quality.asp"<%If Str1="quality.asp" then%> class="hover"<%End if%>>质量控制</a></li>
  <li><a href="services.asp"<%If Str1="services.asp" then%> class="hover"<%End if%>>服务内容</a></li>
  <li><a href="client.asp"<%If Str1="client.asp" then%> class="hover"<%End if%>>一线客户</a></li>
  <li><a href="report.asp"<%If Str1="report.asp" then%> class="hover"<%End if%>>研究报告</a></li>
  <li><a href="view.asp"<%If Str1="view.asp" then%> class="hover"<%End if%>>一线观点</a></li>
  <li class="contact"><a href="cantact.asp"<%If Str1="cantact.asp" then%> class="hover"<%End if%>>联系我们</a></li>
 </ul>
</div>
<div id="banner"> 
</div>

转载于:https://www.cnblogs.com/lauplay/archive/2012/12/08/2809207.html