模板
教程
環境
性能
功能
管理
為imail和Mdaemon設計Webmail---讀取郵件信息(maillist1.asp)
<%
@#*********************************
@#這是郵件列示窗口，列出所有郵件的發件人、主題、日期、大小等
@#*********************************
%>
<script language=vbscript>
@#把郵件內容顯示窗口置為空窗口
parent.frmbottom.location.href="blank.htm"
sub cmdel_onClick()
frmail.submit
end sub
</script>
<html>
<head>
<title>收郵件</title>
</head>
<STYLE>
<!--
A{text-decoration:none}
-->
</STYLE>
<body bgcolor="#008080" text="#000000">
<%
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%>
<p><br></p><form name="frmail" action="mail_prc.asp" method="POST">
<div align="center">
<table border="1" width="98%" cellspacing="0" cellpadding="0" bordercolor="#000080" bgcolor="#FFFFFF">
<tr><td colspan=6 align="center">
你有<font color="ff00ff"><%=POP3.Messages.Count%></font>封郵件。</td>
<%session("msgcount")=POP3.Messages.Count%>
</tr>
<tr>
<td align="center"> </td>
<td align="center">來自/回復</td>
<td align="center">主題</td>
<td align="center">日期</td>
<td align="center" width=40>大小</td>
<!--<td width="30"><font face="宋體" size="2">刪除</font></td>-->
<td align="center">選</td>
</tr>
<%@#循環顯示所有郵件
for i=pop3.messages.count to 1 step -1
%>
<tr>
<td align="center"><%if POP3.Messages.item(i).attachments.count>0 then @#如果這個郵件有附件則顯示帶附件的圖標
Response.Write "<img src=@#icon/attach.gif@# border=0>"
else
Response.Write "<img src=@#icon/mail.gif@# border=0>"
end if
%></td>
<%
fw="回復:"+replace(POP3.messages.item(i).subject,space(1),"_")
%>
<td>
<%receiver=POP3.Messages.item(i).from
if POP3.Messages.item(i).fromaddr="" then%>
<a href="">
<%else
%>
<a href=# onClick=javascript:window.open(@#sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>@#,@#sendnew@#,@#width=600,height=480,scrollbars=yes@#);>
<%end if%>
<%if trim(receiver)="" then
response.write "匿 名</a>"%>
<%else%>
<a href=# onClick=javascript:window.open(@#sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>@#,@#sendnew@#,@#width=600,height=480,scrollbars=yes@#);>
<font face="宋體" size="2">
<%=POP3.Messages.item(i).From%></font>
<%end if%>
</td>
<td>
<%msgid=POP3.GetMessageID(i) @#取得郵件ID%>
<a href="showbody1.asp?id=<%@#=msgid%><%=i%>" target="frmbottom">
<font face="宋體" size="2">
<%@#顯示郵件主題
if trim(POP3.messages.item(i).Subject)="" then
response.write "無主題"
else
response.write POP3.messages.item(i).Subject
end if
%></font>
</a></td>
<td><font face="宋體" size="2"><%=POP3.messages.item(i).date%></font></td>
<td><font face="宋體" size="2"><%=POP3.messages.item(i).size%></font></td>
<td><input type="checkbox" name="c<%=i%>" value="<%=i%>"></td>
</tr>
<%next
POP3.Disconnect
@# Set POP3 = Nothing
%>
</table>
</div>
<p align="center"><input type="button" name="cmdel" value="刪除"></p>
</form>
</body>
</html>
