📄 sendmailset.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<script src="../include/function.js" type="text/javascript"></script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
var HasChanged;
function PopSelectUser(Container)
{
var ret,CurItems;
ret=window.showModalDialog("PopSelectFrame.asp?SheetAndRowID="+frmData.SheetID.value+JoinChar+frmData.RowID.value, "","dialogwidth:400px;dialogheight:395px;Status:0;center:1;resizable=1;");
if(typeof(ret)!="undefined")
{
if(ret.charAt(0)=="1")
{
ret=ret.slice(2);
eval("frmData." + Container + ".value=" + QuotedString(ret));
HasChange();
}
}
}
function Save(target) {
if(LocalDC())
{
SavePrompt();
parent.window.returnValue = true;
document.frmData.target ="SaveArea";
document.frmData.action=target;
document.frmData.submit();
}
}
function Cancel() {
if(HasChanged==true)
{
discard=confirm("您已经输入了一些信息，但尚未保存。放弃您所作的输入吗？");
if(discard==true)
{
parent.window.returnValue = false;
parent.window.close();
}
}
else
{
parent.window.returnValue = false;
parent.window.close();
}
}
function HasChange() {
// HasChanged=true; //pop式窗口，没必要提示保存
}
//数据合法性检查
function LocalDC()
{
var AllMails,Mails;
//收件人必填
AllMails=JTrim(document.frmData.MailTo.value);
if(AllMails=="")
{
alert("收件人未填写，请填写。")
return false;
}
//检测发送至mail地址的合法性
AllMails=AllMails.replace(/,/g,';'); //逗号改成分号
document.frmData.MailTo.value=AllMails;
Mails=AllMails.split(";");
if(Mails.length>0)
{
for (var i = 1; i <= Mails.length; i++)
{
if(DataCheck("发送至",DataType_Email,Mails[i-1],"","")==false)
{
return(false);
}
}
}
//检测抄送至mail地址的合法性
AllMails=JTrim(document.frmData.MailCC.value);
AllMails=AllMails.replace(/,/g,';'); //逗号改成分号
document.frmData.MailCC.value=AllMails;
if(AllMails!="")
{
Mails=AllMails.split(";");
if(Mails.length>0)
{
for (var i = 1; i <= Mails.length; i++)
{
if(DataCheck("抄送至",DataType_Email,Mails[i-1],"","")==false)
{
return(false);
}
}
}
}
//检测秘密抄送至mail地址的合法性
AllMails=JTrim(document.frmData.MailBCC.value);
AllMails=AllMails.replace(/,/g,';'); //逗号改成分号
document.frmData.MailBCC.value=AllMails;
if(AllMails!="")
{
Mails=AllMails.split(";");
if(Mails.length>0)
{
for (var i = 1; i <= Mails.length; i++)
{
if(DataCheck("秘密抄送至",DataType_Email,Mails[i-1],"","")==false)
{
return(false);
}
}
}
}
return true;
}
function SavePrompt()
{
frmData.btnSave.disabled =true;
frmData.btnCancel.disabled =true;
}
//-->
</SCRIPT>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetAndRowID,Parts,SheetID,RowID
SheetAndRowID=Request.QueryString("SheetAndRowID")
Parts=split(SheetAndRowID,JoinChar)
SheetID=Parts(0)
RowID=Parts(1)
dim Ret
Ret=WExcel.SheetExist(cint(UserID),cint(SheetID))
CheckErr
if Ret=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
Ret=WExcel.SheetDataExist(cint(UserID),cint(SheetID),clng(RowID))
CheckErr
if Ret=false then
Response.Redirect "/hcgis/notfound.asp?Name=记录&Depth=2"
end if
dim mailconfig,mailfrom
mailconfig=WExcel.CheckMailConfig(mailfrom)
CheckErr
dim Subject,SheetCaption
SheetCaption=WExcel.GetSheetCaption(cint(SheetID))
Subject="(华创) " & SheetCaption & "之记录" & cstr(RowID)
dim UserName,UserMail,MailBody
Ret=WExcel.GetUserNameMail(cint(UserID),UserName,UserMail)
if Ret=true then
MailBody="此邮件由" & UserName & "从" & AppTitle & "发出"
if len(trim(UserMail))>0 then
MailBody=MailBody & chr(13) & chr(10) & UserMail
end if
MailBody=MailBody & chr(13) & chr(10) & cstr(now())
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%if not mailconfig then%>
<table width="70%" border=0 CELLSPACING=0 CELLPADDING="0" align=center>
<tr height=180 valign="center">
<td><p align=left>服务配置不完整，无法发送Email。请系统管理员检查服务器配置，确保“启用Email通知”已经被选中，并正确填写发送邮件服务器、发送邮件地址、登录账号等信息。位置：开始 → HCGIS → 服务配置 → Email通知。</p></td>
</tr>
<tr height=40 valign=bottom>
<td>
<p align=center>
<input id="btnCancel" type="button" value="关闭" name="btnCancel" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Cancel()">
</p>
</td>
</tr>
</table>
<%else%>
<form METHOD="post" name="frmData">
<table width="100%" border=0 CELLSPACING=0 CELLPADDING="0">
<tr height="35">
<td>
<b>
发送 Email
</b>
</td>
</tr>
<tr height=30 valign=center>
<td><p align=center>正在预览的记录可用 Email 立即发送出去，沟通快捷。</p></td>
</tr>
<tr height=195 valign="top">
<td>
<table width="95%" border=0 CELLSPACING="1" CELLPADDING="0">
<tr>
<td colspan=2 bgcolor="#e0e0e0">
<p align="left"><b>收件人</b></p>
</td>
</tr>
<tr>
<td bgcolor="#e0e0e0" width="25%">
<p align="left">发送至<FONT color=red>*</FONT></p>
</td>
<td width="75%">
<p align="left">
<input TYPE="input" NAME=MailTo style="WIDTH:323px" LANGUAGE=javascript onchange="return HasChange()">
<INPUT type='button' value='v' onclick=PopSelectUser("MailTo") id='button' name='button'>
</p>
</td>
<tr>
<tr>
<td bgcolor="#e0e0e0" width="25%">
<p align="left">抄送至</p>
</td>
<td width="75%">
<p align="left">
<input TYPE="input" NAME=MailCC style="WIDTH:323px" LANGUAGE=javascript onchange="return HasChange()">
<INPUT type='button' value='v' onclick=PopSelectUser("MailCC") id='button' name='button'>
</p>
</td>
<tr>
<tr>
<td bgcolor="#e0e0e0" width="25%">
<p align="left">秘密抄送至</p>
</td>
<td width="75%">
<p align="left">
<input TYPE="input" NAME=MailBCC style="WIDTH:323px" LANGUAGE=javascript onchange="return HasChange()">
<INPUT type='button' value='v' onclick=PopSelectUser("MailBCC") id='button' name='button'>
</p>
</td>
<tr>
<tr>
<td colspan=2 bgcolor="#e0e0e0">
<p align="left"><b>信件内容</b></p>
</td>
</tr>
<tr>
<td bgcolor="#e0e0e0" width="25%">
<p align="left">Email标题</p>
</td>
<td width="75%">
<p align="left"><input TYPE="input" NAME=Subject value="<%=Subject%>" style="WIDTH: 323px" maxLength=40 LANGUAGE=javascript onchange="return HasChange()"></p>
</td>
</tr>
<tr>
<td bgcolor="#e0e0e0" width="25%">
<p align="left">Email正文</p>
</td>
<td width="75%">
<p align="left"><TEXTAREA NAME=MailBody rows=4 cols=70 style="width:343px" onKEYUP="HasChange();"><%=MailBody%></TEXTAREA></p>
</td>
</tr>
<tr>
<td bgcolor="#e0e0e0" width="25%">
<p align="left">附带详细信息</p>
</td>
<td width="75%">
<p align="left"><INPUT name=AttachViewPage checked type=checkbox onclick='return HasChange()'></p>
</td>
</tr>
</table>
</td>
</tr>
<tr height=40 valign=bottom>
<td>
<table width="100%">
<tr>
<td width="25%"></td>
<td width="25%"><input id="btnSave" type="button" value="发送" name="btnSave" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Save('sendmail.asp')"></td>
<td width="25%"><input id="btnCancel" type="button" value="取消" name="btnCancel" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Cancel()"></td>
<td width="25%"></td>
</tr>
</table>
</td>
</tr>
</table>
<input TYPE="hidden" NAME="SheetID" value="<%=SheetID%>">
<input TYPE="hidden" NAME="RowID" value="<%=RowID%>">
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</form>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -