3、数据修改程序段

    $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
    $gb_reply=encode($gb_reply);
    for ($i=0;$i<$n;$i++) {//进入循环
    if(eregi($ttime,$list[$i])){//将送来发留言时间$ttime与数组单元$list里内容进行字串匹配比较
    $f=explode("|",$list[$i]);//如果找到匹配，就以"|"作为分隔符,切开留言信息$list[$i](第$i条留言),并将这些数据赋予数组$f
    $f[9]=$gb_reply;//将$f[9]（留言信息最后一条数据）用$gb_reply（回复内容）代替。
    $list[$i]=$f[0]."|".$f[1]."|".$f[2]."|".$f[3]."|".$f[4]."|".$f[5]."|".$f[6]."|".$f[7]."|".$f[8]."|".$f[9]."\n"; //将数组单元$list[$i]的内容用数组$f加上分隔符"|"代替（其中$f[9]是修改了的新数据）。
    break;//跳出循环
    }
    }//循环结束符
    }
    FOR($i=0;$i<=$n;$i++){//进入循环
    fwrite($fp,$list[$i]);//将数组$list的每个单元为一行，写入文件gb.dat
    }//循环结束符
    fclose($fp);//关闭文件
    showmessage("回复成功!","index.php");//回复成功，自动返回主界面。