📄 groupsend.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
'设置超时时间
Server.ScriptTimeout=999999
Dim FromName,FromMail,ToMailCC,ToMailBCC,MailSubject,Attachment,UrlAttachment,MailBody,MailFormat,Priority,TimeMail,SEndYear,SEndMonth,SEndDay,SEndHour,SEndTime
Dim UseZujian,UseSMTP,UseName,UsePass,UseDate,SetGroup,SetLine,RecordID,startime,Endtime
Dim pagecount
Call loaderror()
Call showwebdata()
Call Language_var(Language,"sendmail")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body background="images/greystrip.gIf">
<center>
<%
'获得发送变量
RecordID=cint(Request.QueryString("RecordID")) '邮件记录号
SetLine=cint(Request.QueryString("SetLine")) '本次发送线程数
SetGroup=cint(Request.QueryString("SetGroup")) '每线程发送邮件数量
pagecount=cint(Request.QueryString("page")) '当前发送页面
startime=cint(Request.QueryString("startime"))
'读取发送邮件的信息
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from record where id="&RecordID
rs.open sql,conn,1,1
If NOT(rs.bof AND rs.eof) Then
FromName=Rs("FromName")
FromMail=Rs("FromMail")
MailSubject=Rs("MailSubject")
Attachment=Rs("Attachment")
UrlAttachment=Rs("UrlAttachment")
MailBody=Rs("MailBody")
MailFormat=Rs("MailFormat")
Priority=Rs("Priority")
TimeMail=Rs("TimeMail")
SEndYear=Rs("SEndYear")
SEndMonth=Rs("SEndMonth")
SEndDay=Rs("SEndDay")
SEndHour=Rs("SEndHour")
Rs.close
Else
Rs.close
errortext=Language_sendmail(7)
Call showerror1()
End If
'读取发送设置信息
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Management"
rs.open sql,conn,1,1
SMTPHost=Rs("SMTPHost")&""
SMTPUser=Rs("SMTPUser")
SMTPPass=Rs("SMTPPass")
mailzj=Rs("SetMailzj")
rs.close
%>
<!--#Include File="zujian.asp" -->
<%
Set rs=Server.Createobject("adodb.recordset")
sql="select mail,fs from mail order by id"
rs.open sql,conn,1,3
rs.pagesize=SetGroup '设置每组N个邮件地址
pageall=rs.pagecount '根据 pagesize 的设置返回总页数
rs.AbsolutePage=pagecount '当前页数
For i=1 To SetGroup
If rs.eof Then Exit For
ToMail=rs("mail")
rs("fs")="1"
Call sendmail()
rs.movenext
Next
rs.close
'判断本线程是否全部结束
If cint(pagecount+SetLine) <= pageall Then
'如果下一个页面,没有超过总页面
Response.Redirect "groupsend.asp?RecordID="&RecordID&"&SetLine="&SetLine&"&SetGroup="&SetGroup&"&page="&pagecount+SetLine&"&startime="&startime
Response.End
Else
Endtime=timer()
Response.Write "本线程发送完毕!共用时间约"&int(Endtime-startime)&"秒"
End If
%>
<% If ErrStr <> "" Then %>
<FONT COLOR="#FF0000"><%=Language_sendmail(4)%><b><%=ErrStr%></b><br><%=Language_sendmail(5)%></FONT>
<% End If %>
</center>
</body>
</html>
<%
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -