$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]." "; //将数组单元$list[$i]的内容用数组$f加上分隔符"|"代替（其中$f[9]是修改了的新数据）。 break;//跳出循环 } }//循环结束符 } FOR($i=0;$i<=$n;$i++){//进入循环 fwrite($fp,$list[$i]);//将数组$list的每个单元为一行，写入文件gb.dat }//循环结束符 fclose($fp);//关闭文件 showmessage("回复成功!","index.php");//回复成功，自动返回主界面。
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");//删除成功，自动返回主界面。 }
5、数据查询程序：
<form action="search.php" method="post"> <font color="#0099CC" size="2">搜索关键字： <input type="text" size="12"> <input type="image" src="https://www.jb51.net/image/search.gif" alt="留言搜索"> </font></td> </tr> </table> </form> ////////////////////////////////上面是搜索表单语句段 <? $id=0; $list=file("gb.dat");//读取整个gb.dat文件到数组$list,数组每一个元素为一条留言($list[0]是第一条留言的数据、$list[1]是第一条留言的数据..... $n=count($list);//计算$list内容里的留言总数,并赋予变量$n $found=trim($found); if (!$found){ //如果$found为假 echo "<center>您没有输入任何关键字！</center>";//作相关显示 } else { if($n>0){//如果留言数大于0 for ($i=0;$i<$n;$i++) {//进入循环 if(eregi($found,$list[$i])){//输入的关键字与数组$list[$i]里的字串进行匹配比较 $row=explode("|",$list[$i]); $id=1; //如果找到匹配，就以"|"作为分隔符,切开留言信息$list[$i](第$i条留言),并将这些数据赋予数组$row.并将变量$id赋予1，以便作为是否找到匹配的判断。 list($ip,$datetime,$name,$email,$home,$face,$qq,$head,$text,$reply)=$row;//将数组$row里的单元数据按顺序赋予括号里的变量 ?> <img src=<? echo $head ?> >//显示客户形象图片 <br> <font color="#0099CC">昵称【<? echo $name ?><font size="2">】<br>//显示客户名 发表于：<? echo $datetime ?>//显示留言发表时间 <br> <img src=<? echo $face ?>>//显示客户留言表情图片 <? echo $name ?>说:<? echo $text; ?>//显示客户
您可能感兴趣的文章: