<?php
/*head.php 为了避免被别人直接键入head.inc下载你的源代码，最好用php做后缀，这样，你的服务器才会先截获它进行处理，呵呵*/
echo "<html><head><title>"
echo "网页教学网"//如果标题常变,可做一个函数。
echo "</title></head>"
?>
这是一个写html头的一功能块。
<?php
/*makestr.php 定义一个公用处理文本中超链接的函数，假定文本中链接形式为${http://www.webjx.com|网页教学网}*/
function makestr($text)
{ $str=$text;
$a=strstr($s,'$}');//切除在$s中‘${'之前的子串
if($a){
$b=strstr($a,'}');
if($b){
$la=strlen($a);$ls=strlen($s);//取串长
$s=substr($a,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."<a herf="".$a."">.$linktext."</a>.$b;//准备返回字串
}
}
return($s);
}
--------如果你是一个新手，那么应该找一本html入门的书来看看。否则是很难成为一个PHP高手的。这些你开始看起来 非常简单的处理字符串的函数，经过你的巧妙运用，是能做很多漂亮的事的。下一讲，我们就可以看到我们准备了大半天的成果了，呵呵。
三 首页新闻发布，让你更新更轻松（中）
上次我们做了一个文件头（至于文件尾，请大家自己做，假设为tail.php），一个函数的模块，现在，我们来一个基本功能的实现，也就是动态发布啦
<?php
include("makestr.php";
include("head.php");
$newspath="/announce/"; //以文本文件存放的新闻文件的目录
$newsfile=array();//准备新闻数组
$hd=dir($newspath); //目录句柄
while($filename=$hd->read()){ //获取全部文件
$s=strtolower($filename);
if(strstr($s,".txt")){
//检测最新的修改日期
$lastchanged=fileatime($newspath.$filename);
$newsfile[$filename]=$lastchanged;
}
}
arsort($newsfile); //文件按时间排序
//输出文件
for(reset($newsfile);$key=key($newsfile);next($newsfile))
{$fa=file($newspath.$key);
$n=count($fa);
echo "<p>".date("d.m.Y-H:i:s".$newsfile[$key])."<br>\n";
for($i=0;$i<$n;$i=$i+1){
$s=chop($fa[$i]);//去除空格
$s=htmlspecialchars($s);
print $s."</p>\n";
}
}
$hd->close(); //释放句柄
include("tail.php");
?>
这样，将你的新闻文本传上你根目录的annouce子目录下，就可以方便发布新闻了。但真正的方便还不在于这，比如说，当新闻过时的时候，程序能自动删除它，多好。不用ftp，直接在线写下要新发的公告，多方便。好了，且听下回分解。
三 首页新闻发布，让你更新更轻松（下）
-----上一讲里，我们已经实现了首页新闻发布的基本功能。在这一讲里，我们再给它添砖加瓦，使它的功能更为强大。（一个好用的软件，其实也就是基本功能加上一批附属功能，这些附属功能主要也是图个方便而已，呵呵）
-----首先，我们再明确一下我们想获得什么方便。我们不希望几十天以前的东西我们忘了删除，结果还作为新闻发布在首页（很丢脸的哦^&^）。如果我们在基本实现中嵌入一段代码，比如说用filectime($filename)，那么在UNIX下，我们就可以得到从1970年1月1日起以秒计到最后一次文件被改动的时间（在WINDOWS下返回的是文件生成的日期时间），而从 1970年1月1日起以秒计到现在的秒数可以用$mynow=mktime()来获得，减法，判断，IF >我们期望的时间，嘿嘿，Sorry，unlink($newspath.$filename)……什么？！您问这段代码应该放在哪儿？您说呢，呵呵。
