doshenpideatilvbgfcopy.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 527 行 · 第 1/2 页
ASP
527 行
<tr bgcolor="#FFFFFF">
<td><div align="right">来文日期： </div></td>
<td><div align="left"> <%=(r.Fields.Item("来文日期").Value)%> 收文日期： <%=(r.Fields.Item("收文日期").Value)%> </div></td>
<td> 办完日期： <%=(r.Fields.Item("办完日期").Value)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">事由：</div></td>
<td colspan="2"><%=HTMLEncode(r.Fields.Item("事由").Value)%></td>
</tr>
<%if request("q")="" then%>
<tr bgcolor="#FFFFFF">
<td><div align="right">审稿意见：</div></td>
<td colspan="2"> <%
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">
<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 Recordset2.EOF Or NOT Recordset2.BOF %>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset2.MoveNext()
Wend
%></td>
</tr>
<%end if%>
<%if request("q")="qianyue" then%>
<tr bgcolor="#FFFFFF">
<td>签阅意见：</td>
<td colspan="2"><%
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">
<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 Recordset2.EOF Or NOT Recordset2.BOF %>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset2.MoveNext()
Wend
%></td>
</tr>
<%end if%>
<%if request("q")="banli" then%>
<tr bgcolor="#FFFFFF">
<td>办理意见：</td>
<td colspan="2"><%
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">
<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 Recordset2.EOF Or NOT Recordset2.BOF %>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset2.MoveNext()
Wend
%></td>
</tr> <%end if%>
<tr bgcolor="#FFFFFF">
<td><div align="right">备注：</div></td>
<td colspan="2"><%=HTMLEncode(r.Fields.Item("备注").Value)%></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></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>
<%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" value="办完" checked>
；未办完：
<input type="radio" name="审核结果" value="未办完">
暂未开始办：
<input type="radio" name="审核结果" value="暂未开始办">
<%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 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%>
<br>
</div>
</span></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
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset21.Close()
Set Recordset21 = Nothing
%>
<%
rS.Close()
Set rS = Nothing
%>
<%else%>
<script>
{alert("数据不存在或已屏蔽.");history.go(-1)
}
</script>
<%end if%>
<%
getimg.Close()
Set getimg = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?