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>