economiclaw_menushow.asp

OFFICE办公自动化

<%
'==========================================================================================
' 定义弹出窗口
'==========================================================================================
Function AlertBack(AlertStr,BackNum) '后退到上一页
  Response.Write "<script>" 
  Response.Write "alert('"&AlertStr&"');" 
  Response.Write "history.go(-"&BackNum&")" 
  Response.Write "</script>" 
  Response.End 
End Function

Function AlertUrl(AlertStr,Url) '跳转到指定页面
 Response.Write "<script>" 
 Response.Write "alert('"&AlertStr&"');" 
 Response.Write "location.href='"&Url&"';" 
 Response.Write "</script>" 
 Response.end 
End Function

Function GoBack(Str,AlertStr) '为空时后退
 If Str="" Then 
  Response.Write "<script>" 
  Response.Write "alert('"&AlertStr&"');" 
  Response.Write "history.go(-1)" 
  Response.Write "</script>" 
  Response.End 
 Else
  GoBack=Str
 End If
End Function

%>
<%
Sub EconomicLawmenu(MenuTitle)
if table="EconomicLaw_reg" then
bkupid=pid
else
bkupid=HtmlOut(GetTableValue(table,"bkupid","id",pid))
end if 
%>
<div class="noprint">
<table border="0" width="100%" cellpadding="1" cellspacing="1" class=tab>
  <tr>
    <td align="center" bgcolor="<%if MenuTitle="立销案审批表" then %>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td1" nowrap>
      <a href="EconomicLaw_reg_show.asp?id=<%=HtmlOut(GetTableValue("EconomicLaw_reg","id","id",bkupid))%>"
      <%if MenuTitle<>"立销案审批表" then%> onMouseOver="td1.bgColor='#F8F8F8'" onMouseOut="td1.bgColor='#FFFFFF'"<%end if%>>
      立销案审批表</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="行政处罚案件有关事项审批表" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td2" nowrap>
      <a href="EconomicLaw_sp_show.asp?id=<%=HtmlOut(GetTableValue("EconomicLaw_sp","id","bkupid",bkupid))%>"
      <%if MenuTitle<>"行政处罚案件有关事项审批表" then%> onMouseOver="td2.bgColor='#F8F8F8'" onMouseOut="td2.bgColor='#FFFFFF'"<%end if%>>
      行政处罚案件有关事项审批表</a>
    </td>
	<td align="center" bgcolor="<%if MenuTitle="行政处罚建议审批表" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td3" nowrap>
      <a href="EconomicLaw_sp_show2.asp?id=<%=HtmlOut(GetTableValue("EconomicLaw_sp2","id","bkupid",bkupid))%>"
      <%if MenuTitle<>"行政处罚建议审批表" then%> onMouseOver="td3.bgColor='#F8F8F8'" onMouseOut="td3.bgColor='#FFFFFF'"<%end if%>>
     行政处罚建议审批表</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="行政处罚书面告知书" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td3" nowrap>
      <a href="EconomicLaw_SP_show21.asp?id=<%=HtmlOut(GetTableValue("EconomicLaw_sp2","id","bkupid",bkupid))%>"
      <%if MenuTitle<>"行政处罚书面告知书" then%> onMouseOver="td3.bgColor='#F8F8F8'" onMouseOut="td3.bgColor='#FFFFFF'"<%end if%>>
     行政处罚书面告知书</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="行政处罚决定审批表" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td4" nowrap>
      <a href="EconomicLaw_jys_show.asp?id=<%=HtmlOut(GetTableValue("EconomicLaw_jys","id","bkupid",bkupid))%>"
      <%if MenuTitle<>"行政处罚决定审批表" then%> onMouseOver="td4.bgColor='#F8F8F8'" onMouseOut="td4.bgColor='#FFFFFF'"<%end if%>>
      行政处罚决定审批表</a>
    </td>
  </tr>
</table>
<hr width="100%" size=1 color="#000000">
</div>
<table border="0" cellspacing='0' cellpadding='4' width="100%" class="noprint" style="border-bottom: 1 dotted #808080">
  <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%>