📄 updateshenpimyfdda.asp
字号:
}
return false
}
else
document.submitinput.submit();
}
return true
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<script src="/toall/js/date.js"></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.submitinput.submit1.value=' 发送..'
document.submitinput.submit1.disabled=true;
return true;
}
function check() {
if (document.submitinput.文件标题.value=="") {
alert("请输入文件标题！")
document.submitinput.文件标题.focus()
return false
}
if (document.submitinput.共印份数.value!="") {
{
nr1=document.submitinput.共印份数.value;
flg=0;
str="";
spc=""
arw="";
for (var i=0;i<nr1.length;i++){
cmp="0123456789"
tst=nr1.substring(i,i+1)
if (cmp.indexOf(tst)<0){
flg++;
str+=" "+tst;
spc+=tst;
arw+="^";
}
else{arw+="_";}
}
if (flg!=0){
if (spc.indexOf(" ")>-1) {
str+="和空格";
}
alert("友请提醒:\n共印份数需为数字");
document.submitinput.共印份数.focus()
return false;
}
}
}
return true;
}
</script>
</SCRIPT>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</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="submitinput" id="submitinput">
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FF0000">
<tr bgcolor="#FFFFFF">
<td width="9%"><div align="right">文件标题：</div></td>
<td width="43%"><input name="文件标题" type="text" id="文件标题" value="<%=(r.Fields.Item("文件标题").Value)%>" size="40" maxlength="50">
</td>
<td width="48%"> 编号：
<input name="编号" type="text" id="编号" value="<%=(r.Fields.Item("编号").Value)%>" size="12" maxlength="50">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">机密程度： </div></td>
<td><select name="机密程度" id="机密程度">
<%
While (NOT jimi.EOF)
%>
<option value="<%=(jimi.Fields.Item("机密程度").Value)%>" <%If (Not isNull((r.Fields.Item("机密程度").Value))) Then If (CStr(jimi.Fields.Item("机密程度").Value) = CStr((r.Fields.Item("机密程度").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(jimi.Fields.Item("机密程度").Value)%></option>
<%
jimi.MoveNext()
Wend
If (jimi.CursorType > 0) Then
jimi.MoveFirst
Else
jimi.Requery
End If
%>
</select>
印发日期：
<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>
<td> 共印份数：
<input name="共印份数"" type="text" id="共印份数" value="<%=(r.Fields.Item("共印份数").Value)%>" size="8" 外出事由>
份</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">主送机关：</div></td>
<td><input name="主送机关" type="text" id="主送机关" value="<%=(r.Fields.Item("主送机关").Value)%>" maxlength="50"></td>
<td>抄送机关：
<input name="抄送机关" type="text" id="抄送机关" value="<%=(r.Fields.Item("抄送机关").Value)%>" maxlength="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">主题词：</div></td>
<td><input name="主题词" type="text" id="主题词" value="<%=(r.Fields.Item("主题词").Value)%>" maxlength="50"></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">打字人：</div></td>
<td><input name="打字人" type="text" id="打字人" value="<%=(r.Fields.Item("打字人").Value)%>" maxlength="50"></td>
<td>校对人：
<input name="校对人" type="text" id="校对人" value="<%=(r.Fields.Item("校对人").Value)%>" maxlength="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">内容：</div></td>
<td colspan="2"><input name="content" type="hidden" id="content" value="<%=Server.HtmlEncode(r("内容"))%>">
<iframe ID="content" src="../htmledit/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="680" HEIGHT="380"></iframe></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">备注：</div></td>
<td colspan="2"><textarea name="备注" cols="60" rows="4" id="备注"><%=(r.Fields.Item("备注").Value)%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">
<input name="id" type="hidden" id="id" value="<%=request("ID")%>">
附件：</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/fawen" size="20">
<input type="hidden" name="act" value="upload">
<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">
<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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -