静态新闻列表自动生成PHP程序_PHP

/*

版权所有：日出东方XP

2004.7.17

*/

    函数 CreateShtml()

    {

        ob_start(array("callback_CreateShtml ","callback_GoToShtml"));

    }



    函数 callback_CreateShtml($buffer)

    {

        $page = intval(@$_REQUEST["页面"]) ;

        $fileName = $_SERVER['DOCUMENT_ROOT'] 。 目录名($_SERVER['PHP_SELF']) 。 “/”。 基本名称($_SERVER['PHP_SELF'],“.php”）。 ($页==0 ?"" : “_”strval($page)) 。 ".htm";

        $fp = fopen($文件名,"wb");

        fwrite ($fp,$buffer);

        fclose($fp);

        返回 $buffer;

    }



    函数 callback_GoToShtml($buffer)

    {

        $页 = intval(@$_REQUEST[ “页面”]);

        $文件名 = 基本名称($_SERVER['PHP_SELF'],".php") 。 ($页==0 ?"" : “_”strval($page)) 。 ".htm";

        标题(“位置：” $文件名);
        返回
$buffer;
    }



    函数 GoToShtml()

    {

        $page = intval(@$_REQUEST["页面"]);

        $fileName = 基本名称($_SERVER ['PHP_SELF'],".php") 。 ($页==0 ?"" : “_”strval($page)) 。 ".htm";

        if(file_exists($fileName ))

            标题(“位置：”。$fileName );

    }

    

    函数 DeleteShtml($fileName=NULL)

    {

        if(is_null($文件名) )

            $fileName = $_SERVER['DOCUMENT_ROOT'] 。 $_SERVER['PHP_SELF'];

            

        if($文件名[0]=="/")

            $fileName = $_SERVER['DOCUMENT_ROOT'] 。 $文件名;



        $路径 = 目录名($文件名);

        $dir = 目录($路径);

        $patten = “/^”。 基本名称($fileName, ".php") 。 "(_[0-9] )?.htm/";

        while(($entry = $dir->读取())!==假)

        {

            if(is_file($path . "/" .$entry) && preg_match($patten,$条目))

               取消链接 ($path 。"/"。 >    }