📄 showpfmail.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim ei
set ei = server.createobject("easymail.emmail")
ei.IsInPublicFolder = true
ei.PublicFolderName = trim(request("iniid"))
ei.needAddReadCount = true
'-----------------------------------------
filename = trim(request("filename"))
searchkey = trim(request("searchkey"))
mode = trim(request("mode"))
dim pf
set pf = server.createobject("easymail.PubFolderManager")
pf.load trim(request("iniid"))
permission = pf.Permission
isok = false
if pf.admin <> Session("wem") then
if (permission = 0 or permission = 1) and Session("mail") = pf.GetPostName(filename) then
isok = true
end if
else
isok = true
end if
if mode = "del" then
isok = false
if pf.admin <> Session("wem") then
if permission = 1 and Session("mail") = pf.GetPostName(filename) then
isok = true
end if
else
isok = true
end if
if isok = true then
pf.RemoveItem filename
end if
set pf = nothing
set ei = nothing
gourl = trim(request("gourl"))
if gourl <> "" then
response.redirect gourl & "&" & getGRSN()
else
response.redirect "showallpf.asp?" & getGRSN()
end if
end if
pt = trim(request("pt"))
if pt <> "" then
ei.LoadAll1 Session("wem"), filename, CDbl(pt)
else
ei.LoadAll Session("wem"), filename
end if
ei.timeMode = 4
Response.Cookies("name") = Session("wem")
Response.Cookies("name").Expires = DateAdd("m", 1, Now())
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script language="JavaScript">
<!--
var pdeladd;
var isshow = true;
function back() {
<% if trim(request("gourl")) = "" then %>
history.back();
<% else %>
location.href = "<%=trim(request("gourl")) %>&<%=getGRSN() %>";
<% end if %>
}
function prevnext(isnext){
var s,ss;
var s = parent.f1.temp.value;
ss = s.split("\t");
var i;
for(i = 0; i < ss.length; i++)
{
if (ss[i] == "<%=filename %>")
break;
}
if (i < 0 || i >=ss.length)
return;
var mprev = "";
var mnext = "";
if (i > 0)
mprev = ss[i - 1];
if (i+1 < ss.length)
mnext = ss[i + 1];
if (isnext == '1' && mnext != "")
location.href = "showmail.asp?filename=" + mnext + "&<%=getGRSN() %>&gourl=<%=Server.URLEncode(trim(request("gourl"))) %>";
if (isnext == '0' && mprev != "")
location.href = "showmail.asp?filename=" + mprev + "&<%=getGRSN() %>&gourl=<%=Server.URLEncode(trim(request("gourl"))) %>";
if (mnext != "")
pdeladd = "&gourl=<%=trim(request("gourl")) %>&nextfile=" + mnext;
else
pdeladd = "&gourl=<%=trim(request("gourl")) %>&nextfile=" + mprev;
}
function writepn() {
var s,ss;
var s = parent.f1.temp.value;
ss = s.split("\t");
var i;
for(i = 0; i < ss.length; i++)
{
if (ss[i] == "<%=filename %>")
break;
}
if (i < 0 || i >=ss.length)
return;
var mprev = "";
var mnext = "";
if (i > 0)
mprev = ss[i - 1];
if (i+1 < ss.length)
mnext = ss[i + 1];
var writemprev = "";
var writemnext = "";
if (mprev != "")
writemprev = "<a href=\"javascript:prevnext('0')\"><font face=\"Webdings\" style='font-size:13px'>5</font></a> ";
else
writemprev = "<font face=\"Webdings\" style='font-size:13px'>5</font> ";
if (mnext != "")
writemnext = "<a href=\"javascript:prevnext('1')\"><font face=\"Webdings\" style='font-size:13px'>6</font></a>";
else
writemnext = "<font face=\"Webdings\" style='font-size:13px'>6</font>";
document.write(writemprev + writemnext);
}
function saveatt(anum) {
location.href = "mail2att.asp?<%=getGRSN() %>&mode=post&filename=<%=filename %>&sname=<%=sname %>&sfname=<%=sfname %>&iniid=<%=trim(request("iniid")) %>&attnum=" + anum;
}
function add2ads(vname, vemail) {
location.href = "addinaddress.asp?CName=" + vname + "&<%=getGRSN() %>&Email=" + vemail;
}
function add2kill(vemail) {
location.href = "saveuserkill.asp?fromshowmail=1&<%=getGRSN() %>&mode=addone&kill=" + vemail;
}
function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}
// -->
</script>
<BODY>
<br>
<table width="95%" border="0" align="center" bgcolor="#dbeaf5" cellspacing="0" style="border:1px #8CA5B5 solid;">
<tr>
<td width="13%" height="25"> </td>
<td width="24%"><b><a href="wframe.asp?mode=post&pid=<%=trim(request("pid")) %>&iniid=<%=trim(request("iniid")) & "&" & getGRSN() & "&gourl=" & Server.URLEncode(trim(request("gourl"))) %>">Follow-Up</a></b></td>
<%
if isok = true then
%>
<td width="22%"><b><a href="showpfmail.asp?mode=del&iniid=<%=trim(request("iniid")) %>&filename=<%= filename & "&" & getGRSN() & "&gourl=" & Server.URLEncode(trim(request("gourl"))) %>">Delete</a></b></td>
<td width="20%"><b><a href="wframe.asp?mode=editpost&searchkey=<%=Server.URLEncode(searchkey) %>&iniid=<%=trim(request("iniid")) %>&filename=<%= filename & "&" & getGRSN() & "&gourl=" & Server.URLEncode(trim(request("gourl"))) %>">Edit</a></b></td>
<%
else
%>
<td width="20%"> </td>
<td width="19%"> </td>
<%
end if
%>
<td width="22%"><b><a href="javascript:back()">Return</a></b></td>
</tr>
</table>
<br>
<table width="95%" border="0" align="center" bgcolor="#dbeaf5" cellspacing="0" style="border:1px #336699 solid;">
<tr bgcolor="#93bee2">
<td width="25%" height="20">
<div align="right"><font class="s" color="#104A7B"><b>Date: </b></font></div>
</td>
<td width="75%" style='border-bottom:1px #336699 solid;'><table width="100%" border="0" cellspacing="0"><tr><td><%=ei.Time %></td><td><div align="right"><font class="s" color="#104A7B"><b>Size:</b></font>[<a href="javascript:doZoom(15)">Large</a> <a href="javascript:doZoom(13)">Medium</a> <a href="javascript:doZoom(11)">Small</a>]</div></td></tr></table>
</tr>
<tr bgcolor="#93bee2">
<td width="17%" height="20">
<div align="right"><font class="s" color="#104A7B"><b>Sender: </b></font></div>
</td>
<td width="83%" style='border-bottom:1px #336699 solid;'><%=server.htmlencode(ei.FromName) %> </td>
</tr>
<tr bgcolor="#93bee2">
<td width="17%" height="20">
<div align="right"><font class="s" color="#104A7B"><b>Address of sender: </b></font></div>
</td>
<td width="83%" style='border-bottom:1px #336699 solid;'><%
dim item
receiver = server.htmlencode(ei.FromMail)
receiver = replace(receiver, "'", "")
receiver = replace(receiver, """", "")
item = server.htmlencode(ei.FromName)
item = replace(item, "'", "")
item = replace(item, """", "")
response.write receiver
if InStr(ei.FromMail, "@") then
response.write " <a href='javascript:add2ads(""" & item & """,""" & receiver & """)'><img src='images\address.gif' border='0' align='absmiddle'> Save Address</a> <a href='javascript:add2kill(""" & receiver & """)'><img src='images\filter.gif' border='0' align='absmiddle'> Block</a>"
end if
%> </td>
</tr>
<tr bgcolor="#93bee2">
<td width="17%" height="20">
<div align="right"><font class="s" color="#104A7B"><b>Keyword: </b></font></div>
</td>
<td width="83%" style='border-bottom:1px #336699 solid;'><%=server.htmlencode(searchkey) %> </td>
</tr>
<tr bgcolor="#93bee2">
<%
if ei.IsHtmlMail = false then
%>
<td width="17%" height="20" style='border-bottom:1px #336699 solid;'>
<%else%>
<td width="17%" height="20">
<%end if%>
<div align="right"><font class="s" color="#104A7B"><b>Subject: </b></font></div>
</td>
<td width="83%" style='border-bottom:1px #336699 solid;'><%=server.htmlencode(ei.subject) %> </td>
</tr>
<%
i = 0
if ei.IsHtmlMail = true then
i = 1
%>
<tr bgcolor="#93bee2">
<td width="17%" height="20" style='border-bottom:1px #336699 solid;'>
<div align="right"><font class="s" color="#104A7B"><b>HTML: </b></font></div>
</td>
<td width="83%" style='border-bottom:1px #336699 solid;'>
<%
response.write "<a href=""showatt.asp?mode=post&filename=" & filename & "&count=0&pt=" & pt & "&" & getGRSN() & """ target='_blank'>" & "<font class=""s"" color=""#104A7B""><b>View HTML Mail</b></font>" & "</a>"
%>
</td>
</tr>
<%
end if
%>
<tr>
<td colspan="2" bgcolor="#ffffff" id="zoom">
<%
if ei.ContentType = "text/html" then
t = ei.Text
else
t = server.htmlencode(ei.Text)
if Len(t) < 100000 then
t = ei.ConvText2Html(t)
end if
t = replace(t, Chr(10), "<br>")
t = replace(t, Chr(32) & Chr(32), " ")
t = replace(t, Chr(9), " ")
end if
response.write t
%> </td>
</tr>
<%
allnum = ei.AttachmentCount
if allnum = 1 and ei.IsHtmlMail = true then
allnum = 0
end if
i = 0
if allnum > 0 then
%>
<tr>
<td colspan="2" height="20" bgcolor="#dbeaf5" style='border-top:1px #336699 solid; border-bottom:1px #336699 solid;'>
<div align="center"><font class="s" color="#104A7B"><b>Attachments</b></font></div>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#ffffff">
<%
if ei.IsHtmlMail = true then
i = 1
do while i < allnum
if ei.GetAttachmentName(i) = "" then
response.write i & ".<a href=""showatt.asp?mode=post&filename=" & filename & "&count=" & i & "&" & getGRSN() & """ target='_blank'>" & "html" & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
else
if ei.AttachmentIsMessage(i) = false then
response.write i & ".<a href=""showatt.asp?mode=post&filename=" & filename & "&count=" & i & "&pt=" & pt & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
else
if pt = "" then
response.write i & ".<a href=""showmail.asp?filename=" & filename & "&count=" & i & "&pt=" & ei.GetAttachmentPT(i) & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
else
response.write i & ".<a href=""showmail.asp?filename=" & filename & "&count=" & i & "&pt=" & pt & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
end if
end if
end if
i = i + 1
loop
else
do while i < allnum
if ei.GetAttachmentName(i) = "" then
response.write i+1 & ".<a href=""showatt.asp?mode=post&filename=" & filename & "&count=" & i & "&" & getGRSN() & """ target='_blank'>" & "html" & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
else
if ei.AttachmentIsMessage(i) = false then
response.write i+1 & ".<a href=""showatt.asp?mode=post&filename=" & filename & "&count=" & i & "&pt=" & pt & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
else
if pt = "" then
response.write i+1 & ".<a href=""showmail.asp?filename=" & filename & "&count=" & i & "&pt=" & ei.GetAttachmentPT(i) & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
else
response.write i+1 & ".<a href=""showmail.asp?filename=" & filename & "&count=" & i & "&pt=" & pt & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>" & chr(13)
response.write " <a href=""JavaScript:saveatt(" & i & ")"")><img src='images\saveatt.gif' border='0' align='absmiddle' alt='Save to network storage'></a><br>" & chr(13)
end if
end if
end if
i = i + 1
loop
end if
%> </td>
</tr>
<%
end if
%>
</table>
<br>
<table width="95%" border="0"><tr><td>
<div align="right"><a href="#"><img src='images\gotop.gif' border='0' alt="Back to top"></a></div>
</td></tr>
</table>
<br>
</BODY>
</HTML>
<%
set pf = nothing
set ei = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -