doshenpideatilvbgf.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 433 行 · 第 1/2 页

return false
}
return true
}
//-->
</SCRIPT>

<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="20%"><div align="right">发文：</div></td>
    <td width="3%"><div align="right"><img src="../../img/txl/29.gif" width="16" height="16"></div></td>
    <td width="7%"><div align="right"><a href="../../toall/fawen/sendgwfoxz.asp">发文拟 稿</a></div></td>
    <td width="3%"><div align="right"><img src="../../img/txl/28.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/sentshengqinglistfsdghs.asp">拟稿记录</a></div></td>
    <td width="2%"><div align="right"><img src="../../img/txl/15.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/daishenfawen.asp">待审发文</a></div></td>
    <td width="3%"><div align="right"><img src="../../img/txl/26.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/yishenshenlist.asp">已审收文</a></div></td>
    <td width="3%"><div align="right"><img src="../../img/txl/From.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/getshenlist.asp">审稿列表</a></div></td>
    <td width="3%"><div align="right"><img src="../../img/txl/12.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/daiqianfawen.asp">待签发文</a> <span class="style41"></span></div></td>
    <td width="3%"><div align="right"><img src="../../img/txl/1.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/yiqianqianfawen.asp">已签发文</a></div></td>
    <td width="2%"><div align="right"><img src="../../img/txl/16.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/qianyuefawen.asp">签阅发文</a></div></td>
    <td width="2%"><div align="right"><img src="../../img/txl/24.gif" width="16" height="16"></div></td>
    <td width="6%"><div align="right"><a href="../../toall/fawen/updatimgpath.asp">上传签名</a></div></td>
    <td width="1%"></td>
  </tr>
</table>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="6" height="20"><img src="/img/bbs/leftlin1red.gif" width="6" height="20"></td>
    <td width="936" height="20" bgcolor="#FF3333"><div align="center" class="style38"><span class="style5"><span class="style13 style5 style6"><span class="style36"> 发 文 审 稿 </span></span></span></div></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><form action="" method="post" enctype="multipart/form-data" name="submitinput" id="submitinput">
        <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FF0000">
          <tr bgcolor="#FFFFFF">
            <td width="10%"><div align="right">文件标题：</div></td>
            <td width="42%"><%=(r.Fields.Item("文件标题").Value)%>　 </td>
            <td width="48%"> 编号：<%=(r.Fields.Item("编号").Value)%> 　 </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">机密程度： </div></td>
            <td><%=(r.Fields.Item("机密程度").Value)%> 　　　　　　印发日期：<%=(r.Fields.Item("印发日期").Value)%> 　　　　　　　　</td>
            <td> 共印份数：<%=(r.Fields.Item("共印份数").Value)%> 份</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">主送机关：</div></td>
            <td><%=(r.Fields.Item("主送机关").Value)%></td>
            <td>抄送机关： <%=(r.Fields.Item("主送机关").Value)%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">主题词：</div></td>
            <td><%=(r.Fields.Item("主题词").Value)%></td>
            <td>&nbsp;</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">打字人：</div></td>
            <td><%=(r.Fields.Item("打字人").Value)%></td>
            <td>校对人： <%=(r.Fields.Item("校对人").Value)%> </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">发文内容：</div></td>
            <td colspan="2" valign="baseline" style="word-break:break-all;Width:fixed">              <%=(r.Fields.Item("内容").Value)%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">意　见：</div></td>
            <td colspan="2" valign="baseline"><% 
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) 
%>
      <% If Not Recordset2.EOF Or Not Recordset2.BOF Then %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr><%session("shenpiid")=r("id")%>
          <td style="word-break:break-all;Width:fixed">&nbsp;
            <hr width="95%" size="1" color="#999999" height="1">          <%=HTMLEncode(Recordset2.Fields.Item("审批意见").Value)%><br>
        　　　提交：<a href="#" title="审批人:<%=Recordset2("审批人姓名")%>&nbsp;&nbsp;部门:<%=Recordset2("审批人部门")%>"><%=(Recordset2.Fields.Item("审批人姓名").Value)%></a>    结果： <span class="style42"><%=Recordset2.Fields.Item("审批签阅结果").Value%></span>        <%imgp=Recordset2.Fields.Item("电子签名").Value%> 
        　　　　　　　　　　　　　　　　　　　　　　　　　<a href="<%=imgp%>" target="_blank"><img src="<%=imgp%>" width="150" height="80" border="0"></a><br>
<br>
        　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
        <%if Recordset2("最后更新日期")="2006-10-1" then %><%=(Recordset2.Fields.Item("审批时间").Value)%><%else%>
        <span class="style39">更新：<%=(Recordset2.Fields.Item("最后更新时间").Value)%></span>
        <%=(Recordset2.Fields.Item("审批时间").Value)%>
        <%end if%></td>
        </tr>
      </table>
      <% End If ' end Not Recordset2.EOF Or NOT Recordset2.BOF %>
      <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  Recordset2.MoveNext()
Wend
%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">备 注：</div></td>
            <td colspan="2" style="word-break:break-all;Width:fixed"><%=HTMLEncode(r.Fields.Item("备注").Value)%></td>
          </tr>
          <% If Not Recordset11.EOF Or Not Recordset11.BOF Then %>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">附件：</div></td>
            <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset11.EOF)) 
%>
                <tr>
                  <%p=Recordset11.Fields.Item("文件路径").Value%>
                  <td width="255">&nbsp;<a href="redirect.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>" target="_blank"><%=(Recordset11.Fields.Item("文件名").Value)%></a>　<span class="style41"><a href="downfile.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>" >下载</a></span></td>
                </tr>
                <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset11.MoveNext()
Wend
%>
            </table>
           </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">会签：</div></td>
            <td colspan="2"><%=(r.Fields.Item("签阅人").Value)%>　已签：</td>
          </tr>
          <% End If ' end Not Recordset111.EOF Or NOT Recordset111.BOF %>

        </table>
    </form></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF3333">
  <tr><%dim bt
bt=r("文件标题")%>
    <td bgcolor="#FFFFFF">
<p align="center"><strong><%=(r.Fields.Item("文件标题").Value)%></strong>　　　　　　　　　 　　　　　　　　　　　　　  </p>
        <div align="right">
          <%if r("最后更新日期")="2006-10-1" then%>
提交时间:<%=(r.Fields.Item("添加时间").Value)%>
<%else%>
<span class="style39">最后更新:<%=(r.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
　 点击:<%=(r.Fields.Item("点击").Value)%>
        </div>
        <hr width="95%" size="1" color="#999999" height="1">      
        <strong>
        </strong>&nbsp;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&nbsp;&nbsp; 　申请人：<a href="#" title="提交人:<%=r("添加人姓名")%> &nbsp;部门:<%=r("添加人部门")%>"><%=(r.Fields.Item("发送人").Value)%></a>      <%submit=r("添加人姓名")%>      <br>
      　　
		  　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　
          <%if r("是否显示列表")="是" then%>
       &nbsp;审批人：<%=(r.Fields.Item("接收人").Value)%><%end if%>
      <form name="form1" method="post" action="shenpiyuiajincbgsghsd.asp?id=<%=r("id")%>"id") onSubmit="return dis()">
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td colspan="2"><div align="right"></div></td>
          </tr>
          <tr>
            <td width="0%"><div align="center"> <span class="style2"><br>
                      <br>
            </span></div></td>
            <td width="90%"><div align="left">
                <textarea name="yijian" cols="80" rows="10" id="yijian"></textarea>
            </div></td>
          </tr>
          <tr>
            <td height="26" colspan="2"> 　　　　　　　　              审核结果： 通过 ：
                <input name="审核结果" type="radio" value="通过" checked>
；不通过：
<input type="radio" name="审核结果" value="不通过">
不置可否：
<input type="radio" name="审核结果" value="不置可否"></td>
          </tr>
          <tr>
            <td height="26" colspan="2"><div align="center">
          <input name="submit" type=submit id="submit" style="FONT-SIZE: 12px; HEIGHT: 27px" onClick='return check();'  value= "审批意见">　
          <input name="重置" type=reset style="FONT-SIZE: 12px; HEIGHT: 27px"  value= " 清 空 " >　
          <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"   onClick="javascript:history.go(-1)" value= " 返 回 " >
          <%if not Recordset3.eof or not Recordset3.bof then %>
          <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"  onClick="javascript:document.location.href='adminyijianfcgf.asp?ID=<%=request("ID")%>'" value= "管理意见" >
          <%end if%>
          <a href="doshenpideatilvbgfforprint.asp?id=<%=request("id")%>">我要打印</a> </span></div></td>
          </tr>
        </table>
      </form>
    </td></tr>
</table>
<p align="center"><a href="getshenlist.asp?id=<%=(r.Fields.Item("id").Value)%>">返回</a></p>



<%
r.Close()
Set r = Nothing
%>
<%
Recordset11.Close()
Set Recordset11 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>

<%else%>
<script>
{alert("数据不存在.");history.go(-1)
}
</script>

<%end if%>