guidangdetail.asp

绿叶oa系统办公自动化 2008.工作日志管理,文件管理

				if(upfj==1) return false;
			}
		}
	}//for
//--------发送附件
document.submitinput.submit()
return false;
}
</script>
<script language="JavaScript">
<!--
function dis(){
document.submitinput.submit.value=' 提交..'
document.submitinput.submit.disabled=true;
return true;
}
function check() {

return true
}
//-->
</SCRIPT>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {
	color: #FFFFFF;
	font-weight: bold;
}
.style2 {font-size: 13px}
.tx {height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #eeeeee; color: #0000FF}
.inputline {	border-top: 1px none #FF0000;
	border-right: 1px none #FF0000;
	border-bottom: 1px solid #999999;
	border-left: 1px none #FF0000;
}
.style41 {color: #FF0000}
.style42 {color: #009933}
.style43 {color: #999999}
.style44 {color: #000000}
-->
</style>
</head>
<div align="center"><script language=VBScript>
function tof_Click()
if document.all("tof").checked Then
    document.all("his").style.display="inline"
Else
    document.all("his").style.display="none"
End IF
end function
</script>
  <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="21"></td>
      <td width="936" height="20" bgcolor="#FF3333"><div align="center" class="style5">收 文 详 细 信 息</div></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FF0000">
    <tr bgcolor="#FFFFFF">
      <td width="10%"><div align="right">来文机关：</div></td>
      <td width="44%">    <%=(r.Fields.Item("来文机关").Value)%></td>
      <td width="46%">来文字号： <%=(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><%shiyou=r.Fields.Item("事由").Value%>
      <td colspan="2"><%=HTMLEncode(shiyou)%></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">拟办意见：</div></td>
      <td colspan="2"><%=HTMLEncode(r.Fields.Item("拟办意见").Value)%></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">审稿意见：</div></td>
      <td colspan="2"> <% 
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) 
%>
    
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr><%session("shenpiid")=r("id")%>
          <td valign="top" style="word-break:break-all;Width:fixed">
            <hr width="95%" size="1" color="#cccccc" height="1">
          
            <div align="left"><%=HTMLEncode(Recordset2.Fields.Item("审批意见").Value)%>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<br>
              　<%=(Recordset2.Fields.Item("审批人姓名").Value)%>(<%=(Recordset2.Fields.Item("审批人部门").Value)%>)　结果：<span class="style42"><%=(Recordset2.Fields.Item("审稿结果").Value)%></span>　　　　　　　　　　　　　　　　　　　</div></td>
          </tr>
        <tr>
          <td valign="top" style="word-break:break-all;Width:fixed"><div align="right"><%=(Recordset2.Fields.Item("审批时间").Value)%>
                <%if Recordset2("最后更新日期")<>"2006-10-1" then %>
                <span class="style39 style41">更新：<%=(Recordset2.Fields.Item("最后更新时间").Value)%></span>
                <%end if%>
            </div></td>
          </tr>
      </table>
     
      <% 
  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"><% 
While ((Repeat3__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <%session("shenpiid")=r("id")%>
            <td valign="top" style="word-break:break-all;Width:fixed"><hr width="95%" size="1" color="#cccccc" height="1">
                <div align="left"><%=HTMLEncode(Recordset1.Fields.Item("审批意见").Value)%>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<br>
        　<%=(Recordset1.Fields.Item("审批人姓名").Value)%>(<%=(Recordset1.Fields.Item("审批人部门").Value)%>)　结果：<span class="style42"><%=(Recordset1.Fields.Item("审稿结果").Value)%></span>　　　　　　　　　　　　　　　　　　　</div></td>
          </tr>
          <tr>
            <td valign="top" style="word-break:break-all;Width:fixed"><div align="right"><%=(Recordset1.Fields.Item("审批时间").Value)%>
                    <%if Recordset1("最后更新日期")<>"2006-10-1" then %>
                    <span class="style39 style41">更新：<%=(Recordset1.Fields.Item("最后更新时间").Value)%></span>
                    <%end if%>
            </div></td>
          </tr>
        </table>
        <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Recordset1.MoveNext()
Wend
%>
</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">办理结果：</div></td>
      <td colspan="2"><% 
While ((Repeat4__numRows <> 0) AND (NOT Recordset3.EOF)) 
%>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <%session("shenpiid")=r("id")%>
            <td valign="top" style="word-break:break-all;Width:fixed"><hr width="95%" size="1" color="#cccccc" height="1">
              <div align="left"><%=HTMLEncode(Recordset3.Fields.Item("审批意见").Value)%>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<br>
          　<%=(Recordset3.Fields.Item("审批人姓名").Value)%>(<%=(Recordset3.Fields.Item("审批人部门").Value)%>)　结果：<span class="style42"><%=(Recordset3.Fields.Item("审稿结果").Value)%></span>　　　　　　　　　　　　　　　　　　　</div></td>
          </tr>
          <tr>
            <td valign="top" style="word-break:break-all;Width:fixed"><div align="right"><%=(Recordset3.Fields.Item("审批时间").Value)%>
                  <%if Recordset3("最后更新日期")<>"2006-10-1" then %>
                  <span class="style39 style41">更新：<%=(Recordset3.Fields.Item("最后更新时间").Value)%></span>
                  <%end if%>
            </div></td>
          </tr>
        </table>
        <% 
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  Recordset3.MoveNext()
Wend
%>
</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">备 注：</div></td>
      <td colspan="2"><%=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="99%" border="0" cellspacing="0" cellpadding="0">
          <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset11.EOF)) 
%><%dim fname
fname=(Recordset11.Fields.Item("文件名").Value)%>
          <tr>
            <%p=Recordset11.Fields.Item("文件路径").Value%>
            <td width="507">&nbsp;<a href="redirect.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>&n=<%=fname%>" target="_blank"><%=fname%></a>　<span class="style43"><%=(Recordset11.Fields.Item("文件上传时间").Value)%>　<%=(Recordset11.Fields.Item("上传人姓名").Value)%>(<%=(Recordset11.Fields.Item("上传人部门").Value)%>)</span></td>
            <td width="162"><a href="downfile.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>" >下载</a> <a href="shoucang.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>">收藏</a>　<a href="zhuanfa.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>">转发</a></td>
          </tr>
          <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset11.MoveNext()
Wend
%><%
kg=r("开关")
%>
      </table><%if r.Fields.Item("附件数").Value<>0 then%>
          <img src="../../img/common.gif" width="16" height="16">          <span class="style40 style43"><%=(r.Fields.Item("附件数").Value)%>个附件</span>
          <%end if%></td>
	  <%end if%>
	  
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">审 稿 人：</div></td>
      <td colspan="2"><%=(r.Fields.Item("审稿人").Value)%> 　　　</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">拟 稿 人：</div></td>
      <td colspan="2"><%=(r.Fields.Item("添加人姓名").Value)%> (<%=(r.Fields.Item("添加人部门").Value)%>)　<%=(r.Fields.Item("添加时间").Value)%></td>
    </tr><%if r("最后更新日期")<>"2006-10-1" then%>
    <tr bgcolor="#FFFFFF">  
      <td><div align="right">最后更新：</div></td>
    <td colspan="2"><span class="style41"><%=(r.Fields.Item("最后更新时间").Value)%></span>　更新人：<%=(r.Fields.Item("最后更新人").Value)%>(<%=(r.Fields.Item("最后更新人部门").Value)%>)</td><%end if%>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">状 态：</div></td>
      <td colspan="2"><table width="95%" height="21" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr bgcolor="#FFFFFF">
          <td>归档：<%=(r.Fields.Item("归档结果").Value)%>
            </td>
          </tr>
      </table>    
      <%dim bz
	  bz=r.Fields.Item("bz").Value%>
        <%if bz<>"" then%> 归档备注：<%=HTMLEncode(bz)%><%else%>
      <%end if %><%if r("归档更新时间")<>"2006-10-1" then%>
        <span class="style41">最后归档更新:<%=r("归档更新时间")%> <span class="style44">归档时间：<%=r("归档时间")%></span></span>
        <%else%>归档时间：<%=r("归档时间")%><%end if%></td>
    </tr>
  </table>
  <p><a href="javascript:history.go(-1)">返回</a> <span class="style2"><a href="javascript:window.print()">我要打印</a></span></p>
</div>
</html>
<%
r.Close()
Set r = Nothing
%>
<%
Recordset11.Close()
Set Recordset11 = Nothing
%>
<%
jimi.Close()
Set jimi = Nothing
%>

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