📄 email_send.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<%
Server.ScriptTimeout=9999999
%>
<!--#include file="admin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td align=center>
		<%
on error resume next
dim smtp,username,userpassword,useremail,smtpcount
smtp=request("smtp")
username=Request("username")
userpassword=Request("userpassword")
useremail=Request("useremail")
smtpcount=request("smtpcount")
totalcount=request("totalcount")
if isnull(totalcount) or totalcount="" then
totalcount=0
end if
if session("states")="all" then
sql="SELECT email from [user] where success=0"
else
sql="SELECT email from [user] where success=0 and state="&session("states")&""
end if
rs.open sql,conn,1,3
dim email
'***********************************分页
count=session("sendnum")
if count<=0 then
	count=session("sendnum")
end if
if not rs.eof then
	rs.pagesize=count
	pagecount=rs.pagecount
	if request("pageid")="" then
		nowpage=1
	else
		nowpage=int(request("pageid"))
	end if
	if nowpage>rs.pagecount then
		response.write "发送完毕,服务器："&smtp&" 总共发送邮件<font class=err>"&totalcount&"</font>封"
		response.end
	end if
	if nowpage>=rs.pagecount then
		nowpage=rs.pagecount
	elseif nowpage<=1 then
		nowpage=1
	end if
	rs.absolutepage=nowpage
else
	pagecount=1
	nowpage=1
end if
a=1
Dim JMail, contentId,msg
Set JMail = Server.CreateObject("JMail.Message") 
do while not rs.eof and a<=count
	JMail.Charset = "gb2312"
	JMail.ContentType = "text/html"
	JMail.From = useremail
	JMail.FromName = session("sendername")
	JMail.Subject = session("title") 
	JMail.MailServerUserName = username 
	JMail.MailServerPassword = userpassword 
	JMail.Priority = session("priority")
	JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
	JMail.ClearRecipients()
	for i=1 to 10
		if not rs.eof and a<=count then
			email=rs(0)
			JMail.AddRecipient email
			a=a+1
			rs.movenext
		end if
	next
	JMail.Body = session("bodytext")
	msg=JMail.Send(smtp)
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing

totalcount=cint(totalcount)+cint(a)-1

%>
	正在发送中。。。共发送邮件<b><font color="#FF0000"><%=totalcount%></font></b>封</td>
	</tr>
</table>
<meta http-equiv="refresh" content="<%=session("sendtime")%>;URL=email_send.asp?smtp=<%=smtp%>&username=<%=username%>&userpassword=<%=userpassword%>&useremail=<%=useremail%>&smtpcount=<%=smtpcount%>&pageid=<%=cint(nowpage)+cint(smtpcount)%>&totalcount=<%=totalcount%>">
</body>
</html>
⌨️ 快捷键说明

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