一个简洁的多级别论坛_PHP

本论坛总共用了不到200行代码，执行速度相当快。运行例子在：http://www.hnpts.ha.cn/forum
MYSQL数据库：yxforum
------- -------------- ------ ----- --------- ----------------
| Field | Type | Null | Key | Default | Extra |
------- -------------- ------ ----- --------- ----------------
| id | int(11) | | PRI | 0 | auto_increment |
| dt | datetime | YES | | NULL | |
| tp | varchar(255) | YES | | NULL | |
| ct | text | YES | | NULL | |
| fl | int(11) | YES | | NULL | |
| ip | varchar(20) | YES | | NULL | |
| un | varchar(50) | YES | | NULL | |
| em | varchar(60) | YES | | NULL | |
| num | int(11) | YES | | NULL | |
------- -------------- ------ ----- --------- ----------------

index.php:






mysql_select_db("××××",$m);
?>

$hf_fl=$fl;
$q="select * from yxforum where id=".$fl;
$mr=mysql_query($q,$m);
$ra=mysql_fetch_row($mr);
?>

?>

$lastid=$ra[4];
print("

".$ra[3]."

");
print("
跟随主题：");
}

$q="select * from yxforum where fl=".$fl." order by dt desc";
if ($p=="") $p=0;
$mr=mysql_query($q,$m);
$f=mysql_num_fields($mr);

$ra=mysql_fetch_row($mr);
$i=0; $p1=$p*15; /*跳过指定的页数对应的行*/
while ($i<$p1)
{$i ;
$ra=mysql_fetch_row($mr);
if (! $ra) break;}


?>




$x[0]="ffffcc";$x[1]="DEEFFF";$i=1;
while ($ra) /*显示目前的主题*/
{$ys_c=$i%2;
print("");
$ra=mysql_fetch_row($mr);
$i ;
if ($i>15) break;
}

?>

最新回应时间	发表人	主题	回应数
".$ra[1]); print("	".$ra[6].""); print("	"); printf("%s",$ra[0],$ra[2]); print("	".$ra[8]); print("

---

自用论坛程序0.25版 设计工具：PHP MYSQL

古钺青剑 制作
逍遥飞狐多媒体作坊 2000






addnew.php:

mysql_select_db("×××××",$m);
$zw=ereg_replace("<","<",$zw);
$zw=ereg_replace(">",">",$zw);
$zw=ereg_replace("n","
",$zw);
$zw=ereg_replace(" "," ",$zw);
$tt=ereg_replace("<","<",$tt);
$tt=ereg_replace(">",">",$tt);
if ($nm=="") $nm="无名宝";
if ($em=="") {$nm.="<-- 是一只没有MAIL的菜鸟";$em="No";}
$err=strlen($tt)*strlen($zw);
if ($err==0)
$msg="不要偷懒嘛！把表格填完再提交不迟。";
else {$q="insert into yxforum (dt,tp,ct,fl,ip,un,em,num) values"
."(now(),"".$tt."","".$zw."",".$fl.","".$REMOTE_ADDR."","".$nm."","".$em."",0)";
mysql_query($q,$m);

$q="select num,fl from yxforum where id=".$fl;
$fl_a=$fl;
do { $mr=mysql_query($q,$m);
$ra=mysql_fetch_row($mr);
$num=$ra[0] 1;
$q="update yxforum set dt=now(),num=".$num." where id=".$fl;
$fl=$ra[1];
mysql_query($q,$m);
$q="select num,fl from yxforum where id=".$fl;
} while ($fl>0);


$msg="你的意见已经成功提交！";
}
?>






系统将在3秒钟以后自动返回。如果不能返回或者你着急，请按&p=>这里