帝国cms标签调用大全 帝国CMS上传图片并自动生成缩图教程

帝国CMS教程

修改字段设置处理函数名称,后台字段函数设置:user_TranImgAuto##170,120 (说明:后台的参数170表示缩图宽度,120为缩图高度)

上传图片字段显示HTML代码:<input type="file" name="titlepicimgrs" size="45"> (说明:变量名用“字段名”+imgrs,即跟函数中的“$filetf”变量对应)

代码如下

以下函数复制到e/class/userfun.php文件内容里;

functionuser_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("selectqaddtran,qaddtransize,qaddtranimgtypefrom{$dbtbpre}enewspubliclimit1");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-dH:i:s");$filesize=@filesize($filer['file']);$filename=GetFilename(str_replace(ECMS_PATH,'',$filer['file']));$adduser='[Member]'.$musername;$infoid=$isadd==1?0:$id;$empire->query("insertinto{$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("selectstbfrom{$dbtbpre}ecms_".$tbname."whereid='$id'");$ifr=$empire->fetch1("select".$f."from{$dbtbpre}ecms_".$tbname."_data_".$ir[stb]."whereid='$id'");$ifval=$ifr[$f];}else{$ir=$empire->fetch1("select".$f."from{$dbtbpre}ecms_".$tbname."whereid='$id'");$ifval=$ir[$f];}if($ifval){DelYQTranFile($classid,$id,$ifval,$f);}}$value=str_replace($tfr['filename'],$filename,$tfr['url']);}}else{$value='';}return$value;}