Denwa.php 5.93 KB
<?php 
//*****************************************************************************
//* 
//* プログラム名:電話しろ!!
//* プログラムID:Denwa.php
//* 機能        :
//* 
//*****************************************************************************
header("Content-type: text/html; charset=EUC-JP");

require_once "jcode.phps";

$GMT = date("Z");
$GMT_ABS  = abs($GMT);
$GMT_HOUR = floor($GMT_ABS / 3600);
$GMT_MIN = floor(($GMT_ABS - $GMT_HOUR * 3600) / 60);
if ($GMT >= 0) $GMT_FLG = "+"; else $GMT_FLG = "-";
$GMT_RFC = date("D, d M Y H:i:s ").sprintf($GMT_FLG."%02d%02d", $GMT_HOUR, $GMT_MIN);

//****** 1 ******//
$MailSubject="ほげ1";
$MailSubject = "=?iso-2022-jp?B?" . base64_encode(jcodeconvert($MailSubject, 0, 3)) . "?=";
$Headers  = "Date: ".$GMT_RFC."\n";
$Headers .= "From: t-aranai@media-tek.co.jp\n";
$Headers .= "Subject: $MailSubject\n";
$Headers .= "MIME-Version: 1.0\n";
$Headers .= "X-Mailer: PHP/".phpversion()."\n";
$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
$Headers .= "Content-Transfer-Encoding: 7bit";

//$mlto = "ayumirakuru55@ezweb.ne.jp,ara.tomotomo.777@docomo.ne.jp";
//$mlto = "ara.tomotomo.777@docomo.ne.jp";
$mlto = "k.yoshimura@softbank.ne.jp,ara.tomotomo.777@docomo.ne.jp";

// 準備
mb_language('Japanese');
mb_internal_encoding('EUC-JP');


//本文作成
$strDate=Date("Y")."年".Date("m")."月".Date("d")."日".Date("H")."時".Date("i")."分";

//$MailBody="【".$q_ctg."】\n";
$MailBody ="あらないだぜ〜\n";
$MailBody.="電話がほしいぜ〜\n";

$mlms = mb_convert_encoding(stripslashes($MailBody), "JIS", "EUC-JP");
$rcd = mail($mlto, $MailSubject, $mlms, $Headers);

//****** 2 ******//
$MailSubject="ほげ2";
$MailSubject = "=?iso-2022-jp?B?" . base64_encode(jcodeconvert($MailSubject, 0, 3)) . "?=";
$Headers  = "Date: ".$GMT_RFC."\n";
$Headers .= "From: t-aranai@media-tek.co.jp\n";
$Headers .= "Subject: $MailSubject\n";
$Headers .= "MIME-Version: 1.0\n";
$Headers .= "X-Mailer: PHP/".phpversion()."\n";
$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
$Headers .= "Content-Transfer-Encoding: 7bit";

//$mlto = "ayumirakuru55@ezweb.ne.jp,ara.tomotomo.777@docomo.ne.jp";
//$mlto = "ara.tomotomo.777@docomo.ne.jp";
$mlto = "k.yoshimura@softbank.ne.jp,ara.tomotomo.777@docomo.ne.jp";

// 準備
mb_language('Japanese');
mb_internal_encoding('EUC-JP');


//本文作成
$strDate=Date("Y")."年".Date("m")."月".Date("d")."日".Date("H")."時".Date("i")."分";

//$MailBody="【".$q_ctg."】\n";
$MailBody ="あらないだぜ〜\n";
$MailBody.="電話がほしいぜ〜\n";

$mlms = mb_convert_encoding(stripslashes($MailBody), "JIS", "EUC-JP");
$rcd = mail($mlto, $MailSubject, $mlms, $Headers);

//****** 3 ******//
$MailSubject="ほげ3";
$MailSubject = "=?iso-2022-jp?B?" . base64_encode(jcodeconvert($MailSubject, 0, 3)) . "?=";
$Headers  = "Date: ".$GMT_RFC."\n";
$Headers .= "From: t-aranai@media-tek.co.jp\n";
$Headers .= "Subject: $MailSubject\n";
$Headers .= "MIME-Version: 1.0\n";
$Headers .= "X-Mailer: PHP/".phpversion()."\n";
$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
$Headers .= "Content-Transfer-Encoding: 7bit";

//$mlto = "ayumirakuru55@ezweb.ne.jp,ara.tomotomo.777@docomo.ne.jp";
//$mlto = "ara.tomotomo.777@docomo.ne.jp";
$mlto = "k.yoshimura@softbank.ne.jp,ara.tomotomo.777@docomo.ne.jp";

// 準備
mb_language('Japanese');
mb_internal_encoding('EUC-JP');


//本文作成
$strDate=Date("Y")."年".Date("m")."月".Date("d")."日".Date("H")."時".Date("i")."分";

//$MailBody="【".$q_ctg."】\n";
$MailBody ="あらないだぜ〜\n";
$MailBody.="電話がほしいぜ〜\n";

$mlms = mb_convert_encoding(stripslashes($MailBody), "JIS", "EUC-JP");
$rcd = mail($mlto, $MailSubject, $mlms, $Headers);

//****** 4 ******//
$MailSubject="ほげ4";
$MailSubject = "=?iso-2022-jp?B?" . base64_encode(jcodeconvert($MailSubject, 0, 3)) . "?=";
$Headers  = "Date: ".$GMT_RFC."\n";
$Headers .= "From: t-aranai@media-tek.co.jp\n";
$Headers .= "Subject: $MailSubject\n";
$Headers .= "MIME-Version: 1.0\n";
$Headers .= "X-Mailer: PHP/".phpversion()."\n";
$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
$Headers .= "Content-Transfer-Encoding: 7bit";

//$mlto = "ayumirakuru55@ezweb.ne.jp,ara.tomotomo.777@docomo.ne.jp";
//$mlto = "ara.tomotomo.777@docomo.ne.jp";
$mlto = "k.yoshimura@softbank.ne.jp,ara.tomotomo.777@docomo.ne.jp";

// 準備
mb_language('Japanese');
mb_internal_encoding('EUC-JP');


//本文作成
$strDate=Date("Y")."年".Date("m")."月".Date("d")."日".Date("H")."時".Date("i")."分";

//$MailBody="【".$q_ctg."】\n";
$MailBody ="あらないだぜ〜\n";
$MailBody.="電話がほしいぜ〜\n";

$mlms = mb_convert_encoding(stripslashes($MailBody), "JIS", "EUC-JP");
$rcd = mail($mlto, $MailSubject, $mlms, $Headers);

//****** 5 ******//
$MailSubject="ほげ5";
$MailSubject = "=?iso-2022-jp?B?" . base64_encode(jcodeconvert($MailSubject, 0, 3)) . "?=";
$Headers  = "Date: ".$GMT_RFC."\n";
$Headers .= "From: t-aranai@media-tek.co.jp\n";
$Headers .= "Subject: $MailSubject\n";
$Headers .= "MIME-Version: 1.0\n";
$Headers .= "X-Mailer: PHP/".phpversion()."\n";
$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
$Headers .= "Content-Transfer-Encoding: 7bit";

//$mlto = "ayumirakuru55@ezweb.ne.jp,ara.tomotomo.777@docomo.ne.jp";
//$mlto = "ara.tomotomo.777@docomo.ne.jp";
$mlto = "k.yoshimura@softbank.ne.jp,ara.tomotomo.777@docomo.ne.jp";

// 準備
mb_language('Japanese');
mb_internal_encoding('EUC-JP');


//本文作成
$strDate=Date("Y")."年".Date("m")."月".Date("d")."日".Date("H")."時".Date("i")."分";

//$MailBody="【".$q_ctg."】\n";
$MailBody ="あらないだぜ〜\n";
$MailBody.="電話がほしいぜ〜\n";

$mlms = mb_convert_encoding(stripslashes($MailBody), "JIS", "EUC-JP");
$rcd = mail($mlto, $MailSubject, $mlms, $Headers);


?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<link rel="stylesheet" type="text/css" href="basefont.css">
<TITLE>電話</TITLE>
</HEAD>
<BODY>
<form method="GET">
送った
<center>
<HR width="100%">
</form>
</BODY>
</HTML>