استخدم مكون EasyMailObject لمعالجة رمز مصدر بريد Exchange في ASP --- اقرأ موضوع البريد وحجمه (Maillist1.asp)
<٪@ language = "vbscript" ٪>
<٪
'************************************************* *****
يسرد هذا الملف جميع رسائل البريد الإلكتروني ويقوم بتعيين نافذة عرض محتوى البريد كنافذة فارغة
المؤلف: بعيدا
'البريد الإلكتروني: [email protected]
'************************************************* *****
٪>
<لغة البرنامج النصي = vbscript>
parent.frmbottom.location.href = "Blank.htm"
sub cmdel_onclick ()
حذف البريد الإلكتروني
frmail.submit
نهاية الفرعية
</script>
<٪
إذا كانت الجلسة ("straccount") = "" أو الجلسة ("broprassword") = "" ثم
Response.write ("<html> <title> خطأ ، لم يتم تسجيل الدخول حتى الآن </title> <body> <p align = center> <br> <br> لم يتم تسجيل الدخول حتى الآن ، يرجى تسجيل الخروج أولاً! <br > <br> ")
dropect.write ("<a href = 'login.asp' target = '_ top'> <img src = 'http: //www.newap.net/article/asp/example/2005/logout.jpg' border = 0 >/a> </p> </body> </html> ")
استجابة
إنهاء إذا
٪>
<html>
<head>
<title> تلقي البريد الإلكتروني </title>
</head>
<style>
<!-
A {text-decoration: none}
->
</style>
<body bgcolor = "#008080" text = "#000000">
<٪
حدد عنوان خادم البريد
Strserver = جلسة ("Strserver")
حدد الحساب
Straccount = جلسة ("Straccount")
حدد كلمة المرور
straPsword = Session ("strapsword")
قم بتعيين خصائص مختلفة للمكون
set pop3 = createObject ("easymail.pop3.5")
pop3.licensekey = "AWA/S19I500R1AX30C0R3100"
pop3.mailserver = strserver
pop3.Account = straccount
pop3.password = strpassword
pop3.preferredbodyFormat = 1
pop3.timeout = 120
x = pop3.connect
إذا كان x <> 0 ثم
استجابة. write "<p align = center> خطأ في الاتصال:" + CSTR (x) + "<br> <br> يرجى الاتصال بالمسؤول"
pop3.disconnect
استجابة
إنهاء إذا
x = pop3.downloadMessages (0)
إذا كان x <> 0 ثم
Response.write "خطأ تنزيل:" + CSTR (x) + "<br> <br> يرجى الاتصال بالمسؤول"
pop3.disconnect
استجابة
نهاية إذا ٪>
<p> <br> </p>
<form name = "frmail" Action = "mail_prc.asp" method = "post">
<centre>
<table cellpacing = "0" cellpadding = "0" borderColor = "#000080" bgColor = "#fffff">
<tr> <td colspan = 6 align = "center">
<٪
معالجة ترقيم الصفحات
إذا كان request.querystring ("CurrentPage") = "" ثم
CP = 1
آخر
cp = request.querystring ("CurrentPage")
إنهاء إذا
احصل على إجمالي عدد رسائل البريد الإلكتروني
m_count = pop3.messages.count
إذا كان m_count <= 10 ثم
Pagenum = 1
SD = 1
ed = m_count
آخر
Pagenum = int (m_count/10) +1
إذا كان CLNG (CP) <> Pagenum ثم
LastPage = m_count mod 10
SD = (CLNG (CP) -1)*10+1
ed = clng (cp)*10
آخر
SD = (CLNG (CP) -1)*10+1
ed = m_count
إنهاء إذا
إنهاء إذا
٪>
لديك <font color = "ff00ff"> <٪ = pop3.messages.count ٪> </font> رسائل البريد الإلكتروني. </td>
<٪ جلسة ("msgCount") = pop3.messages.count ٪>
</r>
<tr>
<td align = "center"> الرقم </td>
<td align = "center"> من/الرد </td>
<td align = "center"> السمة </td>
<td align = "center"> التاريخ </td>
<td align = "center"> الحجم </td>
<td align = "center"> حدد </td>
</r>
<٪ لـ i = sd to ed ٪>
<tr>
<td align = "center"> <٪ = i ٪> </td>
<٪
fw = "الرد:"+استبدال (pop3.messages.item (i) .subject ، الفضاء (1) ، "_")
٪>
<td>
<٪ receiver = pop3.messages.item (i). من ٪>
<٪ if pop3.messages.item (i). fromaddr = "" then ٪>
<a href = "">
<٪ آخر
٪>
<a href =#onclick = javaScript: window.open ('sendmail1.asp؟ addr = <٪ = pop3.messages.item (i). fromaddr ٪> & tource = <٪ = fw ٪>' ، 'sendnew' ، '،' ، ' العرض = 600 ، الارتفاع = 480 ، شريط التمرير = نعم) ؛>
<٪ نهاية إذا ٪>
<٪ إذا تقطع (جهاز الاستقبال) = "" ثم
استجابة. الكتابة "مجهول </a>" ٪>
<٪ آخر ٪>
<a href =#onclick = javaScript: window.open ('sendmail1.asp؟ addr = <٪ = pop3.messages.item (i). fromaddr ٪> & tource = <٪ = fw ٪>' ، 'sendnew' ، '،' ، ' العرض = 600 ، الارتفاع = 480 ، شريط التمرير = نعم) ؛>
<font face = "宋体" size = "2">
<٪ = pop3.messages.item (i). من ٪> </font>
<٪ نهاية إذا ٪>
</td>
<td>
<٪ msgid = pop3.getMessageId (i) ٪>
<a href = "showbody1.asp؟ id = <٪ = msgid ٪>" target = "frmbottom">
<font face = "宋体" size = "2">
<٪
إذا كان trim (pop3.messages.item (i) .subject) = "" ثم
استجابة. "لا موضوع"
آخر
استجابة. write pop3.messages.item (i) .Subject
إنهاء إذا
٪> </font>
</a> </td>
<td> <font face = "宋体" size = "2"> <٪ = cdate (mid (cSTR (pop3.messages.item (i) .date) ، 6،11)) ٪> </font> </ TD>
<tdwidth = "60"> <font face = "宋体" size = "2"> <٪ = pop3.messages.item (i) .size ٪> </font> </td>
<td> <input type = "checkbox" name = "c <٪ = i ٪>" value = "<٪ = i ٪>"> </td>
</r>
<٪ التالي
pop3.disconnect
٪>
</table>
</center>
<p align = "center"> <input type = "button" name = "cmdel" value = "delete"> </p>
</form>
<div align = "center">
<table cellpacing = "0" cellpadding = "0" borderColor = "#ff0080" bgColor = "#fffff">
<tr> <td> صفحات </td>
<٪ لـ I = 1 إلى Pagenum ٪>
<td> <a href = "maillist1.asp؟ currentpage = <٪ = i ٪>" target = frmtop> <٪ = i ٪> </a> </td>
<٪ التالي ٪>
</tr> </table> </viv>
</body>
</html>