PHP DelFiletext函數代碼示例

function DelTruePathFile($level, $path, $filename, $userid, $username)
{
    global $empire, $dbtbpre, $public_r;
    $count = count($filename);
    if (empty($count)) {
        printerror("NotFileid", "history.go(-1)");
    }
    //基目錄
    $basepath = ECMS_PATH . $path;
    for ($i = 0; $i < $count; $i++) {
        if (!$filename[$i] || !eReturnCkCFile($filename[$i])) {
            continue;
        }
        DelFiletext($basepath . "/" . $filename[$i]);
    }
    //操作日誌
    insert_dolog("path={$path}");
    printerror("DelFileSuccess", $_SERVER['HTTP_REFERER']);
}

function DelPrintTemp($add, $userid, $username)
{
    global $empire, $dbtbpre, $public_r;
    $tempid = (int) $add[tempid];
    if (empty($tempid)) {
        printerror("NotChangePrintTempid", "history.go(-1)");
    }
    //驗證權限
    CheckLevel($userid, $username, $classid, "template");
    $gid = (int) $add['gid'];
    $r = $empire->fetch1("select tempname,isdefault from " . GetDoTemptb("enewsprinttemp", $gid) . " where tempid={$tempid}");
    if ($r['isdefault']) {
        printerror("NotDelDefPrintTempid", "history.go(-1)");
    }
    $sql = $empire->query("delete from " . GetDoTemptb("enewsprinttemp", $gid) . " where tempid={$tempid}");
    if ($gid == $public_r['deftempid'] || !$public_r['deftempid'] && ($gid == 1 || $gid == 0)) {
        DelFiletext(ECMS_PATH . DASHBOARD . '/data/filecache/template/print' . $tempid . '.php');
    }
    //刪除備份記錄
    DelEbakTempAll('printtemp', $gid, $tempid);
    if ($sql) {
        //操作日誌
        insert_dolog("tempid={$tempid}&tempname={$r['tempname']}&gid={$gid}");
        printerror("DelPrintTempSuccess", "ListPrinttemp.php?gid={$gid}" . hReturnEcmsHashStrHref2(0));
    } else {
        printerror("DbError", "history.go(-1)");
    }
}

function DelTxtFieldText($pagetexturl)
{
    global $do_txtpath;
    if (empty($pagetexturl)) {
        return '';
    }
    $file = $do_txtpath . $pagetexturl . ".php";
    DelFiletext($file);
}

function Ebak_DoTranExecSql($file, $file_name, $file_type, $file_size, $add)
{
    global $empire, $phome_db_dbname, $phome_db_ver, $phome_db_char;
    if (!$file_name || !$file_size) {
        printerror("NotChangeSQLFile", "history.go(-1)");
    }
    $filetype = GetFiletype($file_name);
    //取得擴展名
    if ($filetype != ".sql") {
        printerror("NotTranSQLFile", "history.go(-1)");
    }
    //上傳文件
    $newfile = 'tmp/uploadsql' . time() . '.sql';
    $cp = Ebak_DoTranFile($file, $newfile);
    if (empty($cp)) {
        printerror("TranSQLFileFail", "history.go(-1)");
    }
    $query = ReadFiletext($newfile);
    DelFiletext($newfile);
    if (!$query) {
        printerror("EmptyRunSql", "history.go(-1)");
    }
    //數據庫
    if ($add['mydbname']) {
        $empire->query("use `" . $add['mydbname'] . "`");
    }
    //編碼
    if ($add['mydbchar']) {
        DoSetDbChar($add['mydbchar']);
    }
    Ebak_DoRunQuery($query, $add['mydbchar'], $phome_db_ver);
    printerror("RunSqlSuccess", "DoSql.php");
}

function DelPicJs($picid)
{
    $filename = "../../../d/js/pic/pic_" . $picid . ".js";
    DelFiletext($filename);
}

//.........這裏部分代碼省略.........
    $add['gb_num'] = (int) $add['gb_num'];
    $add['member_num'] = (int) $add['member_num'];
    $add['space_num'] = (int) $add['space_num'];
    $add['infolday'] = (int) $add['infolday'];
    $add['filelday'] = (int) $add['filelday'];
    $add['baktempnum'] = (int) $add['baktempnum'];
    $add['dorepkey'] = (int) $add['dorepkey'];
    $add['dorepword'] = (int) $add['dorepword'];
    $add['indexpagedt'] = (int) $add['indexpagedt'];
    $add['closeqdtmsg'] = AddAddsData($add['closeqdtmsg']);
    $add['openfileserver'] = (int) $add['openfileserver'];
    $add['fieldandtop'] = (int) $add['fieldandtop'];
    $add['fieldandclosetb'] = $add['fieldandclosetb'] ? ',' . $add['fieldandclosetb'] . ',' : '';
    $add['firsttitlename'] = ehtmlspecialchars(str_replace("\r\n", "|", $add['firsttitlename']));
    $add['isgoodname'] = ehtmlspecialchars(str_replace("\r\n", "|", $add['isgoodname']));
    $add['closelisttemp'] = ehtmlspecialchars($add['closelisttemp']);
    $add['ipaddinfonum'] = (int) $add['ipaddinfonum'];
    $add['ipaddinfotime'] = (int) $add['ipaddinfotime'];
    $add['indexaddpage'] = (int) $add['indexaddpage'];
    $add['modmemberedittran'] = (int) $add['modmemberedittran'];
    $add['modinfoedittran'] = (int) $add['modinfoedittran'];
    //提交IP
    $doiptypes = '';
    $doiptype = $add['doiptype'];
    $doiptypecount = count($doiptype);
    if ($doiptypecount) {
        $doiptypes = ',';
        for ($di = 0; $di < $doiptypecount; $di++) {
            $doiptypes .= $doiptype[$di] . ',';
        }
    }
    //關閉相關模塊
    $closemodss = '';
    $closemods = $add['closemods'];
    $closemodscount = count($closemods);
    if ($closemodscount) {
        $closemodss = ',';
        for ($cmi = 0; $cmi < $closemodscount; $cmi++) {
            $closemodss .= $closemods[$cmi] . ',';
        }
    }
    //關閉後台菜單
    $closehmenus = '';
    $closehmenu = $add['closehmenu'];
    $closehmenucount = count($closehmenu);
    if ($closehmenucount) {
        $closehmenus = ',';
        for ($chmi = 0; $chmi < $closehmenucount; $chmi++) {
            $closehmenus .= $closehmenu[$chmi] . ',';
        }
    }
    //限製操作的時間點
    $timecloses = '';
    $timeclose = $add['timeclose'];
    $timeclosecount = count($timeclose);
    if ($timeclosecount) {
        $timecloses = ',';
        for ($tci = 0; $tci < $timeclosecount; $tci++) {
            $timecloses .= $timeclose[$tci] . ',';
        }
    }
    //限製使用時間的操作
    $timeclosedos = '';
    $timeclosedo = $add['timeclosedo'];
    $timeclosedocount = count($timeclosedo);
    if ($timeclosedocount) {
        $timeclosedos = ',';
        for ($tcdi = 0; $tcdi < $timeclosedocount; $tcdi++) {
            $timeclosedos .= $timeclosedo[$tcdi] . ',';
        }
    }
    $add[filetype] = "|" . $add[filetype] . "|";
    $add[qimgtype] = "|" . $add['qaddtranimgtype'] . "|";
    $add[qfiletype] = "|" . $add['qaddtranfiletype'] . "|";
    $add[feedbackfiletype] = "|" . $add['feedbackfiletype'] . "|";
    $add[memberimgtype] = "|" . $add['memberimgtype'] . "|";
    $add[memberfiletype] = "|" . $add['memberfiletype'] . "|";
    $sql = $empire->query("update {$dbtbpre}enewspublic set " . $a . "sitename='{$add['sitename']}',newsurl='{$add['newsurl']}',email='{$add['email']}',filetype='{$add['filetype']}',filesize={$add['filesize']},hotnum={$add['hotnum']},newnum={$add['newnum']},relistnum={$add['relistnum']},renewsnum={$add['renewsnum']},min_keyboard={$add['min_keyboard']},max_keyboard={$add['max_keyboard']},search_num={$add['search_num']},search_pagenum={$add['search_pagenum']},newslink={$add['newslink']},checked={$add['checked']},searchtime={$add['searchtime']},loginnum={$add['loginnum']},logintime={$add['logintime']},addnews_ok={$add['addnews_ok']},register_ok={$add['register_ok']},indextype='{$add['indextype']}',goodlencord={$add['goodlencord']},goodtype='{$add['goodtype']}',goodnum={$add['goodnum']},searchtype='{$add['searchtype']}',exittime={$add['exittime']},smalltextlen={$add['smalltextlen']},defaultgroupid={$add['defaultgroupid']},fileurl='{$add['fileurl']}',phpmode={$add['phpmode']},ftphost='{$add['ftphost']}',ftpport='{$add['ftpport']}',ftpusername='{$add['ftpusername']}',ftppath='{$add['ftppath']}',ftpmode='{$add['ftpmode']}',install={$add['install']},hotplnum={$add['hotplnum']},dorepnum={$add['dorepnum']},loadtempnum={$add['loadtempnum']},firstnum={$add['firstnum']},bakdbpath='{$add['bakdbpath']}',bakdbzip='{$add['bakdbzip']}',downpass='{$add['downpass']}',min_userlen={$add['min_userlen']},max_userlen={$add['max_userlen']},min_passlen={$add['min_passlen']},max_passlen={$add['max_passlen']},filechmod={$add['filechmod']},loginkey_ok={$add['loginkey_ok']},limittype={$add['limittype']},redodown={$add['redodown']},candocode={$add['candocode']},opennotcj={$add['opennotcj']},reuserpagenum={$add['reuserpagenum']},revotejsnum={$add['revotejsnum']},readjsnum={$add['readjsnum']},qaddtran={$add['qaddtran']},qaddtransize={$add['qaddtransize']},ebakthisdb={$add['ebakthisdb']},delnewsnum={$add['delnewsnum']},markpos={$add['markpos']},markimg='{$add['markimg']}',marktext='{$add['marktext']}',markfontsize='{$add['markfontsize']}',markfontcolor='{$add['markfontcolor']}',markfont='{$add['markfont']}',adminloginkey={$add['adminloginkey']},php_outtime={$add['php_outtime']},listpagefun='{$add['listpagefun']}',textpagefun='{$add['textpagefun']}',adfile='{$add['adfile']}',notsaveurl='{$add['notsaveurl']}',rssnum={$add['rssnum']},rsssub={$add['rsssub']},dorepdlevelnum={$add['dorepdlevelnum']},listpagelistfun='{$add['listpagelistfun']}',listpagelistnum={$add['listpagelistnum']},infolinknum={$add['infolinknum']},searchgroupid={$add['searchgroupid']},opencopytext={$add['opencopytext']},reuserjsnum={$add['reuserjsnum']},reuserlistnum={$add['reuserlistnum']},opentitleurl='{$add['opentitleurl']}',qaddtranimgtype='{$add['qimgtype']}',qaddtranfile={$add['qaddtranfile']},qaddtranfilesize={$add['qaddtranfilesize']},qaddtranfiletype='{$add['qfiletype']}',sendmailtype={$add['sendmailtype']},smtphost='{$add['smtphost']}',fromemail='{$add['fromemail']}',loginemail={$add['loginemail']},emailusername='{$add['emailusername']}',emailpassword='{$add['emailpassword']}',smtpport='{$add['smtpport']}',emailname='{$add['emailname']}',feedbacktfile={$add['feedbacktfile']},feedbackfilesize={$add['feedbackfilesize']},feedbackfiletype='{$add['feedbackfiletype']}',searchtempvar={$add['searchtempvar']},showinfolevel={$add['showinfolevel']},navfh='" . eaddslashes($add[navfh]) . "',spicwidth={$add['spicwidth']},spicheight={$add['spicheight']},spickill={$add['spickill']},jpgquality={$add['jpgquality']},markpct={$add['markpct']},redoview={$add['redoview']},reggetfen={$add['reggetfen']},regbooktime={$add['regbooktime']},revotetime={$add['revotetime']},fpath={$add['fpath']},filepath='{$add['filepath']}',openmembertranimg={$add['openmembertranimg']},memberimgsize={$add['memberimgsize']},openmembertranfile={$add['openmembertranfile']},memberfilesize={$add['memberfilesize']},memberimgtype='{$add['memberimgtype']}',memberfiletype='{$add['memberfiletype']}',canposturl='{$add['canposturl']}',openspace='{$add['openspace']}',realltime={$add['realltime']},closeip='{$add['closeip']}',openip='{$add['openip']}',hopenip='{$add['hopenip']}',closewords='{$add['closewords']}',closewordsf='{$add['closewordsf']}',textpagelistnum={$add['textpagelistnum']},memberlistlevel={$add['memberlistlevel']},ebakcanlistdb={$add['ebakcanlistdb']},keytog='{$add['keytog']}',keyrnd='{$add['keyrnd']}',keytime='{$add['keytime']}',regkey_ok='{$add['regkey_ok']}',opengetdown='{$add['opengetdown']}',gbkey_ok='{$add['gbkey_ok']}',fbkey_ok='{$add['fbkey_ok']}',newaddinfotime='{$add['newaddinfotime']}',classnavline='{$add['classnavline']}',classnavfh='" . eaddslashes($add[classnavfh]) . "',sitekey='{$add['sitekey']}',siteintro='{$add['siteintro']}',docnewsnum='{$add['docnewsnum']}',dtcanbq='{$add['dtcanbq']}',dtcachetime='{$add['dtcachetime']}',regretime='{$add['regretime']}',regclosewords='{$add['regclosewords']}',regemailonly='{$add['regemailonly']}',repkeynum='{$add['repkeynum']}',getpasstime='{$add['getpasstime']}',acttime='{$add['acttime']}',regacttype='{$add['regacttype']}',acttext='" . eaddslashes($add[acttext]) . "',getpasstext='" . eaddslashes($add[getpasstext]) . "',acttitle='" . eaddslashes($add[acttitle]) . "',getpasstitle='" . eaddslashes($add[getpasstitle]) . "',opengetpass='{$add['opengetpass']}',hlistinfonum='{$add['hlistinfonum']}',qlistinfonum='{$add['qlistinfonum']}',dtncanbq='{$add['dtncanbq']}',dtncachetime='{$add['dtncachetime']}',readdinfotime='{$add['readdinfotime']}',qeditinfotime='{$add['qeditinfotime']}',ftpssl='{$add['ftpssl']}',ftppasv='{$add['ftppasv']}',ftpouttime='{$add['ftpouttime']}',onclicktype='{$add['onclicktype']}',onclickfilesize='{$add['onclickfilesize']}',onclickfiletime='{$add['onclickfiletime']}',closeqdt='{$add['closeqdt']}',settop='{$add['settop']}',qlistinfomod='{$add['qlistinfomod']}',gb_num='{$add['gb_num']}',member_num='{$add['member_num']}',space_num='{$add['space_num']}',opendoip='{$add['opendoip']}',closedoip='{$add['closedoip']}',doiptype='{$doiptypes}',infolday='{$add['infolday']}',filelday='{$add['filelday']}',baktempnum='{$add['baktempnum']}',dorepkey='{$add['dorepkey']}',dorepword='{$add['dorepword']}',onclickrnd='{$add['onclickrnd']}',indexpagedt='{$add['indexpagedt']}',keybgcolor='{$add['keybgcolor']}',keyfontcolor='{$add['keyfontcolor']}',keydistcolor='{$add['keydistcolor']}',closeqdtmsg='{$add['closeqdtmsg']}',openfileserver='{$add['openfileserver']}',closemods='{$closemodss}',fieldandtop='{$add['fieldandtop']}',fieldandclosetb='{$add['fieldandclosetb']}',firsttitlename='" . eaddslashes($add[firsttitlename]) . "',isgoodname='" . eaddslashes($add[isgoodname]) . "',closelisttemp='" . eaddslashes($add[closelisttemp]) . "',chclasscolor='" . eaddslashes($add[chclasscolor]) . "',timeclose='" . eaddslashes($timecloses) . "',timeclosedo='" . eaddslashes($timeclosedos) . "',ipaddinfonum='{$add['ipaddinfonum']}',ipaddinfotime='{$add['ipaddinfotime']}',closehmenu='{$closehmenus}',indexaddpage='{$add['indexaddpage']}',modmemberedittran='{$add['modmemberedittran']}',modinfoedittran='{$add['modinfoedittran']}';");
    DoSetFileServer($add);
    //遠程附件更新
    GetConfig();
    //首頁動態文件
    if ($add['indexpagedt'] != $add['oldindexpagedt']) {
        if ($add['indexpagedt']) {
            DelFiletext(ECMS_PATH . 'index' . $add[indextype]);
            @copy(ECMS_PATH . DASHBOARD . '/data/template/dtindexpage.txt', ECMS_PATH . 'index.php');
        } else {
            DelFiletext(ECMS_PATH . 'index.php');
            $indextemp = GetIndextemp();
            NewsBq(0, $indextemp, 1, 0);
        }
    }
    if ($sql) {
        insert_dolog("");
        //操作日誌
        printerror("SetPublicSuccess", "SetEnews.php" . hReturnEcmsHashStrHref2(1));
    } else {
        printerror("DbError", "history.go(-1)");
    }
}

function DelVote($voteid, $userid, $username)
{
    global $empire, $dbtbpre;
    $voteid = (int) $voteid;
    if (!$voteid) {
        printerror("NotDelVoteid", "history.go(-1)");
    }
    //驗證權限
    CheckLevel($userid, $username, $classid, "vote");
    $r = $empire->fetch1("select title from {$dbtbpre}enewsvote where voteid='{$voteid}'");
    $sql = $empire->query("delete from {$dbtbpre}enewsvote where voteid='{$voteid}'");
    $file = "../../../d/js/vote/vote" . $voteid . ".js";
    DelFiletext($file);
    if ($sql) {
        //操作日誌
        insert_dolog("voteid=" . $voteid . "<br>title=" . $r[title]);
        printerror("DelVoteSuccess", "ListVote.php");
    } else {
        printerror("DbError", "history.go(-1)");
    }
}

function DelAd($adid, $userid, $username)
{
    global $empire, $time, $public_r, $dbtbpre;
    $adid = (int) $adid;
    if (!$adid) {
        printerror("NotDelAdid", "history.go(-1)");
    }
    //驗證權限
    CheckLevel($userid, $username, $classid, "ad");
    $r = $empire->fetch1("select title from {$dbtbpre}enewsad where adid='{$adid}'");
    $sql = $empire->query("delete from {$dbtbpre}enewsad where adid='{$adid}'");
    $file = "../../../d/js/acmsd/" . $public_r[adfile] . $adid . ".js";
    DelFiletext($file);
    //刪除附件
    DelFileOtherTable("modtype=3 and id='{$adid}'");
    if ($sql) {
        //操作日誌
        insert_dolog("adid=" . $adid . "<br>title=" . $r[title]);
        printerror("DelAdSuccess", "ListAd.php?time={$time}" . hReturnEcmsHashStrHref2(0));
    } else {
        printerror("DbError", "history.go(-1)");
    }
}

function Ebak_DelZip($file,$userid,$username){
	global $public_r;
	//驗證權限
	CheckLevel($userid,$username,$classid,"dbdata");
	$file=RepPostStr($file,1);
	if(strstr($file,".."))
	{printerror("FileNotExist","history.go(-1)");}
	if(empty($file))
	{
		printerror("FileNotExist","history.go(-1)");
    }
	$bakzippath=$public_r['bakdbzip'];
	$filename=$bakzippath."/".$file;
	if(!file_exists($filename))
	{
		printerror("FileNotExist","history.go(-1)");
	}
	DelFiletext($filename);
	//操作日誌
	insert_dolog("file=".$file);
	printerror("DelZipFileSuccess","history.go(-1)");
}

function Ebak_DelZip($file)
{
    global $bakzippath;
    if (strstr($file, "..")) {
        printerror("FileNotExists", "history.go(-1)", 9);
    }
    if (empty($file)) {
        printerror("FileNotExists", "history.go(-1)", 9);
    }
    $filename = $bakzippath . "/" . $file;
    if (!file_exists($filename)) {
        printerror("FileNotExists", "history.go(-1)", 9);
    }
    DelFiletext($filename);
    printerror("DelZipSuccess", "history.go(-1)", 9);
}

function DelPathFile($filename, $userid, $username)
{
    global $empire, $dbtbpre, $public_r, $efileftp_dr;
    //操作權限
    CheckLevel($userid, $username, $classid, "file");
    $count = count($filename);
    if (empty($count)) {
        printerror("NotFileid", "history.go(-1)");
    }
    //基目錄
    $basepath = eReturnEcmsMainPortPath() . "/data";
    //moreport
    for ($i = 0; $i < $count; $i++) {
        if (strstr($filename[$i], "..")) {
            continue;
        }
        if (!file_exists($basepath . "/" . $filename[$i])) {
            continue;
        }
        DelFiletext($basepath . "/" . $filename[$i]);
        $dfile = ReturnPathFile($filename[$i]);
        $dfile = hRepPostStr($dfile, 1);
        $dfnum = $empire->gettotal("select count(*) as total from {$dbtbpre}enewsfile_1 where filename='{$dfile}'");
        if ($dfnum) {
            $empire->query("delete from {$dbtbpre}enewsfile_1 where filename='{$dfile}'");
            //FileServer
            if ($public_r['openfileserver']) {
                $efileftp_dr[] = $basepath . "/" . $filename[$i];
            }
        }
    }
    //操作日誌
    insert_dolog("");
    printerror("DelFileSuccess", $_SERVER['HTTP_REFERER']);
}

function DelFeedbackClass($add, $userid, $username)
{
    global $empire, $dbtbpre;
    $bid = (int) $add['bid'];
    if (!$bid) {
        printerror("NotChangeGbookClassid", "history.go(-1)");
    }
    //驗證權限
    //CheckLevel($userid,$username,$classid,"feedbackf");
    $r = $empire->fetch1("select bid,bname from {$dbtbpre}enewsfeedbackclass where bid={$bid};");
    if (!$r['bid']) {
        printerror("NotChangeGbookClassid", "history.go(-1)");
    }
    $sql = $empire->query("delete from {$dbtbpre}enewsfeedbackclass where bid={$bid};");
    //刪除附件
    $fsql = $empire->query("select id,filepath,filename from {$dbtbpre}enewsfeedback where bid={$bid}");
    while ($fr = $empire->fetch($fsql)) {
        DelFeedbackFile($fr['filename'], $fr['filepath']);
    }
    $sql1 = $empire->query("delete from {$dbtbpre}enewsfeedback where bid={$bid};");
    //刪除表單文件
    $file = "../../tool/feedback/temp/feedback" . $bid . ".php";
    DelFiletext($file);
    if ($sql) {
        //操作日誌
        insert_dolog("bid=" . $bid . "<br>bname=" . $r[bname]);
        printerror("DelGbookClassSuccess", "FeedbackClass.php");
    } else {
        printerror("DbError", "history.go(-1)");
    }
}

function DelUser($userid, $loginuserid, $loginusername)
{
    global $empire, $dbtbpre;
    $userid = (int) $userid;
    if (!$userid) {
        printerror("NotDelUserid", "history.go(-1)");
    }
    //操作權限
    CheckLevel($loginuserid, $loginusername, $classid, "user");
    //驗證是否最後一個管理員
    $num = $empire->gettotal("select count(*) as total from {$dbtbpre}enewsuser");
    if ($num <= 1) {
        printerror("LastUserNotToDel", "history.go(-1)");
    }
    $r = $empire->fetch1("select username from {$dbtbpre}enewsuser where userid='{$userid}'");
    $sql = $empire->query("delete from {$dbtbpre}enewsuser where userid='{$userid}'");
    $sql1 = $empire->query("delete from {$dbtbpre}enewsuseradd where userid='{$userid}'");
    if ($sql) {
        DelFiletext('../../data/fc/ListEnews' . $userid . '.php');
        DelFiletext('../../data/fc/userclass' . $userid . '.js');
        //刪除導航緩存
        $empire->query("delete from {$dbtbpre}enewsclassnavcache where navtype='userenews' and userid='{$userid}'");
        //操作日誌
        insert_dolog("userid=" . $userid . "<br>username=" . $r[username]);
        printerror("DelUserSuccess", "ListUser.php" . hReturnEcmsHashStrHref2(1));
    } else {
        printerror("DbError", "history.go(-1)");
    }
}

function DelTxtFieldText($pagetexturl)
{
    global $ecms_config;
    if (empty($pagetexturl)) {
        return '';
    }
    $file = $ecms_config['sets']['txtpath'] . $pagetexturl . ".php";
    DelFiletext($file);
}

function DelMemberForm($add, $userid, $username)
{
    global $empire, $dbtbpre;
    $fid = (int) $add['fid'];
    if (!$fid) {
        printerror("EmptyMemberFormId", "history.go(-1)");
    }
    //驗證權限
    CheckLevel($userid, $username, $classid, "memberf");
    $r = $empire->fetch1("select fid,fname from {$dbtbpre}enewsmemberform where fid={$fid};");
    if (!$r['fid']) {
        printerror("EmptyMemberFormId", "history.go(-1)");
    }
    $sql = $empire->query("delete from {$dbtbpre}enewsmemberform where fid={$fid};");
    //刪除表單文件
    $file = "../data/html/memberform" . $fid . ".php";
    DelFiletext($file);
    if ($sql) {
        insert_dolog("fid=" . $fid . "<br>fname=" . $r[fname]);
        //操作日誌
        printerror("DelMemberFormSuccess", "member/ListMemberForm.php" . hReturnEcmsHashStrHref2(1));
    } else {
        printerror("DbError", "history.go(-1)");
    }
}