dim pf
set pf = server.createobject("easymail.PerFolders")
pf.Load Session("wem")
if trim(request("mode")) = "del" then
if pf.DeleteFolderByName(trim(request("pfname"))) = FALSE then
response.write "*错误: 请先清空文件夹[" & server.htmlencode(trim(request("pfname"))) & "]后再删除."
else
ischange = TRUE
end if
elseif trim(request("mode")) = "add" then
if pf.MaxPerFolderNumber > pf.FolderCount then
NewName = trim(request("NewName"))
NewName = replace(NewName, Chr(9), " ")
NewName = replace(NewName, """", "")
NewName = replace(NewName, "'", "")
pf.AddFolder NewName
ischange = TRUE
else
response.write "*错误: 私人文件夹数已满."
end if
elseif trim(request("mode")) = "rename" then
NewName = trim(request("NewName"))
NewName = replace(NewName, """", "'")
if pf.CanSetWithReceiveOutMail(NewName) = false and pf.Get_EnableRecOutMail(trim(request("pfname"))) = true then
response.write "*错误: 修改允许接收外部邮件的私人文件夹名称时, 新名称不合法."
else
pf.RenameFolder trim(request("pfname")), NewName
ischange = TRUE
end if
end if
if ischange = TRUE then
pf.Save
end if
set pf = nothing
end if
noticemsg = trim(request("noticemsg"))
dim am
set am = server.createobject("easymail.Attachments")
am.Load Session("wem"), Session("tid")
am.RemoveAll
set am = nothing
'-----------------------------------------
dim eusers
set eusers = Application("em")
maxsize = eusers.GetMailBoxSize(Session("wem"))
set eusers = nothing
if maxsize < 0 then
maxsize = 10000
end if
dim ei
set ei = server.createobject("easymail.InfoList")
'-----------------------------------------
ei.LoadSizeInfo Session("wem")
cursize = ei.allMailSize
dim bf
if maxsize > 0 then
bf = CLng((100 * CLng(cursize / 1000)) / maxsize)
if bf = 0 then
if cursize > 0 then
bf = 1
else
bf = 0
end if
end if
else
bf = 100
end if
if bf > 100 then
bf = 100
end if
if bf < 0 then
bf = 0
end if
dim all_mailnum
dim all_mailnewnum
dim all_mailsize