item.asp

来自「商务世纪新闻asp源代码」· ASP 代码 · 共 21 行

<%
PATH_INFO=Request.ServerVariables("PATH_INFO")
%>
<table width="773" height="24" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="center"> 
    <td width="64" <% If Instr(PATH_INFO,"index.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="index.asp">新闻首页</a></td>
    <td width="64" <% If Instr(PATH_INFO,"china.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="china.asp">国内新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"world.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="world.asp">国际新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"sports.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="sports.asp">体育新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"ent.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="ent.asp">娱乐新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"society.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="society.asp">社会新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"finance.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="finance.asp">财经新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"tech.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="tech.asp">科技新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"jczs.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="jczs.asp">军事新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"eladies.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="eladies.asp">女性新闻</a></td>
    <td width="64" <% If Instr(PATH_INFO,"new.asp")>0 then Response.Write "background=img/item1.gif class=c" else Response.Write "background=img/item.gif" %> ><a href="new.asp">滚动新闻</a></td>
    <td width="64" background=img/item.gif ><a href="<%=MyItemUrl%>"><%=MyItem%></a></td>
    <td width="5" ></td>
  </tr>
</table>