Используйте компонент easyMailObject для обработки исходного кода обмена почтовым кодом в ASP-Reade Mail Content и вложения (showbody1.asp)
< %@ Language = "vbscript" %>
<%
'********************************************* *****
'Этот файл показывает контент и вложения электронной почты
Автор: Awayeah
«Электронная почта: [email protected]
'********************************************* *****
%>
<html>
<голова>
<title> прочитать электронное письмо </title>
</head>
<тело>
<%
Установите POP3 = SESSION ("POP3")
x = pop3.connect ()
Если x <> 0, то
Response.write "Ошибка соединения:" + cstr (x)
POP3.Disconnect
Конец, если
y = pop3.downloadheaders
j = pop3.getmessagenumfromid (request.querystring ("id")))
msg = pop3.downloadsinglemessage (j)
'Установите объект сообщения, чтобы указать на это загруженное сообщение
Установить сообщение = pop3.messages (msg)
'Показать контент по электронной почте
Response.write Заменить (message.bodytext, chr (13), "<br>")
%>
<%
'Если сообщение имеет вложение, будет отображаться имя файла вложения и размер файла
Если сообщение.attachments.count> 0, тогда%>
<p> </p>
<hr>
<таблица границы = 1 align = "Left" CellPacing = "0">
<tr> <td> Имя файла </td> <td> size </td> <tr>
<%
Для k = 1 to message.attachments.count
Response.write ("<tr> <td>")%>
<a href =# onclick = javascript: window.open ('saveatt.asp? msgid = <%= j%> & attid = <%= k%>', 'getatt', 'ширина = 600, высота = 440, scrollbars = да ');>
<%= Message.attachments (k) .name%> </a> </td> <td>
<%Response.write cstr (message.attachments (k) .size)
Response.write "</td> </tr>"
Следующий
%>
</table>
<%
конец, если
POP3.Disconnect
%>
</body>
</html>