全国服务热线:4008-888-888

技术知识

王国CMS提交照片并全自动转化成缩图实例教程

改动字段名设定解决涵数名字,后台管理字段名涵数设定:user_TranImgAuto##170,120     (表明:后台管理的主要参数170表明缩图总宽,120为缩图高宽比)

提交照片字段名显示信息HTML编码: input type= file name= titlepicimgrs size= 45    (表明:自变量名用“字段名名”+imgrs,即跟涵数中的“$filetf”自变量相匹配)

编码以下

下列涵数拷贝到e/文档內容里;

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/ //转化成缩图 $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]; $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 $value= return $value; }


文中章网站地址,


在线客服

关闭

客户服务热线
4008-888-888


点击这里给我发消息 在线客服

点击这里给我发消息 在线客服