📄 sendmuchplan.asp
字号:
<%response.expires=0%>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/sendeventemail.asp"-->
<!--#include file="asp/sqlstr.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("alert('对不起，您已经过期，请重新登录！');")
response.write("window.close();")
response.write("</script>")
response.end
end if
username=request("username")
superior=request("superior")
recdate=request("recdate")
if username="" or superior="" or recdate="" then
response.write("<script language=""javascript"">")
response.write("alert('请按正确的方式群发工作计划！');")
response.write("window.close();")
response.write("</script>")
response.end
end if
if request.form("submit")=" 提交 " then
dim ChooseDim,UserNameDim,i
set conn=opendb("oabusy","conn","accessdsn")
TitleValue=replace(trim(request.form("title")),"'","''")
ChooseNameValue=request.form("choosevalue")
PlanValue=replace(trim(request.form("remark")),"'","''")
ChooseDim=split(ChooseNameValue,chr(13)&chr(10))
for i=0 to ubound(ChooseDim)
if ChooseDim(i)<>"" then
UserNameDim=split(ChooseDim(i),":")
sql = "Insert Into workrep (username,recdate,title,remark,superior) Values( "
sql = sql & SqlStr(UserNameDim(2)) & ", "
sql = sql & "#" & recdate & "#" & ", "
sql = sql & SqlStr(TitleValue) & ", "
sql = sql & SqlStr(PlanValue) & ", "
sql = sql & SqlStr(superior) & ")"
conn.Execute sql
end if
next
response.redirect "displayworkrec.asp?username="&username&"&superior="&superior&"&recdate="&recdate
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>工作计划群发</title>
<link rel="stylesheet" type="text/css" href="css/css.css">
<script language="javascript">
function addoneuser()
{
var deptvalue,uservalue,newOpt,xdvalue,addflag;
deptvalue=document.form1.DeptName.value;
uservalue=document.form1.name.value;
if (uservalue!="")
{
xdvalue=deptvalue+":"+uservalue;
if (findfun(deptvalue,uservalue))
addflag=false;
else
addflag=true;
if (addflag)
{
newOpt=document.createElement("OPTION");
document.form1.selectname.add(newOpt);
newOpt.text=xdvalue;
newOpt.value=xdvalue;
}
}
}
function findfun(findstr,xmvalue)
{
var i,textvalue,rtvalue;
for (i=0;i<document.form1.selectname.length;i++)
{
textvalue=document.form1.selectname.options(i).value;
if (textvalue.indexOf(findstr)!=-1 && textvalue.indexOf(xmvalue)!=-1)
{
rtvalue=true;
break
}
else
rtvalue=false;
}
return rtvalue;
}
function delfun()
{
var i;
for (i=0;i<document.form1.selectname.length;i++)
{
if (document.form1.selectname.options(i).selected)
{
document.form1.selectname.remove(i);
i-=1;
}
}
GetTextAreaValue();
}
function addall(addflag)
{
var i,deptvalue,uservalue,xdvalue,selectindex;
deptvalue=document.form1.DeptName.value;
for (i=0;i<document.form1.name.length;i++)
{
if (addflag==0)
selectindex=document.form1.name.options(i).selected;
if (addflag==1 || (addflag==0 && selectindex))
{
uservalue=document.form1.name.options(i).value;
if (!findfun(deptvalue,uservalue))
{
xdvalue=deptvalue+":"+uservalue;
newOpt=document.createElement("OPTION");
document.form1.selectname.add(newOpt);
newOpt.text=xdvalue;
newOpt.value=xdvalue;
}
}
}
GetTextAreaValue();
}
function clearall()
{
var i;
for (i=0;i<document.form1.selectname.length;i++)
{
document.form1.selectname.remove(i);
i-=1;
}
GetTextAreaValue();
}
function GetTextAreaValue()
{
var i,ch;
ch="\r\n";
document.form1.choosevalue.value="";
for (i=0;i<document.form1.selectname.length;i++)
{
document.form1.choosevalue.value+=(document.form1.selectname.options(i).value+ch);
}
}
function checkform()
{
if (document.form1.choosevalue.value=="")
{
alert("请先选择用户！");
return (false);
}
if (document.form1.title.value=="")
{
alert("计划简要标题不能为空！");
document.form1.title.focus();
return (false);
}
return (true);
}
function LookPlanFun()
{
location.href='displayworkrec.asp?username=<%=username%>&superior=<%=superior%>&recdate=<%=recdate%>';
}
</script>
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<br>
<p align="center"><b><font size="3">工作计划群发</font></b></p>
<form method="POST" action="SendMuchPlan.asp?username=<%=username%>&superior=<%=superior%>&recdate=<%=recdate%>" name="form1" onsubmit="return checkform()">
<input type="Hidden" name="DeptName" value="">
<input type="Hidden" name="choosevalue" value="">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="450" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<tr>
<td width="200" height="25" bgcolor="#EFEFEF" align="center" ID="DeptNameTd">部门名称（）</td>
<td width="248" height="25" bgcolor="#EFEFEF" align="center">姓名</td>
</tr>
<tr>
<td width="248" height="75" rowspan="5" align="center"><iframe src="ListDept.asp" name="DeptFrame" id="DeptFrame" width="100%" height="100%" align="middle" frameborder="1"></iframe></td>
<td width="248" height="25" align="center"><select size="2" name="name" style="width:100%;height:90" multiple>
</select></td>
</tr>
<tr>
<td width="248" height="25" align="center"> <input type="button" value=" 增加 " name="AddOneUser" onclick="addall(0)">
<input type="button" value="全部增加" name="AddAllUser" onclick="addall(1)"></td>
</tr>
<tr>
<td width="248" height="25" bgcolor="#EFEFEF" align="center">选定用户</td>
</tr>
<tr>
<td width="248" height="13" align="center"><select size="2" name="selectname" style="width:100%;height:90" multiple>
</select></td>
</tr>
<tr>
<td width="248" height="25" align="center"><input type="button" value=" 删除 " name="DelOneUser" onclick="delfun()">
<input type="button" value="全部删除" name="DelAllUser" onclick="clearall()"></td>
</tr>
<tr>
<td width="450" height="25" colspan="2">简要标题：<input type="text" name="title" size="20" style="width: 385; height: 22"></td>
</tr>
<tr>
<td width="450" height="25" colspan="2">详细说明：<textarea rows="4" name="remark" cols="46" style="width: 385; height: 98"></textarea></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value=" 提交 " name="submit"> <input type="Button" value="工作任务" onclick="LookPlanFun()"> <input type="button" value=" 关闭 " name="close" onclick="window.close();"></p>
</form>
<iframe src="" name="HiddenFrame" id="DeptFrame" width="0" height="0" align="middle" frameborder="0"></iframe>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -