استخدم مكون EasyMailObject لمعالجة رمز مصدر بريد تبادل في ASP-محتوى البريد والمرفقات (showbody1.asp)
<٪@ language = "vbscript" ٪>
<٪
'************************************************* *****
يعرض هذا الملف محتوى ومرفقات البريد الإلكتروني
المؤلف: بعيدا
'البريد الإلكتروني: [email protected]
'************************************************* *****
٪>
<html>
<head>
<title> اقرأ البريد الإلكتروني </title>
</head>
<body>
<٪
تعيين pop3 = الجلسة ("pop3")
x = pop3.connect ()
إذا كان x <> 0 ثم
استجابة. write "خطأ في الاتصال:" + CSTR (x)
pop3.disconnect
إنهاء إذا
y = pop3.DownloadHers
j = pop3.getMessagenumFromid (request.querystring ("id"))
msg = pop3.downloadsinglemessage (j)
قم بتعيين كائن الرسالة للإشارة إلى تلك الرسالة التي تم تنزيلها
تعيين رسالة = pop3.messages (msg)
عرض محتوى البريد الإلكتروني
استجابة. write استبدال (message.bodyText ، chr (13) ، "<br>")
٪>
<٪
إذا كانت الرسالة تحتوي على مرفق ، فسيتم عرض اسم ملف المرفق وحجم الملف
if message.attachments.count> 0 ثم ٪>
<p> </p>
<hr>
<table border = 1 align = "left" cellpacing = "0">
<tr> <td> اسم الملف </td> <td> الحجم </td> <tr>
<٪
لـ k = 1 إلى message.attachments.count
استجابة. write ("<tr> <td>") ٪>
<a href =# onClick = javaScript: window.open ('saveatt.asp؟ msgid = <٪ = j ٪> & attid = <٪ = k ٪>' ، 'getatt' ، 'width = 600 ، height = 440 ، scrollbars = نعم) ؛>
<٪ = message.attachments (k) .name ٪> </a> </td> <td>
<٪ استجابة. CSTR (message.attachments (k) .size)
استجابة. write "</td> </r>"
التالي
٪>
</table>
<٪
إنهاء إذا
pop3.disconnect
٪>
</body>
</html>