帝国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; }
转载请说明出处
仿站网 » 帝国CMS上传图片并自动生成缩略图的方法
仿站网 » 帝国CMS上传图片并自动生成缩略图的方法