economiclaw_menu.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 45 行

<%
function display(n)
if n=1 then 
	display="style='display:none;'"
else
	display=""
end if
end function
%>

<%Sub EconomicLawMenu(MenuTitle,num)%>
<div class="noprint">
<%if MenuTitle="案件登记" then%>
<table border=0 cellspacing="0" cellpadding="0">
  <tr>
    <td><img border="0" src="../images/icon_menu.gif" align="left"><a href="EconomicLaw_reg.asp">未提交案件登记列表</a> &nbsp;</td>
	<td <%=display(0)%>><img border="0" src="../images/icon_menu.gif" align="left"><a href="EconomicLaw_reg1.asp">已提交案件列表</a> &nbsp;</td>
	<td <%=display(0)%>><img border="0" src="../images/icon_menu.gif" align="left"><a href="EconomicLaw_reg_edit.asp">录入案件登记</a> &nbsp;</td>
    <td <%=display(1)%>><img border="0" src="../images/icon_menu.gif" align="left"><a href="EconomicLaw_reg_search.asp">查询案件登记</a> &nbsp;</td>
    <td <%=display(1)%>><a href="EconomicLaw_reg.asp?zt_lxa=0"><img border="0" src="../images/icon_menu.gif" align="left">未提交案件列表</a></td>
  </tr>
</table>
<%end if%>
</div>
<table border="0" cellspacing='0' cellpadding='4' width="100%" class="noprint" style="border-bottom: 1 dotted #808080" <%=display(num)%>>
  <tr>
    <td nowrap>
      <img src="../images/icon_title.gif" align="absMiddle"> <b><%=MenuTitle%></b></td>
    <td width="85" nowrap>
      <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" > </object>
      <img src="../images/PageSetup.gif" align="absMiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(8,1);return false">
        页面设置</a>
    </td>
    <td width="85" nowrap>
      <img src="../images/print.gif" align="absMiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(7,1);return false">
        打印预览</a>
    </td>
    <td width="85" nowrap>
      <img src="../images/icon_close.gif" align="absMiddle"> <a href="javascript:window.close()">
        关闭窗口</a>
    </td>
  </tr>
</table>
<br>
<%End Sub%>