delmail.asp

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

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

<%
dim tmpfile
tmpfile = trim(request("filename"))
tmpfile = Mid(tmpfile, Len(tmpfile) - 2, 3)

realdel = trim(request("realdel"))

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

if realdel <> "1" then
	if tmpfile = "del" then
		ei.DelMail Session("wem"), trim(request("filename"))
	else
		ei.MoveMail Session("wem"), trim(request("filename")), "del"
	end if
else
	ei.DelMail Session("wem"), trim(request("filename"))
end if

set ei = nothing


if err.Number = 0 then
	if trim(request("nextfile")) = "" then
		if trim(request("gourl")) = "" then
			response.redirect "ok.asp"
		else
			response.redirect "ok.asp?gourl=" & Server.URLEncode(trim(request("gourl")))
		end if
	else
		response.redirect "showmail.asp?filename=" & trim(request("nextfile")) & "&gourl=" & Server.URLEncode(trim(request("gourl")))
	end if
else
	response.redirect "err.asp"
end if
%>