一个简洁的多级别论坛

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);

?>

?>

%s) ",$ra[7],$ra[6]);?>

$lastid=$ra[4];

print("

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;

}

?>

自用论坛程序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=>这里