mod_menu.asp

来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 32 行

<%
'获取当前文件名
Dim thisfileName,thispostion 
thisfileName = Request.ServerVariables("script_name")
thispostion = InstrRev(thisfileName,"/")+1 
thisfileName = Mid(thisfileName,thispostion)
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760">
  <tr>
    <td align="center" bgcolor="#88ccff" height="8"></td>
  </tr>
  <tr>
    <td align="right" bgcolor="#E7F4F8">
    
<table border="0" cellpadding="0" style="border-collapse: collapse" width="500" height="40">
  <tr>
    <td onMouseOver='this.style.backgroundColor="#88ccff"' onMouseOut='this.style.backgroundColor=""' align="center" width="100" <%if thisfilename="mod_info.asp" then response.write " bgcolor='#88ccff'"%>>
	<a class="addmenu" href="mod_info.asp?id=<%=id%>">修改资讯</a></td>
    <td onMouseOver='this.style.backgroundColor="#88ccff"' onMouseOut='this.style.backgroundColor=""' align="center" width="100" <%if thisfilename="mod_info_pl.asp" then response.write " bgcolor='#88ccff'"%>>
    <a class="addmenu" href="mod_info_pl.asp?id=<%=id%>">资讯评论管理</a></td>
    <td onMouseOver='this.style.backgroundColor="#88ccff"' onMouseOut='this.style.backgroundColor=""' align="center" width="100">　</td>
    <td onMouseOver='this.style.backgroundColor="#88ccff"' onMouseOut='this.style.backgroundColor=""' align="center" width="100">　</td>
    <td onMouseOver='this.style.backgroundColor="#88ccff"' onMouseOut='this.style.backgroundColor=""' align="center" width="100">　</td>
  </tr>
</table>

    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#88ccff" height="8"></td>
  </tr>
</table>