bulksend.asp

一个虚拟主机代理系统

<!--- #include virtual=/smusermanager/utilities/config.asp --->
<!--- #include virtual=/smusermanager/utilities/utilities.asp --->
<%
if not application("smumdebugmode") then on error resume next
dim todo
dim n
set smummaildataconn = server.CreateObject("ADODB.Connection") 
smummaildataconn.Open smumconnstr
smummailquery = "select * from smum_messagequeuetbl"
set smummailrs = smummaildataconn.Execute(smummailquery) 
	if not smummailrs.eof then
		n = 0
		session("smumstartsend") = "started"
		do until smummailrs.eof
			result = sendmail(smummailrs("mesque_fromemail"),smummailrs("mesque_toemail"), smummailrs("mesque_fromname"), smummailrs("mesque_toname"), Application("smummailserver"), smummailrs("mesque_subject"), smummailrs("mesque_message"), Application("smummailcomponent"))
			Response.Write smummailrs("mesque_toemail") & " : " & result & "<br>"
			smummaildataconn.Execute("delete from smum_messagequeuetbl where mesque_id = "& smummailrs("mesque_id"))
			n = n + 1
			if n > 50 then Response.Redirect "/smusermanager/utilities/bulksend.asp"
		smummailrs.movenext
		loop
		session("smumstartsend") = ""
	end if
smummailrs.close
set smummailrs = nothing
session("smumstartsend") = ""
Response.Write "Queue Empty"
%>