toper.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<P align=center><BR><IMG src="img/logo.gif" width="228" height="97"> <BR>
<%=NetName%>   QQ群：6779029<BR><BR></P>
<P align=center></P>
<%
'on error resume next
Dim TopMenu
Dim TopMenuArr
TopMenu=request.ServerVariables("SCRIPT_NAME")
TopMenuArr=Split(TopMenu,"/")
TopMenu=TopMenuArr(UBound(TopMenuArr))

Function GetBgColor(MenuName)
	if MenuName=TopMenu then
		GetBgColor="#cccccc"
	else
		GetBgColor=""
	end if
End Function

Function GetTopMenu(MenuName)
	if MenuName<>TopMenu then
		GetTopMenu="onMouseOver=""this.bgColor='#eeeeee';"" onClick=""g('"&MenuName&"')"" onmouseout=""this.bgColor='#ffffff';"""
	else
		GetTopMenu="bgColor=#0000ff"
	end if
End Function

Function GetTopMenuStyle(MenuName)
	if MenuName<>TopMenu then
		GetTopMenuStyle=""
	else
		GetTopMenuStyle="font-weight: bold;color: #FFFFFF;"
	end if
End Function
%><TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=120 height=18>&nbsp;</TD>
    <TD <%=GetTopMenu("index.asp")%> vAlign=bottom align=middle width=85>
	<A href="index.asp"><span style="<%=GetTopMenuStyle("index.asp")%>">首 页</span></A> </TD>
    <TD <%=GetTopMenu("reg.asp")%> vAlign=bottom align=middle width=85>
	<A href="reg.asp"><span style="<%=GetTopMenuStyle("reg.asp")%>">申 请</span></A> </TD>
    <TD <%=GetTopMenu("login.asp")%> vAlign=bottom align=middle width=85>
	<A href="login.asp"><span style="<%=GetTopMenuStyle("login.asp")%>">登 录</span></A> </TD>
    <TD <%=GetTopMenu("top.asp")%> vAlign=bottom align=middle width=1>
	<A href="top.asp"><span style="<%=GetTopMenuStyle("top.asp")%>"></span></A> </TD>
	<TD <%=GetTopMenu("toll.asp")%> vAlign=bottom align=middle width=85>
	<A href="toll.asp"><span style="<%=GetTopMenuStyle("toll.asp")%>">交易</span></A> </TD>
    <TD <%=GetTopMenu("news.asp")%> vAlign=bottom align=middle width=85>
	<A  href="news.asp"><span style="<%=GetTopMenuStyle("news.asp")%>">支付名单</span></A> </TD>
    <TD <%=GetTopMenu("help.asp")%> vAlign=bottom align=middle width=85>
	<A href="help.asp"><span style="<%=GetTopMenuStyle("help.asp")%>">帮 助</span></A> </TD>
    <TD width=120>&nbsp; </TD></TR>
  <TR>
    <TD bgColor=#0033cc height=1></TD>
    <TD bgColor=#0033cc colSpan=7></TD>
    <TD bgColor=#0033cc></TD></TR></TBODY></TABLE>