📄 updateshenpimyfdda111.asp
字号:
fileform.elements[fileid].focus();
upfj=1;
return false; //上传附件失败，返回起草公文页面
}
else{
result=form.web.sendurl(NameUrl,PsoFile,PsoType)
}
}
//------------------end function-------------------------------------------------------
function checkform() {
upfj=0;
//-------发送附件
var fileform = document.submitinput; //调用上传附件函数
for ( var i= 0 ; i <fileform.elements.length ; i ++ ) {
if ( fileform.elements[i].type == "file" && fileform.elements[i].name !="file" ) {
if (fileform.elements[i].value!="") {
sendfj(i);
if(upfj==1) return false;
}
}
}//for
//--------发送附件
document.submitinput.submit()
return false;
}
</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;
}
.style36 { font-size: 13px;
color: #FFFFFF;
font-weight: bold;
}
.style40 {color: #FFFFFF;
font-size: 14px;
font-weight: bold;
}
-->
</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><script language=javascript>
function dis(){
document.form1.submit1.value=' 发送..'
document.form1.submit1.disabled=true;
return true;
}
function check() {
if (document.form1.事由.value=="") {
alert("请输入事由！")
document.form1.事由.focus()
return false;
}
//-------发送附件
return true;
}
</script></SCRIPT><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="upforsubmitadf.asp" method="post" enctype="multipart/form-data" name="form1">
<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%"><input name="来文机关" type="text" id="来文机关" value="<%=(r.Fields.Item("来文机关").Value)%>" size="40" maxlength="50">
</td>
<td width="46%">来文字号：
<input name="来文字号" type="text" id="来文字号" 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="来文日期" type="text" id="来文日期" value="<%=(r.Fields.Item("来文日期").Value)%>" size="8" readonly="true">
<a href="#SelectDate" onClick="SD(this,'document.all.来文日期')"><img border="0" src="/img/date_picker.gif" width="30" height="19"></a> </div></td>
<td>收文日期：
<input name="收文日期" type="text" id="收文日期" value="<%=(r.Fields.Item("收文日期").Value)%>" size="8" readonly="true">
<a href="#SelectDate" onClick="SD(this,'document.all.收文日期')"><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="事由" cols="80" rows="5" id="事由"><%=(r.Fields.Item("事由").Value)%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">拟办意见：</div></td>
<td colspan="2"><textarea name="拟办意见" cols="80" rows="5" id="拟办意见"><%=(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="备注" cols="80" rows="4" id="备注"><%=(r.Fields.Item("备注").Value)%></textarea></td>
</tr>
<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 Recordset1.EOF))
%> <%
dim p
p=Recordset1.Fields.Item("文件路径").Value
%>
<tr>
<td width="255"> <a href="redirect.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=(Recordset1.Fields.Item("邮件编号").Value)%>&fpath=<%=p%>" target="_blank"><%=(Recordset1.Fields.Item("文件名").Value)%></a> <br/></td>
<td width="79"> <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('您确定要删除吗？')">删除</a> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<% If Recordset1.EOF And Recordset1.BOF Then %>
暂无附件或已删除..
<% End If ' end Recordset1.EOF And Recordset1.BOF %></td>
</tr>
<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="submitinput">
<input name="发送人帐号" type="hidden" id="发送人帐号" value="<%= Session("userssdfgfhtrh") %>">
</div></td>
<td colspan="2"><span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><span class="style6"><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="submit1" type=submit id="submit1" 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></span></font></strong></FONT></STRONG></span></span></td>
</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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -