Связь и интернет Архив Программирование
   
Сделать стартовойСделать закладку            
   ПОИСК  
   
Главная / PHP /
8  Perl
8  PHP
8  JavaScript
8  HTML
8  DHTML
8  XML
8  CSS
8  C / C++
8  Pascal и Delphi
8  Турбо Ассемблер
8  MySQL
8  CASE-технологии
8  Алгоритмы
8  Python
8  Обратная связь
8  Гостевая книга
Новости о мире
HotMail своими руками, или Что может PHP? - Программирование от RIN.RU
HotMail своими руками, или Что может PHP?



ЛИСТИНГ 1 Файл counter.php3 (счетчик числа посещений Web-страницы)


<pre><p>
<html>
<body bgcolor="#FFFFFF" text="#000000" link="#0000FF"
vlink="#800080" alink="#FF0000">
<p> Число посещениий: <?PHP
$filename = "counter.dat";
$fp = @fopen($filename,"r");
if ($fp) {
$counter=fgets($fp,10);
fclose($fp);
} else {
$counter=0;
}
$counter++;
print $counter;
$fp = fopen($filename,"w");
if ($fp) {
$counter=fputs($fp,$counter);
fclose($fp);
}
?>
</body>
</html>







ЛИСТИНГ 2 Файл index.php3 (идентификация пользователя, установление контакта с почтовым сервером и создание набора фреймов для вывода списка писем и текста текущего письма) 




<?PHP
  $REALM =  "Web mail";
  $POPSERVER =  '127.0.0.1';
  $LOGERRORS = 1;
  if(!isset($PHP_AUTH_USER)):
    Header( "WWW-Authenticate: Basic realm=\"$REALM\"");
    Header( "HTTP/1.0 401 Unauthorized");
    echo  "<H1>Authorization Required</H1>\n";
    exit;
  else:
    if(!($imap_stream=@imap_open("{127.0.0.1:143}Inbox","$PHP_
AUTH_USER","$PHP_AUTH_PW",OP_READONLY))):
      Header( "WWW-Authenticate: Basic realm=\"$REALM\"");
      Header( "HTTP/1.0 401 Auth Required");
      echo  "<H1>Authorization Required</H1>\n";
      exit;
    else:
      imap_close($imap_stream); ?>
<html>
<frameset border="0" framespacing="-2" rows="20%,80%">
  <frame src="top.php3" name="top" marginwidth="1"
marginheight="1" framespacing="0">
  <frame src="main.php3" name="main" marginwidth="1"
marginheight="1" framespacing="0">
</frameset>
<noframes>
<body>
  Sorry, but your browser does not support frames...<br>
</body>
</noframes>
</html>
<?PHP       endif;
            endif;
?>







ЛИСТИНГ 3 Файл top.php3 (формирование списка писем) 




<html>
<body bgcolor="#C04040" text="#FFFFFF" link="#0000FF"
vlink="#800080" alink="#FF0000">
<BASE TARGET="main">
<?PHP
  $imap_stream=imap_open("{127.0.0.1:143}Inbox","$PHP_AUTH_USER",
"$PHP_AUTH_PW",OP_READONLY);
  $inbox=imap_mailboxmsginfo($imap_stream);
 ?>
<CENTER><table border=3 width="100%">
<tr><th>NN</th><th>Subject</th><th>From</th><th>Date</th></tr>
<tr><td>
<?PHP
  for($i=1;$i<=$inbox->Nmsgs;$i++):
     $header=imap_header($imap_stream,$i,300,300,0);
     echo "<tr><td><B><a href=main.php3?mail=".$i.
          ">".$i.
          "</a></B></td><td><a href=main.php3?mail=".$i.
          ">".$header->Subject.
          "</a></td><td><a href=main.php3?mail=".$i.
          ">".$header->fromaddress.
          "</a></td><td><a href=main.php3?mail=".$i.
          ">".$header->Date.
          "</a></td></tr>";
  endfor;
  imap_close($imap_stream);
?>
</table>
</CENTER>
</body>
</html>







ЛИСТИНГ 4 Файл main.php3 (проверка наличия писем и вывод кнопок) 




<html>
<body bgcolor="#408080" text="#FFFFFF" link="#0000FF"
vlink="#800080" alink="#FF0000">
<BASE TARGET="main">
<a href=mail.php3>New message</a> <?PHP if (isset($mail) &&
($mail>=1)):?>| <a href=mail.php3?mail=<?PHP echo $mail;?>>
Reply</a>| <a href=del.php3?mail=<?PHP echo $mail;?>target=
_top>Delete</a><?PHP endif;?><br><br>
<?PHP
if(isset($mail) && ($mail>=1)):
  $imap_stream=imap_open("{127.0.0.1:143}Inbox","$PHP_AUTH_USER",
"$PHP_AUTH_PW",OP_READONLY);
  $inbox=imap_mailboxmsginfo($imap_stream);
  $body=imap_fetchbody($imap_stream,$mail,1,0);
  print(nl2br(eregi_replace( "(http|https|ftp)://([-=%_
a-zA-Z0-9./~?:]+)", "<a href=\"\\1://\\2\" target=\"_blank\
">\\1://\\2</a>", htmlspecialchars($body))));
  imap_close($imap_stream);
endif;
?>
</body>
</html>







ЛИСТИНГ 5 Файл mail.php3 (создание письма) 




<html>
<body bgcolor="#408080" text="#FFFFFF" link="#0000FF"
vlink="#800080" alink="#FF0000">
<BASE TARGET="main">
<?PHP
if (isset($mail) && ($mail>=1)):
    $imap_stream=imap_open("{127.0.0.1:143}Inbox","$PHP_AUTH_USER",
"$PHP_AUTH_PW",OP_READONLY);
    $header=imap_header($imap_stream,$mail,300,300,0);
endif;
?>
<FORM ACTION='send.php3' METHOD='POST'>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%>
   <TR>
      <TD class=light WIDTH="150">
         <B><b>Your name :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="sendername" VALUE="<?PHP
echo $sendername;?>" SIZE=60 maxlength=70>
      </TD></TR>
   <TR>
      <TD class=light WIDTH="150">
        <B><b>From :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="sender" VALUE="<?PHP echo
$PHP_AUTH_USER."@host.some_domain.com";?>" SIZE=60
maxlength=70>
      </TD></TR>
   <TR>
      <TD class=light WIDTH="150">
        <B><b>Subject :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="subject" VALUE="<?PHP if
(isset($mail) && ($mail>=1)):?>Re: <?PHP echo
eregi_replace("\"",""",$header->Subject); endif;?>" SIZE=60
maxlength=70>
      </TD></TR>
      <TR>
    <TD class=light WIDTH="150">
         <B><b>To :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="mailto" VALUE="<?PHP if
(isset($mail) && ($mail>=1)): echo
eregi_replace ("\"",""",$header->fromaddress); endif;?>" SIZE=60
maxlength=70>
      </TD></TR>
      <TR>
    <TD class=light WIDTH="150">
         <B>Message body :
      </TD><TD COLSPAN=2 class=light>
         <textarea name="text" rows=15 cols=59><?PHP if
(isset($mail) && ($mail>=1)): echo "> ".eregi_replace
("\n","\n> ",htmlspecialchars(imap_fetchbody
($imap_stream,$mail,1,0))); endif;?></textarea>
<center><input type=submit value="Send"></center><br>
</TD></TR>
</TABLE>
</form>
</body>
</html>
<?PHP if (isset($mail) && ($mail>=1)):imap_close($imap_stream);endif; ?>







ЛИСТИНГ 6 Файл del.php (удаление письма) 




<html>
<body bgcolor="#408080" text="#FFFFFF" link="#0000FF"
vlink="#800080" alink="#FF0000">
<BASE TARGET="main">
<?PHP
if (isset($mail) && ($mail>=1)):
    $imap_stream=imap_open("{127.0.0.1:143}Inbox","$PHP_AUTH_USER",
"$PHP_AUTH_PW",OP_READONLY);
    $header=imap_header($imap_stream,$mail,300,300,0);
endif;
?>
<FORM ACTION='send.php3' METHOD='POST'>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%>
   <TR>
      <TD class=light WIDTH="150">
         <B><b>Your name :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="sendername" VALUE="<?PHP
echo $sendername;?>" SIZE=60 maxlength=70>
      </TD></TR>
   <TR>
      <TD class=light WIDTH="150">
        <B><b>From :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="sender" VALUE="<?PHP echo
$PHP_AUTH_USER."@host.some_domain.com";?>" SIZE=60 maxlength=70>
      </TD></TR>
   <TR>
      <TD class=light WIDTH="150">
        <B><b>Subject :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="subject" VALUE="<?PHP if
(isset($mail) && ($mail>=1)):?>Re: <?PHP echo eregi_replace
("\"",""",$header->Subject); endif;?>" SIZE=60 maxlength=70>
      </TD></TR>
      <TR>
    <TD class=light WIDTH="150">
         <B><b>To :</b></B>
      </TD><TD COLSPAN=2 class=light>
         <INPUT TYPE="text" NAME="mailto" VALUE="<?PHP if
(isset($mail) && ($mail>=1)): echo eregi_replace
("\"",""",$header->fromaddress); endif;?>" SIZE=60 maxlength=70>
      </TD></TR>
      <TR>
    <TD class=light WIDTH="150">
         <B>Message body :
      </TD><TD COLSPAN=2 class=light>
         <textarea name="text" rows=15 cols=59><?PHP if
(isset($mail) && ($mail>=1)): echo "> ".eregi_replace
("\n","\n> ",htmlspecialchars(imap_fetchbody
($imap_stream,$mail,1,0))); endif;?></textarea>
<center><input type=submit value="Send"></center><br>
</TD></TR>
</TABLE>
</form>
</body>
</html>
<?PHP if (isset($mail) && ($mail>=1)):imap_close($imap_stream);endif; ?>







ЛИСТИНГ 7 Файл send.php3 (отправка письма) 




<?PHP
    Header("Refresh: 5;url=main.php3");
?>
<html>
<body bgcolor="#408080" text="#FFFFFF" link="#0000FF"
vlink="#800080" alink="#FF0000">
<BASE TARGET="main">
<?PHP
   mail($mailto,$subject,$text,
        "From: $sendername <$sender>\nContent-Type: text/plain; charset=KOI8-R");
?>
Message was succesfully sent.
</body>
</html>



<<<  Назад
 1  2 


 8  Комментарии к статье  8 8  Обсудить в чате
 
  
  
    Copyright ©  RIN 2003 - 2004      * Обратная связь