强烈推荐静态新闻列表自动生成程序。

PHP代码：-------------------------------------------------------- --------------------------------- /* 版权所有：日出东方XP 2004.7.17 */ function CreateShtml( ) { ob_start(array("callback_CreateShtml","callback_GoToShtml")); } 函数callback_CreateShtml($buffer) { $page = intval(@$_REQUEST["page"]); $fileName = $_SERVER[DOCUMENT_ROOT] 。目录名($_SERVER[PHP_SELF]) 。 “/”。基本名称($_SERVER[PHP_SELF],".php") 。 ($page==0 ? "" : "_" .strval($page)) 。 “.htm”； $fp = fopen($fileName,"wb"); fwrite($fp,$buffer); fclose($fp);返回$缓冲区； } 函数callback_GoToShtml($buffer) { $page = intval(@$_REQUEST["page"]); $fileName = 基本名称($_SERVER[PHP_SELF],".php") 。 ($page==0 ? "" : "_" .strval($page)) 。 “.htm”；标题（“位置：”。$文件名）；返回$缓冲区； } 函数 GoToShtml() { $page = intval(@$_REQUEST["page"]); $fileName = 基本名称($_SERVER[PHP_SELF],".php") 。 ($page==0 ? "" : "_" .strval($page)) 。 “.htm”； if(file_exists($fileName)) header("位置：" . $fileName); } 函数DeleteShtml($fileName=NULL) { if(is_null($fileName)) $fileName = $_SERVER[DOCUMENT_ROOT] . $_SERVER[PHP_SELF]; if($fileName[0]=="/") $fileName = $_SERVER[DOCUMENT_ROOT] 。 $文件名； $路径=目录名($文件名); $dir = dir($path); $patten =“/^”。基本名称($fileName, ".php") 。 "(_[0-9])?.htm/"; while(($entry = $dir->read())!==false) { if(is_file($path . "/" .$entry) && preg_match($patten,$entry)) unlink ($path . " /" .$entry); } }