showatt.asp

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

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

dim a
set a = server.createobject("easymail.emmail")
'-----------------------------------------

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

if sname <> "" and sfname <> "" then
	if Session("wem") = "" then
		openresult = a.OpenFriendFolder(trim(request.Cookies("name")), sname, sfname)
	else
		openresult = a.OpenFriendFolder(Session("wem"), sname, sfname)
	end if

	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



if mode = "post" then
	a.IsInPublicFolder = true
end if


i = trim(request("count"))

filename = trim(request("filename"))

pt = trim(request("pt"))

if Session("wem") = "" then
	if pt <> "" then
		a.LoadAll1 trim(request.Cookies("name")), filename, CDbl(pt)
	else
		a.LoadAll trim(request.Cookies("name")), filename
	end if
else
	if pt <> "" then
		a.LoadAll1 Session("wem"), filename, CDbl(pt)
	else
		a.LoadAll Session("wem"), filename
	end if
end if

Response.ContentType = "text/plain"
a.ShowAttachment cint(i)

'-----------------------------------------
set a = nothing

Response.End
%>