📄 send.asp
字号:
<%
'************************************************************************************************
' 文件名: msg_p.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 创建人 : 周秋舫
' 日 期 : 2002-05-13
' 修改历史 :
' ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 消息详细信息
' 版 本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->
<!-- #include file="../include/emp.inc" -->
<!-- #include file="../include/message.inc" -->
<!-- #include file="msg.inc" -->
<!-- #include file="send.inc" -->
<%
call CheckSecurity()
'********************************************************************************************************
' 服务器端代码
dim pOriginalMsgSerial : pOriginalMsgSerial = GetParam("original_msg_serial")
dim pAction : pAction = GetParam("action")
dim pMsgSerial : pMsgSerial = GetParam("msg_serial")
dim pFormAction : pFormAction = GetParam("FormAction")
'********************************************************************************************************
'' 发送消息有以下几种情况 original_msg_serial msg_serial formaction *
'------------------------------------------------------------------------------------------------------------------------------------------------*
'' 1. 写新消息后立即发送 - - send *
'' 2. 写新消息后保存到草稿箱 - - save *
'' 3. 写回复消息后立即发送 √reply - send *
'' 4. 写回复消息后保存到草稿箱 √reply - save *
'' 3. 写转发消息后立即发送 √forward - send *
'' 4. 写转发消息后保存到草稿箱 √forward - save *
'' 5. 从草稿箱中取出消息，修改/或不修改，然后发送出去 - √ send *
'' 6. 从草稿箱中取出消息，修改/或不修改，然后再次保存到草稿箱 - √ save *
'********************************************************************************************************
'' 提交后的处理
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
select case pFormAction
case "save"
call SaveMessage()
case "send"
call SendMessage()
end select
end if
%>
<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../common/common.css" type="text/css">
<style type="text/css">
input {color:blue;border-color:white}
textarea {border-color:white}
a:link, a:visit {color:white}
a:hover {color:yellow}
.shadow2 {color:black;FILTER: DropShadow(color=cccccc, offX=1, offY=1, positive=1); width:100%;}
.shadow1 {color:#990000;FILTER: DropShadow(color=cccccc, offX=2, offY=2, positive=1); width:100%;}
</style>
<script language="javascript">
function getReceiver()
{
// 将选中的人员列表（从 frmSendMsg 的 receiver_serial 取到）作为参数传递到子窗口
var emp_serial_list = frmSendMsg.receiver_serial.value;
var rtn = window.showModalDialog("../common/slctEmp.asp", emp_serial_list, "center:yes;dialogWidth:246px;dialogHeight:253px;status:no");
if (typeof(rtn) == "undefined") return;
// 返回员工序列号的组合，重新保存到 frmSendMsg 的 receiver_serial 中
frmSendMsg.receiver_serial.value = rtn;
// 将消息接收者人员编号转化成名字，并以逗号隔开
// 方法是比较emp_serial和select object中的option的value，如果相同，则名字就是option的text
var arrayEmpSerial = rtn.split(",")
var emp_serial
var namelist = "";
for (var x=0; x<arrayEmpSerial.length; x++)
{
var emp_serial = arrayEmpSerial[x];
for (var j=0; j<slctReceivers.length; j++)
{
var opt = slctReceivers.options[j];
if (emp_serial.toString() == opt.value.toString())
{
if (namelist != "") namelist = namelist + ",";
namelist = namelist + opt.text;
break;
}
}
}
frmSendMsg.receiver_name.value = namelist;
}
function btnSend_OnClick()
{
if (frmSendMsg.receiver_serial.value == "")
{
alert("对不起，请选择消息接收者！");
return;
}
if (frmSendMsg.content.length > 3000)
{
alert("对不起，消息内容至多3000字");
return;
}
frmSendMsg.FormAction.value = "send"
frmSendMsg.submit();
}
function btnSave_OnClick()
{
if (frmSendMsg.content.length > 3000)
{
alert("对不起，消息内容至多3000字");
return;
}
frmSendMsg.FormAction.value = "save"
frmSendMsg.submit();
}
</script>
</head>
<script for=window event=onload language="javascript">//window.resizeTo(480, 410);</script>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'********************************************************************************************************
' 主体从这里开始
'-------------------------------------------------------------------------------------------------------------------------------------------------
Response.Write FrameTitle("发送消息", "images/compose.gif", "#0099cc", "navy")
Response.Write FormMsg
'-------------------------------------------------------------------------------------------------------------------------------------------------
' 主体到这里结束
'********************************************************************************************************
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -