Используйте компонент EasyMailObject для обработки исходного кода по почте обмена в ASP --- Файл вызван при удалении почты (mail_prc.asp)
< %@ Language = vbscript %>
<%
'**************************************************
'Этот файл вызывается при удалении электронной почты
Автор: Awayeah
«Электронная почта: [email protected]
'**************************************************
Dim CC, CC1, SEP, DD
'Получите общее количество электронных писем
msgcount = session ("msgcount")
sep = ","
для i = 1 до msgcount
dd = "c"+cstr (i)
msgid = cstr (request.form (dd))
Если msgid = "" Тогда
CC1 = CC1+MSGID
еще
CC1 = CC1+MSGID+SEP
конец, если
следующий
Если len (cc1) = 0, тогда
Response.redirect "maillist1.asp"
конец, если
CC1 = слева (CC1, Len (CC1) -1)
тусклый обр
arr = split (cc1, ",")
SET POP3 = CREATEOBJECT ("ESYMAIL.POP3.5")
pop3.account = session ("straccount")
pop3.password = session ("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>
<Голова>
<Meta name = "Generator" Content = "Microsoft Visual Studio 6.0">
</Head>
<Тело>
</body>
</html>