您的位置：首页 → 网页设计 → PHP实例 → 一个可分页的基于文本的PHP留言板

一个可分页的基于文本的PHP留言板

时间：2004/11/7 3:22:00来源：本站整理作者：蓝点我要评论(0)

    小弟初学PHP，编了一个留言板程序，自我感觉良好，故厚着脸皮放了上来，请各位大哥指正。源程序如下：


//文件名：guest.php

//设定部分

$guestfile="guest";//纪录留言的文本文件

$home="index.html";//返回的主页

$imagedir="image"; //图像文件的目录

$backimage=$imagedir."/bk.gif";//背景图像

$backcolor="#ceffff";//背景颜色,在$backimage=""时起作用

?>






if($QUERY_STRING!="") {

  $page = $QUERY_STRING;

} else {

  $page = 1;

}

if($mode=="add"){

  $name=htmlspecialchars(trim($name));

  $title=htmlspecialchars(trim($title));

  $data=nl2br(htmlspecialchars($data));

  $data=str_replace("r","",$data);

  $data=str_replace("x0A","",$data);

  $data=str_replace(" "," ",$data);

  if($data=="") $data=" ";

  $e_mail=trim($e_mail);

  if($e_mail=="") $e_mail=0;

  $url=trim($url);

  if($url=="http://" || $url=="") $url=0;

  $time=date("Y")."年".date("m")."月".date("d")."日[".date("H").":".date("i").":".date("s")."]";

  if($name=="" || $title==""){

    echo "n";

    exit;

  }

  $adddata=$name."t".$e_mail."t".$url."t".$title."t".$data."t".$icon."t".$time."n";

  if(file_exists($guestfile)){

    $filebuffer=file($guestfile);

    if(sizeof($filebuffer)>100){

      for($i=0;$i<100;$i++)

        $newbuffer[i]=$filebuffer[i];

    }

    else{

      $newbuffer=$filebuffer;

    }

    $fp=fopen($guestfile,"w");

    fputs($fp,$adddata);

    fclose($fp);

    $buffer=implode("",$newbuffer);

    $fp=fopen($guestfile,"a");

    fputs($fp,$buffer);

    fclose($fp);



  }

  else{

    $fp=fopen($guestfile,"w");

        fwrite($fp,$adddata);

        fclose($fp);

  }

}

?>










if($backimage!="" && file_exists($backimage)){

  echo "n";

}

else{

  echo "n";

}

?>



  

    

  

供电9901网上空间留言板

[返回首页]

  

  

姓名:

    

    


    E_Mail:

    

    


    主页:

    

    


    留言标题:

    

    


    留言内容:(不支持HTML)


    

  

    

表情:

    

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">


      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">


      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

      

      " width="15" height="15">

  

  

  

    

    

  

---

if(!file_exists($guestfile)){

  echo "

没有留言

";

}

else{

  $filebuffer=file($guestfile);

  $size=sizeof($filebuffer);

  $pages=ceil($size/20);

  echo "

共".$size."条留言&nbsp;&nbsp;&nbsp;&nbsp;第".$page."页/共".$pages."页
";

  if($page>1){

    $prev=$page-1;

    echo "&lt;&lt;&nbsp;";

  }

  for($i=1;$i<=$pages;$i++){

    echo "&nbsp;".$i."&nbsp;";

  }

  if($page<$pages){

    $next=$page+1;

    echo "&nbsp;&gt;&gt;";

  }

  echo "

";

  for($i=($page-1)*20; $i<$page*20 && $i<$size; $i++){

    $buffer=explode("t",$filebuffer[$i]);

    echo "";

    echo "";

    echo "";

    echo "";

    echo "";

    echo "";

    echo "";

    echo "";

  }

}

?>

	".$buffer[3]."	(".$buffer[0].")	";     if($buffer[2]!="0"){       echo "主页";     }     else{       echo "主页";     }     echo "	";     if($buffer[1]!="0"){       echo "E_Mail";     }     else{       echo "E_Mail";     }     echo "	".$buffer[6]."
 	".$buffer[4]."
 

---

本网站由疯狂电脑工作室制作   2000

   

    大家可到gd9901.oso.com.cn看看效果，有什么问题请E_Mail至jaayee@21cn.com。  

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论