savemailinglist.asp

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

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

<%
if isadmin() = false then
	response.redirect "noadmin.asp"
end if
%>

<%
dim ei

set ei = server.createobject("easymail.mailinglist")
'-----------------------------------------

i = 0
if trim(request("mode")) = "mdel" then
	ei.Load ""

	allnum = ei.MailingListCount + 1
	do while i < allnum
		if trim(request("check" & i)) <> "" then
			ei.DeleteList trim(request("check" & i))
		end if

	    i = i + 1
	loop

	ei.Save
elseif trim(request("mode")) = "addnew" then

	dim msg
	msg = trim(request("addlist"))
	addname = trim(request("addname"))

	if Len(msg) > 0 or Len(addname) > 0 then
		ei.Load addname
		ei.RemoveAllItem()

		dim ss
		dim se
		ss = 1
		se = 1

	    Do While 1
	        se = InStr(ss, msg, Chr(9))

	        If se <> 0 Then
    	        item = Mid(msg, ss, se - ss)
    	        ei.AddItem item
			Else
	            Exit Do
    	    End If

	        ss = se + 1
	    Loop

		ei.Save
	end if

end if

if trim(request("del")) <> "" then
	ei.Load ""
	ei.DeleteListByIndex CInt(trim(request("del")))
	ei.Save
end if


set ei = nothing


if err.number = 0 then
	response.redirect "ok.asp?" & getGRSN() & "&gourl=browmailinglist.asp"
else
	response.redirect "err.asp?" & getGRSN()
end if
%>