<?php
//by alpha.z
//05/21/2000
class myimap
{
var $username="";
var $userpwd="";
var $hostname="";
var $port=0;
var $connection=0; //是否连接
var $state="disconnected"; //连接状态
var $greeting="";
var $must_update=0;
var $instream=0;
function open()
{
if ($this->port==110)
$this->instream=imap_open("{$this->hostname/pop3:110}inbox",$this->username,$this->userpwd);
else
$this->instream=imap_open("{$this->hostname/imap:143}inbox",$this->username,$this->userpwd);
if ($this->instream)
{
echo "用户：$this->username 的信箱连接成功。<br>";
return $instream;
}
else
{
echo "用户：$this->username 的信箱连接失败。<br>";
return 0;
}
}
function close()
{
if(imap_close($this->instream))
{
echo "<hr>已经与服务器 $this->hostname 断开连接。";
return 1;
}
else
{
echo "<hr>与服务器 $this->hostname 断开连接失败。";
return 0;
}
}
function checkmailbox()
{
$mboxinfo=@imap_mailboxmsginfo($this->instream);
//$mboxinfo=imap_check($this->instream);
if ($mboxinfo)
if ($mboxinfo->nmsgs>0)
{
echo "您的收件箱里共有邮件数：".$mboxinfo->nmsgs."<br>";
echo "未读邮件数：".$mboxinfo->unread."<br>";
//echo "新邮件数：".$mboxinfo->rescent."<br>";
echo "总共占用空间：".$mboxinfo->size."字节<br>";
echo "最新邮件日期：".$mboxinfo->date."<br><hr>";
}
else
{
echo "您的信箱里没有邮件。<br><hr>";
}
else
{
echo '<font color="red">错误：无法获取收件箱的信息。</font>';
}
echo '<table border="1">';
$sortby="sortdate";
$sort_reverse=1;
$sorted = imap_sort($this->instream, $sortby, $sort_reverse, se_uid);
for ($i=1;$i<=$mboxinfo->nmsgs;$i++)
{
$msgheader = @imap_header($this->instream, imap_msgno($this->instream, $sorted[$i-1]));
//日期
if (isset($msgheader->date))
{
$date = $msgheader->date;
if (ord($date) > 64)
$date = substr($date, 5);
while (strstr(' ', $date))
{
$date = str_replace(' ', ' ', $date);
}
}
if (isset($msgheader->from[0]))
{
$from = $msgheader->from[0];
if (isset($from->personal))
{
$frm = trim($from->personal);
}
else
if (isset($from->mailbox) && isset($from->host))
{
$frm = $from->mailbox . '@' . $from->host;
}
else
if (isset($msgheader->fromaddress))
$frm = trim($h->fromaddress);
}
else
if (isset($msgheader->fromaddress))
$frm = trim($msgheader->fromaddress);
if (isset($msgheader->toaddress))
$to = trim($msgheader->toaddress);
else
$to = "未知";
if (isset($msgheader->subject))
$sub = trim($this->decode_mime_string($msgheader->subject));
if (isset($msgheader->size))
$msg_size = ($msgheader->size > 1024) ? sprintf("%.0f kb", $msgheader->size / 1024) : $msgheader->size;
if (strlen($frm) > 50)
$frm = substr($frm, 0, 50) . '...';
if (strlen($sub) > 50)
$sub = substr($sub, 0, 50) . '...';
echo '<tr>';
echo '<td align="center"><input type="checkbox" name="check"></td><td>'.$frm.'</td><td><a href="showbody_imap.php?usr='.$this->username.'&pwd='.$this->userpwd.'&msg='.$i.'">'.$sub.'</a></td><td>'.$date.'</td><td>'.$msg_size.'</td>';
echo '</tr>';
}
echo "</table>";
}
function decode_mime_string ($string)
{
$pos = strpos($string, '=?');
if (!is_int($pos))
{
return $string;
}
$preceding = substr($string, 0, $pos); // save any preceding text
$search = substr($string, $pos+2, 75); // the mime header spec says this is the longest a single encoded word can be
$d1 = strpos($search, '?');
if (!is_int($d1))
{
return $string;
}
$charset = substr($string, $pos+2, $d1);
$search = substr($search, $d1+1);
$d2 = strpos($search, '?');
if (!is_int($d2))
{
return $string;
}
$encoding = substr($search, 0, $d2);
$search = substr($search, $d2+1);
$end = strpos($search, '?=');
if (!is_int($end))
{
return $string;
}
$encoded_text = substr($search, 0, $end);
$rest = substr($string, (strlen($preceding . $charset . $encoding . $encoded_text)+6));
switch ($encoding)
{
case 'q':
case 'q':
$encoded_text = str_replace('_', '%20', $encoded_text);
$encoded_text = str_replace('=', '%', $encoded_text);
$decoded = urldecode($encoded_text);
break;
case 'b':
case 'b':
$decoded = urldecode(base64_decode($encoded_text));
break;
default:
$decoded = '=?' . $charset . '?' . $encoding . '?' . $encoded_text . '?=';
break;
}
return $preceding . $decoded . decode_mime_string($rest);
}
function display_toaddress ($user, $server, $from)
{
return is_int(strpos($from, $this->get_barefrom($user, $server)));
}
function get_barefrom($user, $server)
{
$barefrom = "$user@$real_server";
return $barefrom;
}
function get_structure($msg_num)
{
$structure=imap_fetchstructure($this->instream,$msg_num);
//echo gettype($structure);
return $structure;
}
function proc_structure($msg_part, $part_no, $msg_num)
{
if ($msg_part->ifdisposition)
{
// see if it has a disposition
// the only thing i know of that this
// would be used for would be an attachment
// lets check anyway
if ($msg_part->disposition == "attachment")
{
// if it is an attachment, then we let people download it
// first see if they sent a filename
$att_name = "unknown";
for ($lcv = 0; $lcv < count($msg_part->parameters); $lcv++)
{
$param = $msg_part->parameters[$lcv];
if ($param->attribute == "name")
{
$att_name = $param->value;
break;
}
}
// you could give a link to download the attachment here....
echo '<a href="'.$att_name.'">'.$att_name.'</a><br>';
$fp=fopen(".\\$att_name","w+");
fputs($fp,imap_base64(imap_fetchbody($this->instream,$msg_num,$part_no)));
fclose($fp);
}
else
{
// i guess it is used for something besides attachments????
}
}
else
{
// not an attachment, lets see what this part is...
switch ($msg_part->type)
{
case typetext:
$mime_type = "text";
break;
case typemultipart:
$mime_type = "multipart";
// hey, why not use this function to deal with all the parts
// of this multipart part :)
for ($i = 0; $i < count($msg_part->parts); $i++)
{
if ($part_no != "")
{
$part_no = $part_no.".";
}
for ($i = 0; $i < count($msg_part->parts); $i++)
{
$this->proc_structure($msg_part->parts[$i], $part_no.($i + 1), $msg_num);
}
}
break;
case typemessage:
$mime_type = "message";
break;
case typeapplication:
$mime_type = "application";
break;
case typeaudio:
$mime_type = "audio";
break;
case typeimage:
$mime_type = "image";
break;
case typevideo:
$mime_type = "video";
break;
case typemodel:
$mime_type = "model";
break;
default:
$mime_type = "unknown";
// hmmm....
}
$full_mime_type = $mime_type."/".$msg_part->subtype;
//echo $full_mime_type.'<hr>';
// decide what you what to do with this part
// if you want to show it, figure out the encoding and echo away
switch ($msg_part->encoding)
{
case encbase64:
// use imap_base64 to decode
$fp=fopen(".\\$att_name","w+");
fputs($fp,imap_base64(imap_fetchbody($this->instream,$msg_num,$part_no)));
fclose($fp);
break;
case encquotedprintable:
// use imap_qprint to decode
//echo ereg_replace("\n","<br>",imap_qprint(imap_fetchbody($this->instream,$msg_num,$part_no)));
echo '<pre>'.imap_qprint(imap_fetchbody($this->instream,$msg_num,$part_no)).'</pre>';
break;
case encother:
// not sure if this needs decoding at all
break;
default:
}
}
}
};
?>
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
