4、数据删除程序段

    $list=file("gb.dat");//读取整个gb.dat文件到数组$list,数组每一个元素为一条留言($list[0]是第一条留言的数据、$list[1]是第一条留言的数据.....
    $n=count($list);//计算$list内容里的留言总数,并赋予变量$n
    if ($n>0){//如果留言数大于0
    $fp=fopen("gb.dat","w");//则以只写模式打开文件gb.dat
    for ($i=0;$i<$n;$i++) {//进入循环
    if(eregi($ttime,$list[$i])){//将发送过来发留言时间$ttime与数组$list[$i]里的字串进行匹配比较
    $list[$i]="";//如果匹配成功，则将$list[$i]清空（达到删除的目的）
    break;//跳出循环
    }
    }//循环结束符
    FOR($i=0;$i<=$n;$i++){//进入循环
    fwrite($fp,$list[$i]);//将数组$list的每个单元为一行，写入文件gb.dat
    } //循环结束符
    fclose($fp);//关闭文件
    showmessage("删除成功!","index.php");//删除成功，自动返回主界面。
    }