client_menu.asp

OFFICE办公自动化

<%Sub ClientMenu(MenuTitle)%>
<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="ClientBase_show.asp?cid=<%=cid%>"
      <%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="td1" nowrap>
      <a href="Client_Fee_show.asp?cid=<%=cid%>"
      <%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="td3" nowrap>
      <a href="ClientMark_show.asp?cid=<%=cid%>"
      <%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="Client_Patrol_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"市场巡查记录" then%> onMouseOver="td4.bgColor='#F8F8F8'" onMouseOut="td4.bgColor='#FFFFFF'"<%end if%>>
      市场巡查记录</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="行政处罚记录" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td5" nowrap>
      <a href="Client_Amercement_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"行政处罚记录" then%> onMouseOver="td5.bgColor='#F8F8F8'" onMouseOut="td5.bgColor='#FFFFFF'"<%end if%>>
      行政处罚记录</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="行政告诫记录" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td6" nowrap>
      <a href="Client_Monition_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"行政告诫记录" then%> onMouseOver="td6.bgColor='#F8F8F8'" onMouseOut="td6.bgColor='#FFFFFF'"<%end if%>>
      行政告诫记录</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="荣誉记录" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td7" nowrap>
      <a href="Client_Accolade_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"荣誉记录" then%> onMouseOver="td7.bgColor='#F8F8F8'" onMouseOut="td7.bgColor='#FFFFFF'"<%end if%>>
      荣誉记录</a>
    </td>
    <%jylx=GetTableValue("tbioaClientBase","jylx","id",cid)%>
    <%if jylx=1 then%>
    <td align="center" bgcolor="<%if MenuTitle="农资商品备案" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td8" nowrap>
      <a href="Client_ProductNz_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"农资商品备案" then%> onMouseOver="td8.bgColor='#F8F8F8'" onMouseOut="td8.bgColor='#FFFFFF'"<%end if%>>
      农资商品备案</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="农资质量检测" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td9" nowrap>
      <a href="Client_ProductNzJc_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"农资质量检测" then%> onMouseOver="td9.bgColor='#F8F8F8'" onMouseOut="td9.bgColor='#FFFFFF'"<%end if%>>
      农资质量检测</a>
    </td>
    <%end if%>
    <%if jylx=2 then%>
    <td align="center" bgcolor="<%if MenuTitle="重要食品详备案" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td10" nowrap>
      <a href="Client_ProductSp_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"重要食品详备案" then%> onMouseOver="td10.bgColor='#F8F8F8'" onMouseOut="td10.bgColor='#FFFFFF'"<%end if%>>
      重要食品详备案</a>
    </td>
    <td align="center" bgcolor="<%if MenuTitle="食品质量检测" then%>#F8F8F8<%else%>#FFFFFF<%end if%>" id="td11" nowrap>
      <a href="Client_ProductSpJc_show.asp?cid=<%=cid%>"
      <%if MenuTitle<>"食品质量检测" then%> onMouseOver="td11.bgColor='#F8F8F8'" onMouseOut="td11.bgColor='#FFFFFF'"<%end if%>>
      食品质量检测</a>
    </td>
    <%end if%>
  </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> (字号名称:<%=htmlout(GetTableValue("tbioaClientBase","zhmc","id",cid))%>)
    </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>
<div align="center" class="noscreen"><b><%=MenuTitle%></b> (字号名称:<%=htmlout(GetTableValue("tbioaClientBase","zhmc","id",cid))%>)</div>
<br>
<%End Sub%>