We strongly recommend that you automatically generate programs for static news lists.

PHP code: exported/* copyright: sunrise XP 2004.7.17 */function CreateShtml () {ob_start (array ("callback_CreateShtml", "callback_GoToShtml");} function callback_CreateShtml ($ buffer) {$ page = intval (@ $ _ REQUEST ["page"]); $ fileName = $ _ SERVER [DOCUMENT_ROOT]. dirname ($ _ SERVER [PHP_SELF]). "/". basename ($ _ SERVER [PHP_SELF], ". php "). ($ page = 0? "":"_". Strval ($ page )). ". htm "; $ fp = fopen ($ fileName," wb "); fwrite ($ fp, $ buffer); fclose ($ fp); return $ buffer ;} function callback_GoToShtml ($ buffer) {$ page = intval (@ $ _ REQUEST ["page"]); $ fileName = basename ($ _ SERVER [PHP_SELF], ". php "). ($ page = 0? "":"_". Strval ($ page )). ". htm "; header (" location :". $ fileName); return $ buffer;} function GoToShtml () {$ page = intval (@ $ _ REQUEST ["page"]); $ fileName = basename ($ _ SERVER [PHP_SELF], ". php "). ($ page = 0? "":"_". Strval ($ page )). ". htm "; if (file_exists ($ fileName) header (" location :". $ fileName);} function DeleteShtml ($ fileName = NULL) {if (is_null ($ fileName) $ fileName = $ _ SERVER [DOCUMENT_ROOT]. $ _ SERVER [PHP_SELF]; if ($ fileName [0] = "/") $ fileName = $ _ SERVER [DOCUMENT_ROOT]. $ fileName; $ path = dirname ($ fileName); $ dir = dir ($ path); $ patten = "/^ ". basename ($ fileName ,". php "). "(_ [0-9] + )?. Htm/"; while ($ entry = $ dir-> read ())! = False) {if (is_file ($ path. "/". $ entry) & preg_match ($ patten, $ entry) unlink ($ path. "/". $ entry );}}