sendend.asp

蓝芒3.0A最新所有功能完整破解版

<!--#include file="passinc.asp" -->

<%
newaddnum = trim(request("newaddnum"))
gourl = trim(request("gourl"))

if Request.ServerVariables("REQUEST_METHOD") <> "POST" or newaddnum = "" then
	if gourl <> "" then
		Response.Redirect gourl & "&" & getGRSN()
	else
		Response.Redirect "viewmailbox.asp?" & getGRSN()
	end if
end if

if IsNumeric(newaddnum) = false or CInt(newaddnum) < 1 then
	if gourl <> "" then
		Response.Redirect gourl & "&" & getGRSN()
	else
		Response.Redirect "viewmailbox.asp?" & getGRSN()
	end if
end if


allnum = CInt(newaddnum)

dim ads
set ads = server.createobject("easymail.Addresses")
ads.Load Session("wem")

i = 0
do while i < allnum
	nadd = trim(request("newadd" & i))
	if nadd <> "" then
		ads.Simple_Add_Email nadd, nadd
	end if

    i = i + 1
loop

ads.Save

set ads = nothing

if gourl <> "" then
	Response.Redirect gourl & "&" & getGRSN()
else
	Response.Redirect "viewmailbox.asp?" & getGRSN()
end if
%>