adg_delete.asp

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

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

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

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

if mdel = "1" then
	themax = ads.GroupCount
	i = 0

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

	    i = i + 1
	loop
else
	ads.RemoveGroupByIndex id
end if

ads.Save

set ads = nothing

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