模板
教程
環境
性能
功能
管理
為imail和Mdaemon設計Webmail---讀取郵件內容(showbody1.asp)
<%
@#*********************************
@#這是顯示郵件內容窗口的文件，根據郵件列示窗口(maillist1.asp)傳來的郵件ID來顯示所選的郵件
@#*********************************
%>
<html>
<head>
<title>讀郵件</title>
</head>
<body>
<%
i=clng(Request.QueryString("id")) @#要顯示郵件的ID
strserver=session("strserver")
strAclearcase/" target="_blank" >ccount=session("straccount")
strPassword=session("strpassword")
Set POP3 = CreateObject("EasyMail.POP3.5")
POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"
POP3.MailServer = strServer
POP3.Account = strAccount
POP3.Password = strPassword
pop3.PreferredBodyFormat=1 @#指定內容顯示格式
pop3.TimeOut=300
x = POP3.Connect
If x <> 0 Then
Response.Write "<p align=center>連接錯誤: " + CStr(x) + "<br><br>請和管理員聯系"
POP3.Disconnect
Response.End
End If
x = POP3.DownloadMessages(0)
If x <> 0 Then
Response.Write "下載錯誤: " + CStr(x) +"<br><br>請和管理員聯系"
POP3.Disconnect
Response.End
End If
Response.Write replace(POP3.Messages.item(i).bodytext,chr(13),"<br>") @#顯示郵件正文
Response.Write "<hr>"
if pop3.messages.item(i).Attachments.Count>0 then @#如果該郵件有附件
%>
<P></p>
<table border=1 align="left" cellspacing="0">
<tr><td>文件名</td><td>大小</td><tr>
<%
For k = 1 To pop3.messages.item(i).Attachments.Count @#按附件數循環顯示所有附件名
Response.Write ("<tr><td>")%>
<a href=# onClick=javascript:window.open(@#saveatt.asp?msgid=<%=i%>&attid=<%=k%>@#,@#getatt@#,@#width=640,height=480,scrollbars=yes@#);>
<%=pop3.Messages.item(i).Attachments(k).name%></a></td><td>
<%Response.Write cstr(pop3.Messages.item(i).Attachments(k).size)
Response.Write "</td></tr>"
Next
%>
</table>
<%
end if
POP3.Disconnect
@# Set POP3 = Nothing
%>
</body>
</html>
