mail2att.asp

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

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

<%
mode = trim(request("mode"))

attnum = trim(request("attnum"))

if IsNumeric(attnum) = false then
	Response.Redirect "err.asp?errstr=Error"
end if


dim ei
set ei = server.createobject("easymail.emmail")

if mode = "post" then
	ei.IsInPublicFolder = true
	ei.PublicFolderName = trim(request("iniid"))
end if

sname = trim(request("sname"))
sfname = trim(request("sfname"))

if sname <> "" and sfname <> "" then
	openresult = ei.OpenFriendFolder(Session("wem"), sname, sfname)

	if openresult = -1 then
		set ei = nothing
		Response.Redirect "err.asp?errstr=Error"
	elseif  openresult = 1 then
		set ei = nothing
		Response.Redirect "err.asp?errstr=Invalid password"
	elseif  openresult = 2 then
		set ei = nothing
		Response.Redirect "err.asp?errstr=Folder does not exist or is inaccessible"
	end if
end if

'-----------------------------------------
filename = trim(request("filename"))

pt = trim(request("pt"))

if pt <> "" then
	bd = trim(request("bd"))

	if bd <> "" then
		ei.LoadAll2 Session("wem"), filename, CDbl(pt), bd
	else
		ei.LoadAll1 Session("wem"), filename, CDbl(pt)
	end if
else
	ei.LoadAll Session("wem"), filename
end if


isok = ei.SaveToAttFile(CInt(attnum), Session("wem"))

set ei = nothing

if isok = true then
	Response.Redirect "ok.asp?" & getGRSN()
else
	Response.Redirect "err.asp?" & getGRSN()
end if
%>