doshenpideatilvbgfcopy.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 459 行 · 第 1/2 页
ASP
459 行
<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="upforsubmitadf.asp" 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)%> 拟稿人：<%=(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> </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"> <%=(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">
<hr width="95%" size="1" color="#5AAE18" height="1">
审批意见：<%=HTMLEncode(Recordset2.Fields.Item("审批意见").Value)%><br>
审批人：<a href="#" title="审批人:<%=Recordset2("审批人姓名")%> 部门:<%=Recordset2("审批人部门")%>"><%=(Recordset2.Fields.Item("审批人姓名").Value)%></a><br>
<%if Recordset2("最后更新日期")="2006-10-1" then %><%=(Recordset2.Fields.Item("审批时间").Value)%><%else%>
<span class="style39">更新：<%=(Recordset2.Fields.Item("最后更新时间").Value)%></span>
<%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"><%=(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="357" border="0" cellspacing="0" cellpadding="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset11.EOF))
%>
<tr>
<%p=Recordset11.Fields.Item("文件路径").Value%>
<td width="255"> <a href="redirect.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>" target="_blank"><%=(Recordset11.Fields.Item("文件名").Value)%></a> <a href="downfile.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>" >下载</a><br/></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset11.MoveNext()
Wend
%>
</table></td>
</tr>
<% End If ' end Not Recordset111.EOF Or NOT Recordset111.BOF %>
<tr bgcolor="#FFFFFF">
<td><div align="right">签 发：</div></td>
<td valign="top" bgcolor="#FFFFFF"><%=(r.Fields.Item("签发").Value)%></td>
<td valign="top" bgcolor="#FFFFFF">审稿人： <%=(r.Fields.Item("审稿人").Value)%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">签发人：</div></td>
<td valign="top" bgcolor="#FFFFFF"><%dim qianfaimg
qianfaimg=r("导入签发图片")
if qianfaimg<>"" then%>
<a href="<%=qianfaimg%>" target="_blank"><img src="<%=qianfaimg%>" width="150" height="80" border="0"></a>
<%else%>
无签名
<%end if%>
</td>
<td valign="middle" bgcolor="#FFFFFF"><table width="275" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="49">审稿人：</td>
<td width="226"><%dim shengaoimg
shengaoimg=r("导入审稿图片")
if shengaoimg<>"" then%>
<a href="<%=shengaoimg%>" target="_blank"><img src="<%=shengaoimg%>" width="150" height="80" border="0"></a>
<%else%>
无签名
<%end if%></td>
</tr>
</table></td>
</tr>
</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="#5AAE18" height="1">
<strong>
</strong> 申请人：<a href="#" title="提交人:<%=r("添加人姓名")%> 部门:<%=r("添加人部门")%>"><%=(r.Fields.Item("发送人").Value)%></a> <%submit=r("添加人姓名")%> <br>
提交时间：<%=(r.Fields.Item("添加时间").Value)%>
<%if r("是否显示列表")="是" then%>
审批人：<%=(r.Fields.Item("接收人").Value)%><%end if%>
<table width="334" border="0" cellspacing="0" cellpadding="0">
<% If Not Recordset11.EOF Or Not Recordset11.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset11.EOF))
%>
<tr>
<td width="301"> <a href="redirect.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>&fpath=<%=(Recordset11.Fields.Item("文件路径").Value)%>" target="_blank"><%=(Recordset11.Fields.Item("文件名").Value)%></a> <br/></td>
<td width="33"><a href="downfile.asp?id=<%=(Recordset11.Fields.Item("id").Value)%>&gwid=<%=(Recordset11.Fields.Item("邮件编号").Value)%>" >下载</a></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset11.MoveNext()
Wend
%>
<% End If ' end Not Recordset11.EOF Or NOT Recordset11.BOF %>
</table>
<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><div align="right">提交方式：</div></td>
<td>签发：
<input name="q" type="radio" value="1" checked>
；审稿：
<input type="radio" name="q" value="2"></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"><div align="center"><span class="style2"> </span> <span class="style2"> <span class="style12"><br>
<span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff>
<input name="submit" type=submit id="submit" style="FONT-SIZE: 12px; HEIGHT: 27px" onClick='return check();' value= "审批意见">
</font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG> </font></strong></font></strong></font></strong> </font></strong></FONT></STRONG> </FONT></STRONG> <STRONG><FONT color=#ffffff> <strong><font color=#ffffff> <STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff>
<input name="重置" type=reset style="FONT-SIZE: 12px; HEIGHT: 27px" value= " 清 空 " >
</font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG>
<input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:history.go(-1)" value= " 返 回 " >
</font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></span></span></span>
<%if not Recordset3.eof or not Recordset3.bof then %>
<span class="style12"><span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff>
<input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:document.location.href='adminyijianfcgf.asp'" value= "管理审批意见" >
</font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></span></span></span>
<%end if%>
</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
%>
<%
Recordset21.Close()
Set Recordset21 = Nothing
%>
<%else%>
<script>
{alert("数据不存在.");history.go(-1)
}
</script>
<%end if%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?