?? mail.php
字號:
<?php
/*
*####################################################
* PHPCMS v3.0.0 - Advanced Content Manage System.
* Copyright (c) 2005-2006 phpcms.cn
*
* For further information go to http://www.phpcms.cn/
* This copyright notice MUST stay intact for use.
*####################################################
*/
defined('IN_PHPCMS') or exit('Access Denied');
$action = $action ? $action : 'config';
//目錄參數設置
$mail_setdir = "data/mail/";
$mail_datadir = "data/mail/data/";
$f->create(PHPCMS_ROOT."/".$mail_setdir);
$f->create(PHPCMS_ROOT."/".$mail_datadir);
//臨時郵件參數設置
$tmpname = PHPCMS_ROOT."/data/mail/mailing.php";
$separator='|||';
$url="?mod=".$mod."&file=mail&action=send2";
//頭部菜單
$submenu=array(
array('獲取郵件列表',"?mod=".$mod."&file=mail&action=config"),
array('管理郵件列表',"?mod=".$mod."&file=mail&action=list"),
array('群發郵件',"?mod=".$mod."&file=mail&action=send"),
array('發送郵件',"?mod=".$mod."&file=mail&action=sendmail")
);
$menu=adminmenu('郵件列表',$submenu);
//獲取系統發送郵件基本參數
$smtpserver = $_PHPCMS['smtphost'];
$mfrom = $_PHPCMS['smtpuser'];
$mfrom = $mfrom ? $mfrom : $_PHPCMS['webmasteremail'];
$smtppass = $_PHPCMS['smtppass'];
$smtpport = $_PHPCMS['smtpport'];
switch($action)
{
//發送郵件表單
case 'send':
if($submit)
{
if(empty($mail))
{
showmessage("請選擇郵件列表文件，請返回。");
}
if(empty($msubject) || empty($mbody))
showmessage('郵件主題和內容不能為空，請返回。');
$forms=array($mail,$msendtype,$mformat,$mnum,$msubject,$mbody);
foreach($forms as $k=>$v)
{
if(empty($v))
{
showmessage('所有設置項必須填寫，請返回。');
break;
}
}
$sendto = file($mail_datadir.'/'.$mail);
$totalnum = count($sendto);
$mnum = $mnum > $totalnum ? $totalnum : $mnum ;
$mailtemp = array('mail'=>$mail,'msendtype'=>$msendtype,'mformat'=>$mformat,'mnum'=>$mnum,'msubject'=>$msubject,'mbody'=>$mbody);
cache_array($mailtemp,"\$mailtemp",$tmpname);
showmessage("開始發送，請稍候．．",$url."&start=0");
}
else
{
$fmail=$f->get_list($mail_datadir);
$fmail=$fmail['file'];
$fnumber = count($fmail);
if($fnumber>0)
{
foreach( $fmail as $key=>$val)
{
$mailfiles[$key]=basename($val);
}
}
else
showmessage("請先導出郵件列表，然后再發送！","?mod=mail&file=mail&action=config");
include admintpl('mail_send');
}
break;
//發送
case 'send2':
@set_time_limit(600);
@include $tmpname;
@extract($mailtemp);
$sendto = file($mail_datadir.$mail);
$totalnum = count($sendto);
if($totalnum>0)
{
if($msendtype=='mail')
{
if(!function_exists('mail'))
{
showmessage('系統不支持 Mail 函數，請返回。');
}
if(empty($start)) $start=0;
if($start==$totalnum)
{
$okmsg='發送電子郵件成功，請返回。';
@unlink($tmpname);
showmessage($okmsg,$referer);
}
else
{
$sendnum=0;
for($i=$start; $i<$start+$mnum; $i++)
{
$sendto[$i] = trim($sendto[$i]);
if(!$sendto[$i]) continue;
@mail($sendto[$i],$msubject,$mbody,$mfrom);
}
$tmp=$start+1;
$start=$start+$mnum;
showmessage("正在發送從 $tmp 到 $start 個電子郵件，成功發送 $sendnum 個。",$url.'&start='.$start);
}
}
elseif($msendtype=='smtp')
{
require_once(PHPCMS_ROOT."/class/smtp.php");
$smtp = new smtp($smtpserver,$smtpport,true,$mfrom,$smtppass);
$smtp->debug = false;
if(empty($start)) $start=0;
if($start>=$totalnum)
{
@unlink($tmpname);
showmessage("電子郵件發送成功，請返回。");
}
else
{
$sendnum=0;
for($i=$start; $i<$start+$mnum; $i++)
{
$sendto[$i] = trim($sendto[$i]);
if(!$sendto[$i]) continue;
$smtp->sendmail($sendto[$i],$mfrom,$msubject,$mbody,$mformat);
}
$tmp = $start+1;
$start = $start+$mnum;
showmessage("正在發送從 $tmp 到 $start 個電子郵件",$url.'&start='.$start);
}
}
else
showmessage('請檢查 Email 發送方式是否設置正確。');
}
else
{
showmessage('Email 文件讀取錯誤。',$referer);
}
break;
//郵件列表
case 'list':
$fmail=$f->get_list($mail_datadir);
$fmail=$fmail['file'];
$fnumber = count($fmail);
if($fnumber>0)
{
foreach( $fmail as $key=>$val)
{
$mailfiles[$key]=basename($val);
}
}
unset($fmail);
include admintpl('mail_list');
break;
//下載郵件列表
case 'down':
if(fileext($mail)!="txt") showmessage("只允許下載txt格式的文件。");
if(!preg_match("/^[0-9a-z_]+\.txt$/i",$mail)) showmessage("非法文件!");
file_down($mail_datadir.$mail);
break;
//刪除郵件列表
case 'delete':
if(fileext($mail)!="txt") showmessage("只允許刪除郵件列表文件。");
if(!preg_match("/^[0-9a-z_]+\.txt$/i",$mail)) showmessage("非法文件!");
$mailfile=$mail_datadir.$mail;
if(file_exists($mailfile))
{
@$f->unlink($mailfile);
}
showmessage("操作成功。","?mod=mail&file=mail&action=list");
break;
//刪除選中的郵件列表
case 'deleteall':
if(count($file)<=0)
{
showmessage('請選擇要刪除郵件列表文件。',$referer);
}
$fmail=$f->get_list($mail_datadir);
$fmail=$fmail['file'];
$fnumber = count($fmail);
if($fnumber>0)
{
foreach( $fmail as $key=>$val)
{
$mailfiles[$key]=basename($val);
}
}
$delnum=0;
$mailnum=count($mail);
for($i=0;$i<$mailnum;$i++)
{
if(in_array($mail[$i],$mailfiles))
{
$f->unlink($mail_datadir.$mail[$i]);
$delnum++;
}
}
if($delnum==$mailnum)
showmessage("刪除郵件列表文件成功，請返回。");
else
showmessage('操作失敗，請返回。');
break;
//獲取郵件列表
case 'get':
if(!file_exists($mail_setdir.'mail.php'))
{
showmessage('配置文件不存在，請返回。');
}
include $mail_setdir.'mail.php';
if($data)
{
$dbfile=PHPCMS_ROOT.'/class/db_'.$data['database'].'.php';
if(!file_exists($dbfile))
showmessage('數據庫對應的類文件 '.$dbfile.'不存在，請返回。');
require_once($dbfile);
$data['timelimit']=$data['timelimit']>30 ? $data['timelimit']:60;
@set_time_limit($data['timelimit']);
$pagesize=$data['number']>1 ? $data['number'] : 100;
$mails='';
$page = $page ? $page : 1;
$offset=($page-1)*$pagesize;
$page++;
if($data['dbfrom']==1)
{
$maildb=$db;
}
else
{
$maildb= new db;
$maildb->connect($data['dbhost'],$data['dbuser'],$data['dbpw'], $data['dbname']);
$maildb->select_db($data['dbname']);
}
$mail_field=$data['field'];
$condition = $data['condition'] ? " where ".$data['condition'] : "";
$sql="select count(*) as totalnum from ".$data['table'].$condition;
$query=$maildb->query($sql);
$rs=$maildb->fetch_array($query);
$totalnum=$rs['totalnum'];
$sql="select ".$mail_field." from ".$data['table'].$condition;
$sql.=" limit $offset,$pagesize ";
$query=$maildb->query($sql);
$i=0;
while($m=$maildb->fetch_array($query))
{
$mails.=$m[$mail_field]."\n";
$i++;
}
if($offset>=$totalnum)
showmessage("郵件列表文件 <a href=\"".$mail_datadir.$data['file']."\" >{$data['file']}</a> 并保存成功！現在是否發送？<br />".'<a href="?mod='.$mod.'&file='.$file.'&action=send&mail='.urlencode($data['file']).'" title="" >[ 是 ]</a> <a href="?mod='.$mod.'&file='.$file.'&action=list" title="" >[ 否 ]</a>');
file_write($mail_datadir.$data['file'],$mails,"ab");
$referer = $totalnum<= $offset ? '' : '?mod='.$mod.'&file=mail&action=get&page='.$page;
showmessage('第'.($offset+1).'到'.($offset+$i).'條數據提取并保存成功！',$referer);
}
break;
case 'save':
if($submit)
{
$upfile_size='1000000';
$upfile_type='txt';
$fileArr = array(
'file'=>$uploadfile,
'name'=>$uploadfile_name,
'size'=>$uploadfile_size,
'type'=>$uploadfile_type);
if(!@preg_match("/^[0-9a-z_]+\.txt$/i",$fileArr['name']))
showmessage("非法的文件名稱，請返回修改。");
$tmpext=strtolower(fileext($fileArr['name']));
if($fileArr['type']!='text/plain' || $tmpext!=$upfile_type)
showmessage("文件類型錯誤，郵件列表文件擴展名必須是 txt 。");
$savepath = $mail_datadir;
$f->create($savepath);
$upload = new upload($fileArr,'',$savepath,$upfile_type,1,$upfile_size);
if($upload->up())
showmessage("郵件列表文件 <a href=\"".$mail_datadir.$upload->savename."\" >{$upload->savename}</a> 上傳成功！現在是否發送？<br />".'<a href="?mod='.$mod.'&file='.$file.'&action=send&mail='.urlencode($upload->savename).'" title="查看" >[ 是 ]</a> <a href="?mod='.$mod.'&file='.$file.'&action=list" title="" >[ 否 ]</a>');
else
showmessage('無法上傳，錯誤原因：'.$upload->errmsg());
}
break;
//基本參數配置
case 'config':
if($submit)
{
if($newdata['dbfrom']==2)
{
if(empty($newdata['dbhost']))
showmessage('請填寫數據庫主機地址。');
if(empty($newdata['dbuser']))
showmessage('請填寫數據庫用戶名。');
if(empty($newdata['dbname']))
showmessage('請填寫數據庫名稱。');
}
if(empty($newdata['table']))
showmessage('請填寫源數據表名稱。');
if(empty($newdata['field']))
showmessage('請填寫源數據表電子郵件字段名。');
if(!preg_match("/^[0-9a-z_]+$/i",$newdata['file']))
showmessage("非法的文件名稱，請返回修改。");
if(intval($newdata['timelimit'])<1)
showmessage('php腳本執行超時時限不能小于1，請返回。');
if(intval($newdata['number'])<1)
showmessage('每次提取數據條數不能小于1，請返回。');
$newdata['file']=$newdata['file'].'.txt';
if(file_exists($mail_datadir.$newdata['file']))
showmessage($newdata['file'].'已經存在，請返回。');
cache_array($newdata , '$'.'data' ,$mail_setdir.'mail.php');
$referer='?mod='.$mod.'&file=mail&action=get';
showmessage('配置保存成功，開始獲取郵件數據 ... ',$referer);
}
else
{
if(file_exists($mail_setdir.'mail.php'))
{
include $mail_setdir.'mail.php';
$data['file']=substr($data['file'],0,-4);
}
$data['table'] = $data['table'] ? $data['table'] : $tablepre."member";
$data['field'] = $data['field'] ? $data['field'] : "email";
include admintpl('mail_config');
}
break;
case 'sendmail':
if($submit)
{
$from = trim($from);
$from= $from ? $from:$mfrom;
$to = trim($to);
if(!is_email($to))
showmessage('收件人Email 地址非法，請返回。');
if(!is_email($from))
showmessage('發件人Email 地址非法，請返回。');
if(empty($subject) || empty($body))
showmessage('郵件主題和內容不能為空，請返回。');
if($sendtype=='mail')
{
if(!function_exists('mail'))
{
showmessage('系統不支持 Mail 函數，請返回。');
}
$headers= 'From: '.$from."\r\n";
if(@mail($to,$subject,$body,$headers))
{
showmessage('恭喜您，郵件發送成功，請返回。');
}
else
{
showmessage('發送失敗，系統不支持 Mail 函數或 Email 地址非法，請返回。');
}
}
elseif($sendtype=='smtp')
{
$smtpfile=PHPCMS_ROOT.'/class/smtp.php';
if(file_exists($smtpfile))
{
require_once($smtpfile);
$smtp = new smtp($smtpserver,$smtpport,true,$mfrom,$smtppass);
$smtp->debug = false;
}
else
{
showmessage('類文件 smtp.php 不存在，請返回。');
}
if($smtp->sendmail($to,$from,$subject,$body,$format))
{
showmessage('恭喜您，郵件發送成功，請返回。');
}
else
{
showmessage('發送失敗，請檢查 SMTP 設置和所選擇的郵件列表文件，請返回。');
}
}
}
else
{
include admintpl('sendmail');
}
break;
default:
}
?>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -