saveuserkill.asp

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

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

<%
dim ei

set ei = server.createobject("easymail.usermessages")
'-----------------------------------------
ei.Load Session("wem")

i = 0
allnum = ei.GetRejectEMailCount


if trim(request("checkrej")) <> "" then
	ei.UseReject = true
else
	ei.UseReject = false
end if

if trim(request("mode")) <> "addone" then

	ei.RemoveAllRejectEMail

	i = 0
	if trim(request("mode")) = "save" then
		do while i < allnum + 1
			if trim(request("kill" & i)) <> "" then
				ei.AddRejectEMail trim(request("kill" & i))
			end if
	
		    i = i + 1
		loop
	elseif trim(request("mode")) = "add" then
		do while i < allnum + 1
			if trim(request("kill" & i)) <> "" then
				ei.AddRejectEMail trim(request("kill" & i))
			end if
	
		    i = i + 1
		loop
	elseif trim(request("mode")) = "del" then
		do while i < allnum + 1
			if trim(request("check" & i)) = "" and trim(request("kill" & i)) <> "" then
				ei.AddRejectEMail trim(request("kill" & i))
			end if

		    i = i + 1
		loop
	end if
else
	if trim(request("kill")) <> "" then
		ei.AddRejectEMail trim(request("kill"))
	end if
end if


ei.SaveReject

set ei = nothing


if trim(request("fromshowmail")) = "" then
	if trim(request("mode")) = "add" then
		response.redirect "showuserkill.asp?mode=add&" & getGRSN()
	elseif trim(request("mode")) = "addone" then
		response.redirect "ok.asp?" & getGRSN() & "&gourl=showuserkill.asp"
	else
		response.redirect "ok.asp?" & getGRSN() & "&gourl=showuserkill.asp"
	end if
else
	response.redirect "ok.asp?" & getGRSN()
end if
%>