復制代碼 代碼如下:

<?PHP
#設置URL，注意沒有后劃線/
$MyURL = (isSet($_SERVER['HTTP_HOST'])) ? Str_iReplace('http://','',StrToLower(rTrim($_SERVER['HTTP_HOST'],'/'))) : 'www.7di.net';
#設置URL，注意沒有后劃線/
$MyDomain = (isSet($_SERVER['HTTP_HOST'])) ? 'http://'.Str_iReplace('http://','',StrToLower(rTrim($_SERVER['HTTP_HOST'],'/'))) : 'http://www.survivalescaperooms.com';
//設定時區.主要用來修正8小時時差
Date_Default_Timezone_Set('Etc/GMT-8');
//輸出頭部
Header('Content-type:text/html; charset=utf-8');
/**
發送電郵
參數:
收件人,郵件標題(不可有換行符),郵件內容(行與行之間必須用/n分隔,每行不可超過70個字符)
說明:
調用PHP內置函式Mail發送電郵
返回:
返回布爾值
用法:
$IsSend=Fun::Mail2($email,$tit,$msg);
/**/
Function Mail2($to,$tit,$msg) {
IF(Filter_var($to,FILTER_VALIDATE_EMAIL)==''){
throw new Exception('電郵地址錯誤!');
}
$tit='=?UTF-8?B?'.Base64_Encode($tit).'?=';
$msg = str_replace("/n.","/n..",$msg); //Windows如果在一行開頭發現一個句號則會被刪掉,要避免此問題將單個句號替換成兩個句號
Return Mail($to,$tit,$msg,'From:see7di@gmail.com'."/n".'Content-Type:text/html;charset=utf-8');
}
$msg='<table cellspacing="0" cellpadding="0"><tr><td>';
$msg.=(isSet($_SERVER['REMOTE_ADDR'])) ? "<b>來訪者IP是:</b><br><a target='_blank'>{$_SERVER['REMOTE_ADDR']}</a><br>" : '';
$msg.="<b>來訪時間:</b><br>".date('Y-m-d H:i:s',time()).'<br><br>';
$msg.=(isSet($_SERVER['REMOTE_HOST'])) ? "<a target='_blank'>{$_SERVER['REMOTE_HOST']}</a><br><br>" : '<br>';
$msg.=(isSet($_SERVER['HTTP_USER_AGENT'])) ? "<b>來訪者詳細資料:</b><br>{$_SERVER['HTTP_USER_AGENT']}<br><br>" : '';
$msg.=(isSet($_SERVER['REQUEST_URI'])) ? "<b>要訪問的頁面是:</b><br>{$MyDomain}{$_SERVER['REQUEST_URI']}<br><br>" : '';
$msg.=(isSet($_SERVER['HTTP_REFERER']) And Trim($_SERVER['HTTP_REFERER'])!='') ? "<b>來源地址是:</b><br>{$_SERVER['HTTP_REFERER']}<br><br>" : '';
$msg.='</td></tr></table>';
//哪些類型的URL不發Email,如果不屏蔽掉這些的話能煩死我
$arr=Array('mp3','rm','swf','jpg','gif');
//哪些IP不發Email,這些基本都是搜索引擎的蜘蛛
$arrIP=Array('66.249.77.217','66.249.74.67');
//要訪問的擴展名
$needEx=Explode('.',StrToLower(Trim($_SERVER['REQUEST_URI'])));
$needEx=end($needEx);
IF(!In_Array($needEx,$arr) And !In_Array(Trim($_SERVER['REMOTE_ADDR']),$arrIP)) {
Mail2('see7di@gmail.com','來自【'.$MyURL.'】的404錯誤!',$msg);
}
unSet($MyURL,$msg,$needEx,$arr);
Header('HTTP/1.1 301 Moved Permanently');
Header ("Location:{$MyDomain}");
Die();