ใช้ส่วนประกอบ EasyMailObject เพื่อประมวลผลซอร์สโค้ดเมลใน ASP --- ไฟล์ที่เรียกว่าเมื่อลบเมล (mail_prc.asp)
< %@ language = vbscript %>
-
-
'ไฟล์นี้ถูกเรียกเมื่อลบอีเมล
'ผู้แต่ง: Awayeah
'อีเมล: [email protected]
-
Dim CC, CC1, SEP, DD
'รับจำนวนอีเมลทั้งหมด
msgcount = เซสชัน ("msgcount")
ก.ย. = ","
สำหรับ i = 1 ถึง msgCount
dd = "c"+cstr (i)
MSGID = CSTR (request.Form (DD))
ถ้า msgid = "" แล้ว
CC1 = CC1+MSGID
อื่น
cc1 = cc1+msgid+ก.ย.
สิ้นสุดถ้า
ต่อไป
ถ้า len (cc1) = 0 แล้ว
Response.redirect "Maillist1.asp"
สิ้นสุดถ้า
CC1 = ซ้าย (CC1, LEN (CC1) -1)
Dim arr
arr = split (cc1, ",")
ตั้งค่า pop3 = createObject ("easymail.pop3.5")
pop3.account = เซสชัน ("straccount")
pop3.password = เซสชัน ("strpassword")
pop3.mailserver = "192.9.200.89"
POP3.LicenseKey = "AWA/S19I500R1AX30C0R3100"
x = pop3.connect ()
สำหรับ i = 0 ถึง Ubund (arr)
arr (i) = clng (arr (i))
y = pop3.downloadheaders
'ลบอีเมล
x = pop3.deletesinglemessage (arr (i))
ถ้า x <> 0 แล้ว
'response.write "<p Align = center> <br> <br> เกิดข้อผิดพลาดเมื่อลบอีเมล (" + cstr (x) + ") โปรดติดต่อผู้ดูแลระบบ <br> <br>"
'response.write "<a href =' maillist1.asp '> return </a> </p>"
POP3.Disconnect
Response.end
อื่น
'Response.write "ข้อความถูกลบสำเร็จ"
'response.write ""
'pop3.disconnect
สิ้นสุดถ้า
ต่อไป
POP3.Disconnect
Response.redirect "Maillist1.asp"
-
<html>
<head>
<meta name = "generator" content = "Microsoft Visual Studio 6.0">>
</head>
<body>
</body>
</html>