📄 result.asp
字号:
<!--本邮件列表系统由雷の龙独立制作，版权所有。http://gamewu.126.com-->
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
<body background="INDTEXTB.JPG">
<%id=request("id")
if id="shibai" then
set rs=server.createobject("adodb.recordset")
sql="select email from email where fs=0"
rs.open sql,conn,3,1
response.write "<center>总共有<font color=red>"&rs.recordcount&"</font>封邮件没有发送成功<p> </p>"
do while not rs.eof
response.write rs("email")&"发送失败！<br>"
rs.movenext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select fs from email"
rs.open sql,conn,3,1
lose=0
do while not rs.eof
if rs("fs")=0 then
lose=1
exit do
end if
rs.movenext
loop
if lose=0 then%>
<p align="center"><font size="3">恭喜你邮件列表全部发送成功！</font></p>
<%else%><p align="center"> </p>
<p align="center"> </p>
<p align="center">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500">
<tr>
<td width="100%"><font size="5"><font color="#FF0000">很遗憾</font>，</font><font size="3">你的邮件未
能全部发送成功。请点击下面按钮重新向那些发送失败的邮箱发送这封邮件！</font><p>
<font size="3"><a target="_blank" href="result.asp?id=shibai"><font color="#0000FF">察看发送失败的邮箱列表</font></a></font></p>
<p align="center">
<form name=form1 method="post" action="shibai.asp">
<p align="center">
<input type="submit" value="重新发送失败的邮件" name="B3"></p>
</p>
</form></td>
</tr>
</table>
</center>
</div><p align="center"> </p>
<p align="center"> <!--#include file="foot.htm"--></p>
<%end if
rs.close
conn.close
set rs=nothing
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -