ads_delete.asp

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

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

<%
dim id
id = trim(request("id"))
sc = trim(Request("sc"))
mdel = trim(Request("mdel"))
mode = trim(Request("mode"))

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

if mode <> "conv" then
	if mdel = "1" then
		themax = ads.EmailCount
		i = 0

		do while i < themax
			cmdstr = trim(request("checkdel" & i))
			if cmdstr <> "" then
				ads.RemoveEmailByNickName cmdstr
			end if

		    i = i + 1
		loop
	else
		ads.RemoveEmailByNickName id
	end if
else
	if isadmin() = false then
		set ads = nothing
		response.redirect "noadmin.asp"
	end if

	if id <> "" then
		if ads.AddInPublicAddresses(id) = false then
			set ads = nothing
			response.redirect "err.asp?" & getGRSN()
		else
			set ads = nothing
			response.redirect "ok.asp?" & getGRSN()
		end if
	end if
end if

ads.Save

set ads = nothing

response.redirect "ads_brow.asp?sc=" & sc & "&" & getGRSN()
%>