📄 showmail.asp
字号:
i = 0
do while i < pfNumber
spfname = pf.GetFolderName(i)
response.write "<option value=""" & spfname & """>" & server.htmlencode(spfname) & "</option>"
spfname = NULL
i = i + 1
loop
%>
</select>
<%
end if
%>
<Script>writepn();</Script>
<a href="javascript:back()">Return</a>
</div>
</td>
</tr>
</table>
<%
end if
%>
<br>
<p id="headMessage"></p>
<table width="95%" border="0" bgColor="#93bee2" align="center" cellspacing="0" style='border:1px #336699 solid;'>
<tr>
<td width="23%" height="20">
<div align="right"><font class="s" color="#104A7B"><b>Date: </b></font></div>
</td>
<td width="77%" bgcolor="#93bee2" 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>
<td height="20">
<div align="right"><font class="s" color="#104A7B"><b>Priority: </b></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'><%
xmsp = ei.XMSMailPriority
if xmsp = "High" then
Response.Write "<font color='#FF3333'>High</font>"
elseif xmsp = "Low" then
Response.Write "Low"
else
Response.Write "Normal"
end if
%> </td>
</tr>
<tr>
<td height="20">
<div align="right"><font class="s" color="#104A7B"><b>Sender: </b></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'><%=server.htmlencode(ei.FromName) %> </td>
</tr>
<tr>
<td height="20">
<div align="right"><font class="s" color="#104A7B"><b>Address of sender: </b></font></div>
</td>
<td bgcolor="#93bee2" 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>
<td height="20">
<div align="right"><font class="s" color="#104A7B"><b>Address of recipient: </b></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'><%
receiver = server.htmlencode(ei.Receiver)
receiver = replace(receiver, "'", "")
receiver = replace(receiver, """", "")
dim ss
dim se
item = ""
ss = 1
se = 1
Do While 1
se = InStr(ss, receiver, ",")
If se <> 0 Then
item = Mid(receiver, ss, se - ss)
response.write item
if InStr(item, "@") then
response.write " <a href='javascript:add2ads(""" & item & """, """ & item & """)'><img src='images\address.gif' border='0' align='absmiddle'> Save Address</a> <a href='javascript:add2kill(""" & item & """)'><img src='images\filter.gif' border='0' align='absmiddle'> Block</a><br>"
end if
Else
item = Mid(receiver, ss)
response.write item
if InStr(item, "@") then
response.write " <a href='javascript:add2ads(""" & item & """, """ & item & """)'><img src='images\address.gif' border='0' align='absmiddle'> Save Address</a> <a href='javascript:add2kill(""" & item & """)'><img src='images\filter.gif' border='0' align='absmiddle'> Block</a>"
end if
Exit Do
End If
ss = se + 1
Loop
%> </td>
</tr>
<%
if ei.cc <> "" then
%>
<tr>
<td height="20">
<div align="right"><font class="s" color="#104A7B"><b>Cc: </b></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'><%
receiver = server.htmlencode(ei.cc)
receiver = replace(receiver, "'", "")
receiver = replace(receiver, """", "")
ss = 1
se = 1
item = ""
Do While 1
se = InStr(ss, receiver, ",")
If se <> 0 Then
item = Mid(receiver, ss, se - ss)
response.write item
if InStr(item, "@") then
response.write " <a href='javascript:add2ads(""" & item & """, """ & item & """)'><img src='images\address.gif' border='0' align='absmiddle'> Save Address</a> <a href='javascript:add2kill(""" & item & """)'><img src='images\filter.gif' border='0' align='absmiddle'> Block</a><br>"
end if
Else
item = Mid(receiver, ss)
response.write item
if InStr(item, "@") then
response.write " <a href='javascript:add2ads(""" & item & """, """ & item & """)'><img src='images\address.gif' border='0' align='absmiddle'> Save Address</a> <a href='javascript:add2kill(""" & item & """)'><img src='images\filter.gif' border='0' align='absmiddle'> Block</a>"
end if
Exit Do
End If
ss = se + 1
Loop
%> </td>
</tr>
<%
end if
if ei.IsTimerSendMail = true then
ei.GetTimerSendMailInfo y, m, d, h
outtimer = "[" & y & "-" & m & "-" & d & " " & h & ":00]"
%>
<tr>
<td height="20">
<div align="right"><font color="#FF3333"><font class="s" color="#104A7B"><b>Scheduled time: </b></font></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'> <%
response.write outtimer
if sname = "" or sfname = "" then
%> [ <a href="changetime.asp?<%=getGRSN() %>&<%=Request.QueryString %>"><img src="images\timeredit.gif" border='0' alt='Modify mail scheduled time'></a> ]
<%
end if
%></td>
</tr>
<%
end if
%>
<tr>
<%
if ei.IsHtmlMail = false then
%>
<td height="20" style='border-bottom:1px #336699 solid;'>
<%else%>
<td height="20">
<%end if%>
<div align="right"><font class="s" color="#104A7B"><b>Subject: </b></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'> <%=server.htmlencode(ei.subject) %> </td>
</tr>
<%
i = 0
if ei.IsHtmlMail = true then
i = 1
%>
<tr>
<td height="20" style='border-bottom:1px #336699 solid;'>
<div align="right"><font class="s" color="#104A7B"><b>HTML: </b></font></div>
</td>
<td bgcolor="#93bee2" style='border-bottom:1px #336699 solid;'><font class="s" color="#104A7B"><b>
<%
response.write "<a href=""showatt.asp?filename=" & filename & "&count=0&pt=" & pt & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & "View HTML Mail" & "</a>"
%>
</b></font></td>
</tr>
<%
end if
%>
<tr bgcolor="#FFFFFF">
<td colspan="2" 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 bgcolor="#FFFFFF">
<td colspan="2">
<%
if ei.IsHtmlMail = true then
i = 1
do while i < allnum
if ei.GetAttachmentName(i) = "" then
response.write i & ".<a href=""showatt.asp?filename=" & filename & "&count=" & i & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & "html" & "</a>"
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?filename=" & filename & "&count=" & i & "&pt=" & pt & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>"
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=" & ei.GetAttachmentPT(i) & "&bd=" & Server.URLEncode(ei.GetEmlAttachmentBD(i)) & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>"
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
i = i + 1
loop
else
do while i < allnum
if ei.GetAttachmentName(i) = "" then
response.write i+1 & ".<a href=""showatt.asp?filename=" & filename & "&count=" & i & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & "html" & "</a>"
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?filename=" & filename & "&count=" & i & "&pt=" & pt & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>"
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=" & ei.GetAttachmentPT(i) & "&bd=" & Server.URLEncode(ei.GetEmlAttachmentBD(i)) & "&sname=" & Server.URLEncode(sname) & "&sfname=" & Server.URLEncode(sfname) & "&" & getGRSN() & """ target='_blank'>" & ei.GetAttachmentName(i) & "</a>"
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
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>
<%
if sname = "" or sfname = "" then
set pf = nothing
end if
set ei = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -