movemail.asp

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

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

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

if ei.MoveMail(Session("wem"), trim(request("filename")), trim(request("mto"))) = true then
	set ei = nothing

	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
	set ei = nothing
	response.redirect "err.asp"
end if
%>