doshenpideatilvbgf.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 626 行 · 第 1/2 页
ASP
626 行
<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/shouwen/yishenlist.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/shouwen/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/shouwen/havenoqianyuelist.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/shouwen/haveedqianyuelist.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/shouwen/qianyuelist.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/shouwen/havenobanlilist.asp">待办收文</a></div></td>
<td width="2%"><div align="right"><img src="../../img/txl/hn2_sunny.gif" width="19" height="19"></div></td>
<td width="6%"><div align="right"><a href="../../toall/shouwen/haveedbanlilist.asp">已办收文</a></div></td>
<td width="2%"><div align="right"><img src="../../img/txl/31.gif" width="16" height="16"></div></td>
<td width="6%"><div align="right"><a href="../../toall/shouwen/banlilist.asp">办理列表</a></div></td>
<td width="1%"></td>
</tr>
</table>
</form></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="5" cellspacing="1" bgcolor="#FF0000">
<tr bgcolor="#FFFFFF">
<td width="9%"><div align="right">来文机关：</div></td>
<td width="45%"> <%=(r.Fields.Item("来文机关").Value)%></td>
<td width="46%">来文字号： <%=(r.Fields.Item("来文字号").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">来文日期： </div></td>
<td colspan="2"><div align="left"> <%=(r.Fields.Item("来文日期").Value)%> 收文日期： <%=(r.Fields.Item("收文日期").Value)%> </div> </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>
<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>
<tr bgcolor="#FFFFFF">
<td><div align="right">审稿意见：</div></td>
<td colspan="2"> <%
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<% If Not r2.EOF Or Not r2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><%session("shenpiid")=r("id")%>
<td 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>
审稿人：<a href="#" title="审批人:<%=Recordset2("审批人姓名")%> 部门:<%=Recordset2("审批人部门")%>"><%=(Recordset2.Fields.Item("审批人姓名").Value)%></a> 结果：<span class="style40"><%=(Recordset2.Fields.Item("审稿结果").Value)%></span> <br>
<%imgp=Recordset2.Fields.Item("电子签名").Value%><a href="<%=imgp%>" target="_blank"><img src="<%=imgp%>" width="150" height="80" border="0"></a> <br>
<%if Recordset2("最后更新日期")="2006-10-1" then %>
<%=(Recordset2.Fields.Item("审批时间").Value)%>
<%else%>
<span class="style39">更新：<%=(Recordset2.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
</div></td>
</tr>
</table>
<% End If ' end Not r2.EOF Or NOT r2.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"><%
While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<% If Not r2.EOF Or Not r2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%session("shenpiid")=r("id")%>
<td 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>
签阅人：<a href="#" title="审批人:<%=Recordset1("审批人姓名")%> 部门:<%=Recordset1("审批人部门")%>"><%=(Recordset1.Fields.Item("审批人姓名").Value)%></a> 结果：<span class="style40"><%=(Recordset1.Fields.Item("审稿结果").Value)%></span> <br>
<%imgp=Recordset1.Fields.Item("电子签名").Value%>
<a href="<%=imgp%>" target="_blank"><img src="<%=imgp%>" width="150" height="80" border="0"></a> <br>
<%if Recordset1("最后更新日期")="2006-10-1" then %>
<%=(Recordset1.Fields.Item("审批时间").Value)%>
<%else%>
<span class="style39">更新：<%=(Recordset1.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
</div></td>
</tr>
</table>
<% End If ' end Not r2.EOF Or NOT r2.BOF %>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset1.MoveNext()
Wend
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">办理意见：</div></td>
<td colspan="2"><%
While ((Repeat2__numRows <> 0) AND (NOT Recordset3.EOF))
%>
<% If Not r2.EOF Or Not r2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%session("shenpiid")=r("id")%>
<td 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>
办理人：<a href="#" title="审批人:<%=Recordset3("审批人姓名")%> 部门:<%=Recordset3("审批人部门")%>"><%=(Recordset3.Fields.Item("审批人姓名").Value)%></a> 结果：<span class="style40"><%=(Recordset3.Fields.Item("审稿结果").Value)%></span> <br>
<%imgp=Recordset3.Fields.Item("电子签名").Value%>
<a href="<%=imgp%>" target="_blank"><img src="<%=imgp%>" width="150" height="80" border="0"></a> <br>
<%if Recordset3("最后更新日期")="2006-10-1" then %>
<%=(Recordset3.Fields.Item("审批时间").Value)%>
<%else%>
<span class="style39">更新：<%=(Recordset3.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
</div></td>
</tr>
</table>
<% End If ' end Not r2.EOF Or NOT r2.BOF %>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset3.MoveNext()
Wend
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">备注：</div></td>
<td colspan="2" style="word-break:break-all;Width:fixed"><%=HTMLEncode(b)%></td>
</tr>
<%if not r11.eof or not r11.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 r11.EOF))
%>
<tr>
<%p=r11.Fields.Item("文件路径").Value%>
<td width="532"> <a href="redirect.asp?id=<%=(r11.Fields.Item("id").Value)%>&gwid=<%=(r11.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>" target="_blank"><%=(r11.Fields.Item("文件名").Value)%></a> <span class="style41"><%=(r11.Fields.Item("文件上传时间").Value)%> <%=(r11.Fields.Item("上传人姓名").Value)%>(<%=(r11.Fields.Item("上传人部门").Value)%>)</span><br/></td>
<td width="180"><a href="downfile.asp?id=<%=(r11.Fields.Item("id").Value)%>&gwid=<%=(r11.Fields.Item("邮件编号").Value)%>" >下载</a> <a href="shoucang.asp?id=<%=(r11.Fields.Item("id").Value)%>&gwid=<%=(r11.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>">收藏</a> <a href="zhuanfa.asp?id=<%=(r11.Fields.Item("id").Value)%>">转发</a></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
r11.MoveNext()
Wend
%>
</table>
<%if r.Fields.Item("附件数").Value<>0 then%>
<img src="../../img/common.gif" width="16" height="16"> <span class="style40 style43 style41"><%=(r.Fields.Item("附件数").Value)%>个附件</span>
<%end if%></td>
</tr>
<%end if%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr><%dim bt1,bt
bt=r("事由")
bt1=left(bt,20)
%>
<td bgcolor="#FFFFFF">
<p align="center"><strong><%=(r.Fields.Item("文件标题").Value)%></strong></p>
<br>
时间:<%=(r.Fields.Item("添加时间").Value)%>
<%if r("最后更新日期")<>"2006-10-1" then%>
<span class="style39"> 更新:<%=(r.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
点击:<%=(r.Fields.Item("点击").Value)%>
<hr width="95%" size="1" color="#CCCCCC" height="1">
<strong>
</strong> 拟稿人：<a href="#" title="提交人:<%=r("添加人姓名")%> 部门:<%=r("添加人部门")%>"><%=(r.Fields.Item("发送人").Value)%></a> <%submit=r("添加人姓名")%> <br>
<script src="/toall/js/date.js"></script>
<%if r("是否显示列表")="是" then%>
审批、办理人：<%=geter%><%end if%>
<br>
<%if not r.eof or not r.bof then%>
<%if r1.eof and r1.bof then%>
<form name="form1" method="post" action="shenpiyuiajincbgsghsd.asp?id=<%=request("id")%>&q=<%=request("q")%>"id") onSubmit="return dis()">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="0%"><div align="center"> <span class="style2">
<input name="id" type="hidden" id="id" value="<%=request("id")%>">
<br>
<input name="type" type="hidden" id="type" value="<%=request("q")%>">
<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" valign="middle"> <%if request("q")="" then%>审核结果：
通过
：
<input name="审核结果" type="radio" value="通过" checked>
；不通过：
<input type="radio" name="审核结果" value="不通过">
不置可否：
<input type="radio" name="审核结果" value="不置可否"><%end if%><%if request("q")="banli" then%>
办理结果： 办完 ：
<input name="审核结果" type="radio" onclick="this.form.办完日期.disabled=0" value="办完" checked>
；未办完：
<input type="radio" name="审核结果" value="未办完" onclick="this.form.办完日期.disabled=1;readonly=false">
未办：
<input type="radio" name="审核结果" value="暂未开始办" onclick="this.form.办完日期.disabled=1;readonly=false">
办完日期：
<input name="办完日期" type="text" id="办完日期" value="<%=date()%>" size="10">
<%end if%><%if request("q")="qianyue" then%>
签阅： 同意 ：
<input name="审核结果" type="radio" value="同意" checked>
；不同意：
<input type="radio" name="审核结果" value="不同意">
待商榷：
<input type="radio" name="审核结果" value="待商榷">
<%end if%></td>
</tr>
<tr>
<td height="26" colspan="2" valign="middle"><div align="left"><span class="style2">
<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 r3.eof or not r3.bof then %><input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:document.location.href='adminyijianfcgf.asp?id=<%=request("id")%>&q=<%=request("q")%>'" value= "管理意见" >
<%end if%>
<br>
</div>
</div></td>
</tr>
</table>
<br>
</form> <% End If ' end Not r11.EOF Or NOT r11.BOF %> <% End If ' end Not r11.EOF Or NOT r11.BOF %>
</td>
</tr>
</table>
<p align="center"><a href="getshenlist.asp?id=<%=(r.Fields.Item("id").Value)%>">返回</a> <span class="style2"><a href="doshenpideatilvbgfforpintiny.asp?id=<%=request("id")%>">我要打印</a></span></p>
<%
r.Close()
Set r = Nothing
%>
<%
r11.Close()
Set r11 = Nothing
%>
<%
r3.Close()
Set r3 = Nothing
%>
<%
r2.Close()
Set r2 = Nothing
%>
<%
r21.Close()
Set r21 = Nothing
%>
<%else%>
<script>
{alert("数据不存在或已屏蔽.");history.go(-1)
}
</script>
<%end if%>
<%
getimg.Close()
Set getimg = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?