動態實時發佈新聞的程序，可以根據發佈時間，自動地排列顯示順序。新聞文件為存儲在指定目錄的文本文件組成，當有新聞的時候，程序會自動地將其顯示出來，並且排列在頁面的最開始部分。
News
<?php
include(locationfilename.php);
function createur1($text){
//新聞的文本文件中這樣插入你的鏈接
//${https://mysite.ch}
//或是${https://mysite.ch|My homepage in}
//開始處理文本文件部分
$s=$text;
$a=strstr($s,${);
if ($a){
$b=strstr($a,});
if ($b){
$la=strlen($a); $ls=strlen($s);
$s=substr($s,0,$ls-$la);
$a=substr($a,2);
$lb=strlen($b); $la=strlen($a);
$a=substr($a,0,$la-$lb); $b=substr($b,1);
$ta=strstr($a,"|");
if($ta){
$la=strlen($a); $lt=strlen($ta);
$linktext=substr($a,$la-$lt+1);
$a=substr($a,0,$la-$lt);
}
else{
$linktext=$a;
}
$s=$s."".$linktext."".$b;
}
}
return($s);
}
//在這裡修改你的新聞文件存放目錄
//切記，新聞文件必須是文本文件
$newspath="/home/htdocs/test/new/";
//設置數組
$newsfile=array();
//設置目錄把柄
$hd=dir($newspath);
//獲取全部文件，並將其存放在數組中
while($filename=$hd->read() ){
$s=strtolower($filename);
if (strstr($s,".txt")){
//檢測最新修改日期
$lastchanged=filemtime($newspath.$filename);
$newsfile[$filename]=$lastchanged;
}
}
//文件排序
arsort($newsfile);
//輸出文件
for(reset($newsfile); $key=key($newsfile); next($newsfile)){
$fa=file($newspath.$key);
$n=count($fa);
print "n";
print "".date("d.m.Y – H:i:s",$newsfile[$key])."
n";
for($i=0; $i<$n; $i=$i+1){
$s=chop($fa[$i]);
$s=htmlspecialchars($s);
$s=createur1($s);
print $s."
n";
}
print "";
}
$hd->close();
?>
