toguidangfor有ren.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 411 行 · 第 1/2 页
ASP
411 行
var str2="";
tmpstr=return_value.split("*");
str1=tmpstr[0];
str2=tmpstr[1];
document.form1.all(str2).value=str1 ;
}
</script>
<html>
<head>
<style type="text/css">
<!--
.style5 {color: #FFFFFF}
-->
</style>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style41 {color: #999999}
-->
</style>
<script language=javascript>
function dis(){
document.form1.submit1.value='归档..'
document.form1.submit1.disabled=true;
return true;
}
function check() {
if (document.form1.接收部门.value=="null") {
alert("请选择归档类别！")
document.form1.接收部门.focus()
return false;
}
//-------发送附件
return true;
}
</script></SCRIPT>
<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>
function SummaryFromText(){
if (iEditorType==0)
{
var Summary = content1.getHTML();
}
else{
var Summary = a1.content.value;
}
Summary=Summary.substring(1,250)
Summary=cleanHtml(Summary);
a1.summary.value=Summary;
}
</SCRIPT>
<script>
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
obj.style.height=he+i+'px';
else
obj.style.height='80px';
}
</script>
<script Language="JavaScript">
function form_check()
{
if(document.form1.接收人.value.length<1)
{
window.alert("请选择发送目标");
document.form1.City.focus();
return (false);
}
}
function addsendtouser()
{
var sendtouserstr,sendtouserstr1;
sendtouserstr='|'+document.form1.userdept.value+':'+document.form1.City.value;
sendtouserstr1='|'+document.form1.userdept.value+':所有人';
if (document.form1.sendto.value.indexOf(sendtouserstr)==-1)
{
if (document.form1.City.value=="所有人")
{ document.form1.sendto.value=document.form1.sendto.value+'|'+document.form1.userdept.value+':'+document.form1.City.value;
document.form1.sendto.value=document.form1.sendto.value;
}
else if (document.form1.City.value!="所有人" && document.form1.sendto.value.indexOf(sendtouserstr1)==-1)
{
document.form1.sendto.value=document.form1.sendto.value+'|'+document.form1.City.value;
document.form1.sendto.value=document.form1.sendto.value;
}
else
{
alert("该发送目标已包含在所有人中!");
}
}
else
{
alert("该发送目标已经存在!");
}
}
</script>
<div align="center">
<table width="74%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6" height="20"><img src="/img/bbs/leftlin1red.gif" width="6" height="21"></td>
<td width="936" height="20" bgcolor="#FF3333"><div align="center" class="style5"><strong>收 文 归 档</strong></div></td>
</tr>
</table>
<table width="74%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td bgcolor="#FFFFFF"><form name="form1" method="post" action="guidangpost.asp" onSubmit="return dis()">
<table width="99%" height="142" border="0" cellpadding="3" cellspacing="1">
<tr>
<td height="30"> 归档类别：
<select name="接收部门" id="接收部门">
<option value="null" selected>选择类别</option>
<%=DbCombox1()%>
<option value="其它">其它</option></select></td>
</tr>
<tr>
<td height="21"> 事由：<strong><%=request("bt")%>
<input name="id" type="hidden" id="id" value="<%=request("id")%>">
</strong></td>
</tr>
<% If Not r11.EOF Or Not r11.BOF Then %>
<tr>
<td height="21"><table width="99%" height="21" border="0" cellpadding="0" cellspacing="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 ' end Not r11.EOF Or NOT r11.BOF %>
<tr>
<td height="21">可查看人员：
<select name="userdept" onchange ="changeselect(document.form1.userdept.options[document.form1.userdept.selectedIndex].value)">
<option value="请选择部门" selected>请选择部门</option>
<%=DbCombox()%>
</select>
<select name="City" id="City">
<option value="请选择对象" selected>请选择对象</option>
</select>
<input type="button" value="增加" onClick="addsendtouser()">
<textarea name="sendto" cols="80" rows="3" readonly=true class="css0" id="sendto" title="选择接收人" onKeyDown="gonext("vattendother")"></textarea>
<span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><span class="style37"><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> </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><span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><span class="style9"><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="tof1" type=checkbox onClick=tof1_Click() value="1" >
</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>对所有人群发
<tr>
<td width="96" ><span class="p9"><div id=his2 style=display:inline ></div>
<select name="userdept" onchange ="changeselect(document.form1.userdept.options[document.form1.userdept.selectedIndex].value)">
<option value="请选择部门" selected>请选择部门</option>
<%=DbCombox()%>
</select>
<input type="button" value="增加" onClick="addsendtouser()">
<textarea name="sendto" cols="80" rows="3" readonly=true class="css0" id="sendto" title="选择接收人" onKeyDown="gonext("vattendother")"></textarea>
</span></td>
<tr>
<td height="21"><div id=his style=display:none ><table width="392" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> 备注：</td>
<td><div align="left">
<textarea name="fuyan" cols="44" rows="5" id="fuyan"></textarea>
</td>
</tr>
</table></div>
</br>
<input name="submit1" type=submit id="submit1" style="FONT-SIZE: 12px; HEIGHT: 27px" onClick='return check();' value= " 归 档 " nClick='return check();'>
<input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:history.go(-1)" value= " 取 消 " >
<input name=tof type=checkbox onClick=tof_Click() >
备注
</table>
</form></td>
</tr>
</table>
<%
r11.Close()
Set r11 = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?