一个可以在线收邮件的东东
不能收MINE的信件。可以考虑使用BASE64解码什么东东来实现。具体我忘了。 
刚刚写出来的。还不是很成熟。 
//input.html 
//////////////////////////////////////////////////// 
<html> 
<head> 
<title>pop mail form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
</head> 
<body bgcolor="#FFFFFF"> 
<form method="post" action="check.php"> 
<table width="78%"> 
<tr> 
<td width="49%" height="17">请输入你的电子邮件账号信息:</td> 
<td width="51%" height="17"> </td> 
</tr> 
<tr> 
<td width="49%"> 
<div align="right">用户名:</div> 
</td> 
<td width="51%"> 
<input type="text" name="username"> 
</td> 
</tr> 
<tr> 
<td width="49%"> 
<div align="right">密码:</div> 
</td> 
<td width="51%"> 
<input type="password" name="passwd"> 
</td> 
</tr> 
<tr> 
<td width="49%"> 
<div align="right">主机名:</div> 
</td> 
<td width="51%"> 
<input type="text" name="pophost"> 
</td> 
</tr> 
<tr> 
<td width="49%"> 
<div align="center"> 
<input type="submit" name="check" value="确定"> 
</div> 
</td> 
<td width="51%"> 
<div align="center"> 
<input type="reset" name="Reset" value="重来"> 
</div> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
//check.php 
///////////////////////////////////////// 
<? 
include ("./mail.php"); 
if ($check){ 
$pop3 = pop3_open("$pophost", "110"); 
if (!$pop3) { 
printf("[ERROR]未能与主机正确连接!
\n"); 
return 0; 
} 
if (!pop3_user($pop3, "$username")) { 
printf("[ERROR] 错误的用户名?lt;BR>\n"); 
return 0; 
} 
if (!pop3_pass($pop3, "$passwd")) { 
printf("[ERROR] 密码错误!
\n"); 
return 0; 
} 
$articles = pop3_list($pop3); 
if (!$articles) { 
printf("[ERROR] 列表错误!
\n"); 
return 0; 
} 
print "<table width=\"100%\" border=1>"; 
print "<tr><td>状态</td><td>发信人</td><td>主题</td></tr>"; 
for ($i = 1; $i < $articles ["count"] + 1; $i++) 
{ 
$data = pop3_retr($pop3,$i); 
if (substr($data[9],8,2)=="RO") $read="已读"; 
else $read="未读"; 
print "<tr><td>$read</td><td>$data[5]</td><td><a 
href=\"readmail.php?username=$username&passwd=$passwd&pophost=$pophost&no=$i\">$data[8]</a>< 
/td></tr>"; 
} 
print "</table>"; 
} 
?> 
//mail.php 
///////////////////////////////////////// 
<? 
function pop3_open($server, $port) 
{ 
global $POP3_GLOBAL_STATUS; 
$pop3 = fsockopen($server, $port); 
if ($pop3 <= 0) return 0; 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0;
return $pop3; 
} 
function pop3_user($pop3, $user) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "USER $user\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0; 
return 1; 
} 
function pop3_pass($pop3, $pass) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "PASS $pass\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0; 
return 1; 
} 
function pop3_stat($pop3) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "STAT\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0; 
if (!eregi("+OK (.*) (.*)", $line, $regs)) 
return 0; 
return $regs[1]; 
} 
function pop3_list($pop3) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "LIST\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0; 
$i = 0; 
while (substr($line = fgets($pop3, 1024), 0, 1) <> ".") 
{ 
$articles[$i] = $line; 
$i++; 
} 
$articles["count"] = $i; 
return $articles; 
} 
function pop3_retr($pop3, $nr) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "RETR $nr\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0; 
while (substr($line = fgets($pop3, 1024), 0, 1) <> ".") 
{ 
$data[$i] = $line; 
$i++; 
} 
$data["count"] = $i; 
return $data; 
} 
function pop3_dele($pop3, $nr) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "DELE $nr\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0; 
return 1; 
} 
function pop3_quit($pop3) 
{ 
global $POP3_GLOBAL_STATUS; 
fputs($pop3, "QUIT\r\n"); 
$line = fgets($pop3, 1024); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] = substr($line, 0, 1); 
$POP3_GLOBAL_STATUS[$pop3]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($POP3_GLOBAL_STATUS[$pop3]["LASTRESULT"] <> "+") return 0;
return 1; 
} 
function smtp_open($server, $port) 
{ 
global $SMTP_GLOBAL_STATUS; 
$smtp = fsockopen($server, $port); 
if ($smtp < 0) return 0; 
$line = fgets($smtp, 1024);
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "2") return 0;
return $smtp; 
} 
function smtp_helo($smtp) 
{ 
global $SMTP_GLOBAL_STATUS; 
/* 'localhost' always works [Unk] */ 
fputs($smtp, "helo localhost\r\n"); 
$line = fgets($smtp, 1024); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "2") return 0;
return 1; }
function smtp_ehlo($smtp) 
{ 
global $SMTP_GLOBAL_STATUS; 
/* Well, let's use "helo" for now.. Until we need the 
extra func's [Unk] 
*/ 
fputs($smtp, "helo localhost\r\n"); 
$line = fgets($smtp, 1024); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "2") return 0;
return 1; 
} 
function smtp_mail_from($smtp, $from) 
{ 
global $SMTP_GLOBAL_STATUS; 
fputs($smtp, "MAIL FROM: <$from>\r\n"); 
$line = fgets($smtp, 1024); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "2") return 0;
return 1; 
} 
function smtp_rcpt_to($smtp, $to) 
{ 
global $SMTP_GLOBAL_STATUS; 
fputs($smtp, "RCPT TO: <$to>\r\n"); 
$line = fgets($smtp, 1024); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "2") return 0;
return 1; 
} 
function smtp_data($smtp, $subject, $data) 
{ 
global $SMTP_GLOBAL_STATUS; 
fputs($smtp, "DATA\r\n"); 
$line = fgets($smtp, 1024); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "3") return 0;
fputs($smtp, "Mime-Version: 1.0\r\n"); 
fputs($smtp, "Subject: $subject\r\n"); 
fputs($smtp, "$data\r\n\r\n"); 
fputs($smtp, ".\r\n"); 
$line = fgets($smtp, 1024); 
if (substr($line, 0, 1) <> "2") 
return 0; 
return 1; 
} 
function smtp_quit($smtp) 
{ 
global $SMTP_GLOBAL_STATUS; 
fputs($smtp, "QUIT\r\n"); 
$line = fgets($smtp, 1024); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] = substr($line, 0, 1); 
$SMTP_GLOBAL_STATUS[$smtp]["LASTRESULTTXT"] = substr($line, 0, 1024); 
if ($SMTP_GLOBAL_STATUS[$smtp]["LASTRESULT"] <> "2") return 0;
return 1; 
} 
function mail_parse($mail) 
{ 
$newmail = explode("\n",$mail); 
$count = 0; 
$result = 
$newmail[4]."\n".$newmail[6]."\n".$newmail[7]."\n".$newmail[8]."\n"; 
return $result; 
} 
?>
//readmail.php 
////////////////////////<? 
include ("./mail.php"); 
$pop3 = pop3_open("$pophost", "110"); 
if (!$pop3) { 
printf("[ERROR]未能与主机正确连接!
\n"); 
return 0; 
} 
if (!pop3_user($pop3, "$username")) { 
printf("[ERROR] 错误的用户名!
\n"); 
return 0; 
} 
if (!pop3_pass($pop3, "$passwd")) { 
printf("[ERROR] 密码错误!
\n"); 
return 0; 
} 
$data = pop3_retr($pop3,$no); 
if (substr($data[9],8,2)=="RO") $read="已读"; 
else $read="未读"; 
$countall = count($data); 
print "<CENTER><H2>信件内容</H2></CENTER>
"; 
print "<table width =\"100%\"border=1>"; 
print "<tr><td>发信人</td><td>"; 
$mailfrom = substr($data[5],5,strlen($data[5])-5); 
print "$mailfrom
\n"; 
print "</td></tr>"; 
print "<tr><td>收信人</td><td>"; 
$mailto= substr($data[7],3,strlen($data[7])-3); 
print "$mailto
\n"; 
print "</td></tr>"; 
print "<tr><td>主题</td><td>"; 
$subject = substr($data[8],8,strlen($data[8])-8); 
print "$subject
\n"; 
print "</td></tr>"; 
print "<tr><td>内容</td><td>"; 
for ($count=10;$count<$countall;$count++) 
print "$data[$count]
\n"; 
print "</td></tr>"; 
print "<table>"; 
pop3_quit($pop3); 
?> 
 
  
 
 
  
