帝国CMS上传图片并自动生成缩略图的方法
修改字段设置处理函数名称，后台字段函数设置：user_TranImgAuto##170,120 (说明：后台的参数170表示缩图宽度,120为缩图高度)。
上传图片字段显示HTML代码：<input type=”file” name=”titlepicimgrs” size=”45″> (说明：变量名用“字段名”+imgrs，即跟函数中的“$filetf”变量对应)。
代码如下
以下函数复制到e/class/userfun.php文件内容里：
function user_TranImgAuto($mid,$f,$isadd,$isq,$value,$cs){
global $empire,$dbtbpre,$public_r,$emod_r,$class_r,$tranpicturetype,$musername;
$filetf=$f.
‘imgrs’;
//变量名
if(!$_FILES[$filetf][
‘name’])
{
return ”;
}
$classid=(
int)$_POST[
‘classid’];
$id=(
int)$_POST[
‘id’];
$filepass=(
int)$_POST[
‘filepass’];
$filetype=GetFiletype($_FILES[$filetf][
‘name’]);
$pr=$empire->fetch1(
“select qaddtran,qaddtransize,qaddtranimgtype from {$dbtbpre}enewspublic limit 1”);
if(!$pr[
‘qaddtran’])
{
printerror(
“CloseQTranPic”,
“”,
1);
}
if(!strstr($pr[
‘qaddtranimgtype’],
“|”.$filetype.
“|”))
{
printerror(
“NotQTranFiletype”,
“”,
1);
}
if($_FILES[$filetf][
‘size’]>$pr[
‘qaddtransize’]*
1024)
{
printerror(
“TooBigQTranFile”,
“”,
1);
}
if(!strstr($tranpicturetype,
‘,’.$filetype.
‘,’))
{
printerror(
“NotQTranFiletype”,
“”,
1);
}
$tfr=DoTranFile($_FILES[$filetf][
‘tmp_name’],$_FILES[$filetf][
‘name’],$_FILES[$filetf][
‘type’],$_FILES[$filetf][
‘size’],$classid);
if($tfr[
‘tran’])
{
$csr=explode(
‘,’,$cs);
$maxwidth=$csr[
0];
$maxheight=$csr[
1];
$yname=$tfr[
‘yname’];
$name=$tfr[
‘name’];
include_once(ECMS_PATH.
‘e/class/gd.php’);
//生成缩图
$filer=ResizeImage($yname,$name,$maxwidth,$maxheight,$public_r[
‘spickill’]);
DelFiletext($yname);
if($filer[
‘file’])
{
//写入数据库
$type=
1;
$filetime=date(
“Y-m-d H:i:s”);
$filesize=@filesize($filer[
‘file’]);
$filename=GetFilename(str_replace(ECMS_PATH,
”,$filer[
‘file’]));
$adduser=
‘[Member]’.$musername;
$infoid=$isadd==
1?
0:$id;
$empire->query(
“insert into {$dbtbpre}enewsfile(filename,filesize,adduser,path,filetime,classid,no,type,id,cjid,fpath) values(‘$filename’,’$filesize’,’$adduser’,’$tfr[filepath]’,’$filetime’,’$classid’,'[“.$f.
“]”.addslashes(RepPostStr($_POST[title])).
“‘,’$type’,’$infoid’,’$filepass’,’$public_r[fpath]’);”);
if($isadd==
0)
{
$tbname=$emod_r[$mid][
‘tbname’];
if(strstr($emod_r[$mid][
‘tbdataf’],
‘,’.$f.
‘,’))
{
$ir=$empire->fetch1(
“select stb from {$dbtbpre}ecms_”.$tbname.
” where id=’$id'”);
$ifr=$empire->fetch1(
“select “.$f.
” from {$dbtbpre}ecms_”.$tbname.
“_data_”.$ir[stb].
” where id=’$id'”);
$ifval=$ifr[$f];
}
else
{
$ir=$empire->fetch1(
“select “.$f.
” from {$dbtbpre}ecms_”.$tbname.
” where id=’$id'”);
$ifval=$ir[$f];
}
if($ifval)
{
DelYQTranFile($classid,$id,$ifval,$f);
}
}
$value=str_replace($tfr[
‘filename’],$filename,$tfr[
‘url’]);
}
}
else
{
$value=
”;
}
return $value;
}
