📄 email_send_save.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/admin.css" type="text/css">
</head>
<body>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="0" class="a2">
<%
if not IsObjInstalled("jmail.message") Then ErrMsg("当前服务器不支持Jmail，不能使用邮件群发功能！")
if request("title")="" or request("content")="" or request("sendername")="" or request("sendnum")="" or request("sendtime")="" then
ErrMsg("对不起，邮件信息没有填写完整！")
end if
'把email发送是否成功的标识清0
conn.execute("update [user] set success=0,lastsend='"&now()&"'")
'存储发送的内容
session("states")=request("states")
session("title")=request("title")
session("bodytext")=Request("content")+"<br><br>*************************************************<br>此邮件由<a href=http://www.9cool.net target=_blank><b>九酷网络（www.9cool.net）</b></a>邮件群发系统发送<br>发送时间："&Now()&"<br>*************************************************"
session("priority")=request("priority")
session("sendername")=request("sendername")
session("sendnum")=request("sendnum")
session("sendtime")=request("sendtime")

'读取smtp服务器信息
dim a,smtp,username,userpassword,useremail,smtpcount
set rssmtp=conn.execute("select smtp,username,userpassword,useremail,(select count(id) from mail_smtp) from mail_smtp")
a=1
do while not rssmtp.eof
smtp=rssmtp(0)
username=rssmtp(1)
userpassword=rssmtp(2)
useremail=rssmtp(3)
smtpcount=rssmtp(4)
%>
	<tr class="a1">
		<td height="25" align="center">邮件发送情况</td>
	</tr>
	<tr>
		<td align="center" class="a3">SMTP邮件服务器：<%=smtp%>
		</td>
	</tr>
	<tr>
		<td class="a4">
		  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
			<tr>
				<td height="60" align="center" bgcolor="#FFFFFF">
				  <iframe name="T<%=a%>" width="83%" height="48" marginwidth="1" marginheight="1" src="email_send.asp?smtp=<%=smtp%>&username=<%=username%>&userpassword=<%=userpassword%>&useremail=<%=useremail%>&smtpcount=<%=smtpcount%>&pageid=<%=a%>">
			  浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
			</tr>
		  </table>	  </td>
		
	</tr>
	<%
	a=a+1
	rssmtp.movenext
	loop
rssmtp.close
set rssmtp=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -