updateshenpimyfddafornigaoren.asp

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

return false;
}
</script>

<script language="JavaScript">
<!--
function dis(){
document.submitinput.submit.value=' 提交..'
document.submitinput.submit.disabled=true;
return true;
}
function check() {
if (document.submitinput.申请事由.value=="") {
window.alert ("请输入申请事由 ！")
document.submitinput.申请事由.focus()
return false
}
if (document.submitinput.申请人.value=="") {
window.alert ("请输入申请人！")
document.submitinput.申请人.focus()
return false
}
return false
} 
else 
document.submitinput.submit(); 
}
return true
}
//-->
</SCRIPT>

<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {color: #FFFFFF}
.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;
}
.style42 {color: #999999}
body {
	margin-top: 2px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></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><script language=javascript>
function dis(){
document.form1.submit1.value=' 更新..'
document.form1.submit1.disabled=true;
return true;
}
function check() {

if (document.form1.shiyou.value=="") {
 alert("请输入事由！")
 document.form1.shiyou.focus()
 return false;
 }
//-------发送附件
return true;

}
</script></SCRIPT>
  <form name="form1" method="post" action="sentshengqinglistfsdghsforquesry.asp">
    <table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="5%"><div align="right">收文：</div></td>
        <td width="2%"><div align="right"><img src="../../img/txl/29.gif" width="16" height="16"></div></td>
        <td width="6%"><div align="right"><a href="../../toall/shouwen/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/shouwen/sentshengqinglistfsdghs.asp">拟稿记录</a></div></td>
        <td width="3%"><div align="right"><img src="../../img/txl/15.gif" width="16" height="16"></div></td>
        <td width="6%"><div align="right"><a href="../../toall/shouwen/daishenlist.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/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="style42"></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%">&nbsp;</td>
      </tr>
    </table>
  </form>
  <script src="/toall/js/date.js"></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="20"></td>
      <td width="936" height="20" bgcolor="#FF3333"><div align="center"><span class="style5"><span class="style13 style5 style6"><span class="style1 style2 style7 style9">修 改 收 文 </span></span></span></div></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><form action="geterupdateshouwenpostfornigaoren.asp" method="post" enctype="multipart/form-data" name="form1" onSubmit="return dis()">
        <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FF0000">
          <tr bgcolor="#FFFFFF">
            <td width="9%"><div align="right">来文机关：</div></td>
            <td width="44%"><input name="laiwenjiguan" type="text" id="laiwenjiguan" value="<%=(r.Fields.Item("来文机关").Value)%>" size="40" maxlength="50">
      　　　                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         </td>
            <td width="47%">来文字号：
                <input name="laiwenzihao" type="text" id="laiwenzihao" value="<%=(r.Fields.Item("来文字号").Value)%>" size="40" maxlength="50"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">来文日期： </div></td>
            <td> <div align="left">
                  <input name="laiwenriqi" type="text" id="laiwenriqi" value="<%=(r.Fields.Item("来文日期").Value)%>" size="8" readonly="true">
                  <a href="#SelectDate" onClick="SD(this,'document.all.laiwenriqi')"><img border="0" src="/img/date_picker.gif" width="30" height="19"></a> 　　　　　　 　　　　　　　　</div></td>
            <td>收文日期：
              <input name="shouwenriqi" type="text" id="shouwenriqi" value="<%=(r.Fields.Item("收文日期").Value)%>" size="8" readonly="true">
              <a href="#SelectDate" onClick="SD(this,'document.all.shouwenriqi')"><img border="0" src="/img/date_picker.gif" width="30" height="19"></a> </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">事 由：</div></td>
            <td colspan="2"><textarea name="shiyou" cols="80" rows="5" id="shiyou"><%=(r.Fields.Item("事由").Value)%></textarea></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">拟办意见：</div></td>
            <td colspan="2"><textarea name="nibanyijian" cols="80" rows="5" id="nibanyijian"><%=(r.Fields.Item("拟办意见").Value)%></textarea></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">备
              <input name="id" type="hidden" id="id" value="<%=(r.Fields.Item("ID").Value)%>">
              注：</div></td>
            <td colspan="2"><textarea name="beizhu" cols="80" rows="4" id="beizhu"><%=(r.Fields.Item("备注").Value)%></textarea></td>
          </tr>
          <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
          <tr bgcolor="#FFFFFF">
              <td>    <div align="right">附 件：</div></td>
              <td colspan="2"><table width="506" border="0" cellspacing="0" cellpadding="0">
                  <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%> 
                  <%
 dim p,n
		  p=Recordset1.Fields.Item("文件路径").Value
		  n=Recordset1.Fields.Item("文件名").Value
		%>
                  <tr>
                    <td>&nbsp;<a href="redirect.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=(Recordset1.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>" target="_blank"><%=n%></a><span class="style42">&nbsp;&nbsp;<%=(Recordset1.Fields.Item("文件上传时间").Value)%>　<%=(Recordset1.Fields.Item("上传人姓名").Value)%>(<%=(Recordset1.Fields.Item("上传人部门").Value)%>)</span><br/></td>
                    <td width="79">&nbsp;<a href="downfile.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=(Recordset1.Fields.Item("邮件编号").Value)%>" >下载</a> 　<a href="delfileforup.asp?fpath=<%=p%>&fid=<%=(Recordset1.Fields.Item("id").Value)%>&id=<%=(r.Fields.Item("id").Value)%>" onClick="return confirm('您确定要删除 <%=n%> 吗？')">删除</a> </td>
                  </tr>
                  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
              </table>
                　<%if r.Fields.Item("附件数").Value<>0 then%>
          <img src="../../img/common.gif" width="16" height="16">          <span class="style6 style42"><%=(r.Fields.Item("附件数").Value)%>个附件</span>          <%end if%>　　　　　　　　　　　　　　　　　　　　　　　　　　　　<img src="../../img/bbs/del.gif" width="12" height="13"><a href="admin/qingkongnigaofujian.asp?id=<%=(r.Fields.Item("ID").Value)%>" onClick="return confirm('您确定要清空本记录的所有附件吗？')">清空附件</a></td>
          </tr>
          <% End If %>

          <tr bgcolor="#FFFFFF">
            <td><div align="right">添加文件：</div></td>
            <td colspan="2"><span id="idfilespan"></span><a href="javascript:;" name="attach" id="attach" onclick="add();this.childNodes[0].nodeValue='添加附件';" title="如果您要发送多个附件">添加附件</a></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">
                <input name="发送人姓名" type="hidden" id="发送人姓名" value="<%= Session("names") %>">
                <input type="hidden" name="filepath" class="tx" style="width:350" value="../../dataandfiles/files/shouwen" size="20">
                <input type="hidden" name="act" value="upload">
                <input name="发送人帐号" type="hidden" id="发送人帐号" value="<%= Session("userssdfgfhtrh") %>">
            </div></td>
            <td colspan="2">
              <input name="submit1" type=submit id="submit1" 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= " 取 消 " >
          </tr>
        </table>
      </form></td>
    </tr>
  </table>
</div>
</html>
<%
r.Close()
Set r = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<%
jimi.Close()
Set jimi = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>