读取邮件主题和大小(maillist1.asp)
<%@ LANGUAGE="VBSCRIPT" %
<%
'************************************************
'这个文件列出所有邮件，并把邮件内容显示窗口置为空白窗口
'作者：awayeah
'邮箱：[email protected]
'************************************************
%
<script language=vbscript
parent.frmbottom.location.href="blank.htm"
sub cmdel_onClick()
'删除邮件
frmail.submit
end sub
<%
if session("straccount")="" or session("strpassword")="" then
end if
%
<html
<head
<title收邮件<STYLE
<!--
A{text-decoration:none}
--
<body bgcolor="#008080" text="#000000"
<%
'定义邮件服务器地址
strserver=session("strserver")
'定义帐号
strAccount=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=120
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<form name="frmail" action="mail_prc.asp" method="POST"
<center
<table border="1" width="580" cellspacing="0" cellpadding="0" bordercolor="#000080" bgcolor="#FFFFFF"
<tr<td colspan=6 align="center"
<%
'分页处理
if Request.QueryString("currentpage")="" then
cp=1
else
cp=Request.QueryString("currentpage")
end if
'得到邮件总数
m_count=POP3.Messages.Count
if m_count<=10 then
pagenum=1
sd=1
ed=m_count
else
pagenum=int(m_count/10)+1
if clng(cp)<pagenum then
lastpage=m_count mod 10
sd=(clng(cp)-1)*10+1
ed=clng(cp)*10
else
sd=(clng(cp)-1)*10+1
ed=m_count
end if
end if
%
你有<font color="ff00ff"<%=POP3.Messages.Count%<%session("msgcount")=POP3.Messages.Count%
<tr
<td align="center" width="20"号<td align="center" width="120"来自/回复<td align="center" width="270"主题<td align="center" width="90"日期<td align="center" width="60"大小<td align="center" width="20"选择<%for i= sd to ed%
<tr
<td align="center" width="20"<%=i%<%
fw="回复:"+replace(POP3.messages.item(i).subject,space(1),"_")
%
<td width="100"
<%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 "匿 名<%else%
<a href=# onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%&subject=<%=fw%','sendnew','width=600,h
