这是源代码:
<% @LANGUAGE=VBSCRIPT %>
<%
Set pop3 = Server.CreateObject( "JMail.pop3" ) '创建对象
pop3.Connect "mingkunlove", "******", "pop3.163.com" '连接服务器 pop3.connect
set msg=server.CreateObject("jmail.message")
separator = ", "
'获得附件
Set Attachments = msg.Attachments
separator = ", "
Response.Write "<br>"&msg.size&"<br>"
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "d:\" & at.Name )
getAttachments = getAttachments & "<a href=""" & at.Name &""">" &_
at.Name & "(" & at.Size & " bytes)" & "</a>" & separator
Next
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<%
if pop3.count > 0 then
%>
<tr>
<td><p> </p>
<p align="center"><%= "您有 " & pop3.count & " 封邮件在您的邮件里<br><br>" %></p></td>
</tr>
<tr>
<td height="300"><table width="100%" border="0">
<tr>
<td colspan="3"> </td>
<td width="341"> </td>
</tr>
<%
'For i = 0 To pop3.count - 1
Set msg = pop3.Messages.item(1)
%>
<tr>
<td width="18"> </td>
<td width="107" valign="top"><div align="right">主题:</div></td>
<td width="16"> </td>
<td> <%=msg.Subject%></td>
</tr>
<tr>
<td> </td>
<td><div align="right" valign="top">发件人:</div></td>
<td> </td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td> </td>
<td valign="top"><div align="right">内容:</div></td>
<td> </td>
<td>
<pre><%= msg.Body %></pre></td>
</tr>
<tr>
<td> </td>
<td valign="top"><div align="right">附件:</div></td>
<td> </td>
<td><%= getAttachments %></td>
</tr>
<%
'next
%>
<tr>
<td colspan="4"><div align="right"></div></td>
</tr>
<tr>
<td colspan="4"><table width=100% align=center>
<tr>
<td><p align="center"><%=msg%><br>
<br>
<a href='javascript:history.back()'>[返回]</a></p></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%
else
response.write("您的邮箱中还没有未读邮件!!")
end if
pop3.Disconnect
%>