📄 showmail.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim ei
set ei = server.createobject("easymail.emmail")
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
if sname = "" or sfname = "" then
dim pf
set pf = server.createobject("easymail.PerFolders")
pf.Load Session("wem")
end if
'-----------------------------------------
filename = trim(request("filename"))
pt = trim(request("pt"))
subismessage = false
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
subismessage = true
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 window_onload() {
headmessage();
onfc.focus();
}
function back() {
<% if trim(request("gourl")) = "" then %>
history.back();
<% else %>
location.href = "<%=trim(request("gourl")) %>&<%=getGRSN() %>";
<% end if %>
}
<%
if sname = "" or sfname = "" then
%>
function movemail() {
prevnext();
var omode = "<%=trim(request("gourl")) %>";
if (omode.indexOf("mode=" + mto.value) == -1)
delleftfilename("<%=filename %>");
<%
if Session("delProc") = 0 then
%>
location.href = "movemail.asp?filename=<%=filename %>&mto=" + mto.value + "&<%=getGRSN() %>&gourl=<%=Server.URLEncode(trim(request("gourl"))) %>";
<% else %>
location.href="movemail.asp?filename=<%=filename %>&<%=getGRSN() %>&mto=" + mto.value + pdeladd;
<% end if %>
}
function delthis() {
prevnext();
delleftfilename("<%=filename %>");
<%
if Session("delProc") = 0 then
%>
location.href="delmail.asp?filename=<%=filename %>&<%=getGRSN() %>&gourl=<%=Server.URLEncode(trim(request("gourl"))) %>";
<% else %>
location.href="delmail.asp?filename=<%=filename %>&<%=getGRSN() %>" + pdeladd;
<% end if %>
}
function realdelthis() {
prevnext();
delleftfilename("<%=filename %>");
<%
if Session("delProc") = 0 then
%>
location.href="delmail.asp?realdel=1&filename=<%=filename %>&<%=getGRSN() %>&gourl=<%=Server.URLEncode(trim(request("gourl"))) %>";
<% else %>
location.href="delmail.asp?realdel=1&filename=<%=filename %>&<%=getGRSN() %>" + pdeladd;
<% end if %>
}
<%
end if
%>
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 delleftfilename(fname) {
var s = parent.f1.temp.value;
var sp = s.indexOf('\t' + fname);
var newval;
newval = s.substring(0, sp);
newval = newval + s.substring(sp + fname.length + 1);
parent.f1.temp.value = newval;
}
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() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) %>&gourl=<%=Server.URLEncode(trim(request("gourl"))) %>";
if (isnext == '0' && mprev != "")
location.href = "showmail.asp?filename=" + mprev + "&<%=getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) %>&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 headmessage() {
var theObj;
theObj = eval("document.all(\"headMessage\")");
if (isshow == false)
{
var instr = "<%
ht = server.htmlencode(ei.HeadMessage)
ht = replace(ht, Chr(13), "<br>\")
ht = replace(ht, Chr(32), " ")
ht = replace(ht, Chr(9), " ")
response.write ht
%>";
instr = "<table width='95%' align='center' border='0' bgcolor='#dbeaf5' cellspacing='0' style='border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'><tr><td align='center' bgcolor='#dbeaf5' style='border-bottom:1px #8CA5B5 solid;'><a href='javascript:headmessage()'>Message Header</a></td></tr><tr><td>" + instr + "</td></tr></table>"
theObj.innerHTML = instr;
isshow = true;
}
else
{
theObj.innerHTML = "<table width='95%' align='center' border='0' bgcolor='#dbeaf5' cellspacing='0' style='border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'><tr><td align='center' bgcolor='#dbeaf5'><a href='javascript:headmessage()'>Message Header</a></td></tr></table>";
isshow = false;
}
}
function saveatt(anum) {
location.href = "mail2att.asp?<%=getGRSN() %>&filename=<%=filename %>&sname=<%=sname %>&sfname=<%=sfname %><%
if pt <> "" then
response.write "&pt=" & pt
end if
if bd <> "" then
response.write "&bd=" & Server.URLEncode(bd)
end if
%>&attnum=" + anum;
}
function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}
// -->
</script>
<BODY id="onfc" LANGUAGE=javascript onload="return window_onload()">
<br>
<%
if subismessage = false then
%>
<table width="95%" border="0" align="center" bgcolor="#EFF7FF" cellspacing="0" style="border:1px #8CA5B5 solid;">
<tr>
<td colspan="2" nowrap>
<div align="center"><a href="wframe.asp?mode=reply&<%=getGRSN() %>&filename=<%=filename & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&backurl=showmail.asp?" & Server.URLEncode(trim(Request.QueryString)) %>">Reply</a>
<a href="wframe.asp?mode=replyall&<%=getGRSN() %>&filename=<%=filename & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&backurl=showmail.asp?" & Server.URLEncode(trim(Request.QueryString)) %>">Reply All</a>
<%
if ei.IsSaveMail = false then
%>
<a href="wframe.asp?mode=forward&<%=getGRSN() %>&filename=<%=filename & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&backurl=showmail.asp?" & Server.URLEncode(trim(Request.QueryString)) %>">Forward</a>
<%
else
%>
<a href="wframe.asp?mode=forward&<%=getGRSN() %>&filename=<%=filename & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&backurl=showmail.asp?" & Server.URLEncode(trim(Request.QueryString)) %>">Resend</a>
<%
end if
%>
<a href="delivermail.asp?filename=<%=filename %>&<%=getGRSN() & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) %>&backurl=<%=Server.URLEncode(trim(Request.QueryString)) %>">Transfer</a>
<%
if sname = "" or sfname = "" then
%>
<a href="javascript:delthis()">Delete</a>
<a href="javascript:realdelthis()">Expunge</a>
<a href="javascript:movemail()">Move to:</a>
<select name="mto" class="drpdwn" size="1">
<option value="del">Trash</option>
<option value="in">Inbox</option>
<option value="out">Draft</option>
<option value="sed">Sent</option>
<%
pfNumber = pf.FolderCount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -