<html> <head> <title>讀郵件</title> </head> <body> <% SET POP3=session("POP3") x = POP3.Connect()
If x <> 0 Then Response.Write "連接錯誤: " + CStr(x) POP3.Disconnect End If y = POP3.DownloadHeaders j=pop3.GetMessageNumFromID(request.querystring("id")) msg = POP3.DownloadSingleMessage(j) 'Set Message Object to point to that downloaded message Set Message = POP3.Messages(msg) '顯示郵件內(nèi)容 Response.Write replace(Message.bodytext,chr(13),"<br>") %> <% '如果該郵件有附件，則顯示附件文件名和文件大小 if message.Attachments.Count>0 then%> <P></p> <hr> <table border=1 align="left" cellspacing="0"> <tr><td>文件名</td><td>大小</td><tr> <% For k = 1 To message.Attachments.Count Response.Write ("<tr><td>")%> <a href=# onClick=javascript:window.open('saveatt.asp?msgid=<%=j%>&attid=<%=k%>','getatt','width=600,height=440,scrollbars=yes');> <%=Message.Attachments(k).name%></a></td><td> <%Response.Write cstr(Message.Attachments(k).size) Response.Write "</td></tr>" Next %> </table> <% end if POP3.Disconnect %> </body> </html>
