Используйте компонент easyMailObject для обработки исходного кода обмена почтовой почтой в ASP --- Прочтите предмет почты и размер (maillist1.asp)
< %@ Language = "vbscript" %>
<%
'********************************************* *****
«Этот файл перечисляет все электронные письма и устанавливает окно отображения содержимого почты как пустое окно
Автор: Awayeah
«Электронная почта: [email protected]
'********************************************* *****
%>
<script language = vbscript>
parent.frmbottom.location.href = "blank.htm"
sub cmdel_onclick ()
'Удалить электронное письмо
frmail.submit
Конец суб
</script>
<%
Если session ("straccount") = "" или session ("strpassword") = "" Тогда
Response.write ("<html> <tite> Ошибка, еще не вошла в систему </title> <body> <p align = center> <br> <br> Вы еще не вошли, пожалуйста, выходите из системы! > <br> ")
Response.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> ")
Response.end
конец, если
%>
<html>
<голова>
<title> Получить электронную почту </title>
</head>
<style>
<!-
{Text-Decoration: нет}
->
</Style>
<body bgcolor = "#008080" text = "#000000">
<%
'Определите адрес почтового сервера
strserver = session ("strserver")
'Определите учетную запись
straccount = session ("straccount")
'Определите пароль
strpassword = session ("strpassword")
'Установите различные свойства компонента
SET POP3 = CREATEOBJECT ("ESYMAIL.POP3.5")
Pop3.licensekey = "awa/s19i500r1ax30c0r3100"
Pop3.mailserver = strserver
Pop3.account = straccount
Pop3.password = strpassword
POP3.PREREDREDBODYFORMAT = 1
POP3.Timeout = 120
x = pop3.connect
Если x <> 0, то
Response.write "<p align = center> Ошибка соединения:" + cstr (x) + "<br> <br> Пожалуйста, свяжитесь с администратором"
POP3.Disconnect
Response.end
Конец, если
x = pop3.downloadmessages (0)
Если x <> 0, то
Response.write "Ошибка загрузки:" + cstr (x) + "<br> <br> Пожалуйста, свяжитесь с администратором"
POP3.Disconnect
Response.end
Конец, если%>
<p> <br> </p>
<form name = "frmail" action = "mail_prc.asp" method = "post">
<Центр>
<Таблица сотока Scelpocing = "0" cellPadding = "0" BorderColor = "#000080" bgcolor = "#fffff">
<tr> <td colspan = 6 align = "center">
<%
'Обработка страниц
Если запрос.queryString ("currentPage") = "" then
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, то
Последняя страница = 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>
<%session ("msgcount") = pop3.messages.count%>
</tr>
<tr>
<td align = "center"> число </td>
<td align = "center"> from/reply </td>
<td align = "center"> тема </td>
<td align = "center"> date </td>
<td align = "center"> size </td>
<td align = "center"> выберите </td>
</tr>
<%для i = sd до ed%>
<tr>
<td align = "center"> <%= i%> </td>
<%
FW = "Ответить:"+Заменить (pop3.messages.item (i) .subject, Space (1), "_")
%>
<Td>
<%приемник = pop3.messages.item (i) .from%>
<%if pop3.message.item (i) .fromaddr = "" Тогда%>
<a href = "">
<%еще
%>
<a href =#onclick = javascript: window.open ('sendmail1.asp? addr = <%= pop3.messages.item (i) .fromaddr%> & subject = <%= fw%>', 'sendnew', ' ширина = 600, высота = 480, прокрутки = да ');>
<%конец, если%>
<%if trim (приемник) = "" Тогда
response.write "Anonymous </a>"%>
<%else%>
<a href =#onclick = javascript: window.open ('sendmail1.asp? addr = <%= pop3.messages.item (i) .fromaddr%> & subject = <%= fw%>', 'sendnew', ' ширина = 600, высота = 480, прокрутки = да ');>
<font face = "宋体" size = "2">
<%= Pop3.messages.item (i) .from%> </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) = "" then
response.write "Нет темы"
еще
response.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 = "fackbox" name = "c <%= i%>" value = "<%= i%>"> </td>
</tr>
<%Далее
POP3.Disconnect
%>
</table>
</center>
<p align = "center"> <input type = "кнопка" name = "cmdel" value = "delete"> </p>
</form>
<div align = "center">
<таблица сотока Scelpocing = "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> </div>
</body>
</html>