ads_pubdelete.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 50 行

<!--#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.Pub_Addresses")
ads.Load

if mode <> "conv" then
	if isadmin() = false then
		set ads = nothing
		response.redirect "noadmin.asp"
	end if

	if mdel = "1" then
		themax = ads.Count
		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

	ads.Save
else
	if id <> "" then
		if ads.AddInPrivateAddresses(Session("wem"), id) = false then
			response.redirect "err.asp?" & getGRSN()
		else
			response.redirect "ok.asp?" & getGRSN()
		end if
	end if
end if

set ads = nothing

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