mulmail.asp

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

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

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

if trim(request("mode")) = "cleanTrash" then
	ei.LoadMailBox Session("wem"), "del"
	allnum = ei.getMailsCount

	i = 0

	do while i < allnum
		ei.getMailInfo allnum - i - 1, idname, isread, priority, sendMail, sendName, subject, size, etime
		ei.DelMail Session("wem"), idname

		idname = NULL
		isread = NULL
		priority = NULL
		sendMail = NULL
		sendName = NULL
		subject = NULL
		size = NULL
		etime = NULL

		i = i + 1
	loop

	set ei = nothing

	if err.Number = 0 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 "err.asp"
	end if
end if




ei.LoadSizeInfo Session("wem")

dim themax
dim tmpfile

allnum = ei.allMailCount


if allnum > pageline then
	themax = pageline
else
	themax = allnum
end if


i = 0

if trim(request("isremove")) = "0" or trim(request("isremove")) = "" then
	if trim(request("mode")) = "move" then
		do while i <= themax
			if trim(request("check" & i)) <> "" then
				ei.MoveMail Session("wem"), trim(request("check" & i)), trim(request("mto"))
			end if

		    i = i + 1
		loop
	else
		do while i <= themax
			if trim(request("check" & i)) <> "" then
				tmpfile = trim(request("check" & i))
				tmpfile = Mid(tmpfile, Len(tmpfile) - 2, 3)

				if tmpfile = "del" then
					ei.DelMail Session("wem"), trim(request("check" & i))
				else
					ei.MoveMail Session("wem"), trim(request("check" & i)), "del"
				end if
			end if

		    i = i + 1
		loop
	end if
else
	do while i <= themax
		if trim(request("check" & i)) <> "" then
			ei.DelMail Session("wem"), trim(request("check" & i))
		end if

	    i = i + 1
	loop
end if

set ei = nothing


if err.Number = 0 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 "err.asp"
end if
%>