一个简洁的多级别论坛

本论坛总共用了不到200行代码,执行速度相当快。运行例子在:
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:htmlheadstyle
type=text/css!–.unnamed1 {font-size: 9pt; font-family: 宋体}.unnamed1 A
{COLOR: #000088; FONT-SIZE: 9pt; TEXT-DECORATION: none; TEXT-TRANSFORM:
none; font-family: 宋体}.unnamed1 A:hover {COLOR: #880000; FONT-SIZE:
9pt; TEXT-DECORATION: underline overline; font-family:
楷体_GB2312}.unnamed2 {font-size: 12px; color:
#9933FF}–/style/headbody bgcolor=#FFFFFF text=#000000 link=#000066
vlink=#0000CC
alink=#000099?$m=mysql_connect(localhost,××××,××××);mysql_select_db(××××,$m);??if
($fl==) $fl=1;$hf_fl=$fl;$q=select * from yxforum where
id=.$fl;$mr=mysql_query($q,$m);$ra=mysql_fetch_row($mr);?p
b?print($ra[2]);?/bbr?if ($fl!=1) {?small?printf((a
href=mailto:%s%s/a)
,$ra[7],$ra[6]);?/small/p?$alltt=$ra[2];$lastid=$ra[4];print(centertable
width=90% border=1trtd bgcolor=#dddddd
class=unnamed1.$ra[3]./tr/table/center);print(brsmall跟随主题:/small);}$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;}?centertable
border=0 width=732 class=unnamed1tr align=center valign=top
bgcolor=#FFFFCCtd width=186 最新回应时间td width=88发表人td
width=414主题td
width=44回应数/tr?$x[0]=ffffcc;$x[1]=DEEFFF;$i=1;while($ra)/*显示目前的主题*/{$ys_c=$i%2;print(tr
height=12 bgcolor=#.$x[$ys_c].td.$ra[1]);print(td a
href=mailto:.$ra[7]..$ra[6]./a);print(td);printf(a
href=index.php?fl=%s%s/a,$ra[0],$ra[2]);print(td
.$ra[8]);print(/tr);$ra=mysql_fetch_row($mr);$i++;if ($i15)
break;}?/table/centerform action=index.php method=get name=F0
onsubmit=document.F0.p.value–;return true;span
class=unnamed1?$alllines=mysql_affected_rows($m);$pages=$alllines/15;if
($pages-intval($pages)!=0) $pages=intval($pages)+1;else
$pages=intval($pages);print(共.$pages.页 第.($p+1).页 );if ($p0)
{printf(a href=index.php?fl=%s首页/a ,$hf_fl);printf(a
href=index.php?fl=%s&p=%d/a ,$hf_澳门新葡亰网站注册,fl,$p-1);}if ($ra){printf(a
href=index.php?fl=%s&p=%d/a ,$hf_fl,$p+1);printf(a
href=index.php?fl=%s&p=%d末页/a ,$hf_fl,$pages-1);}?指定第input
type=text size=2 name=p页/spanspan class=unnamed1?if
($hf_fl!=1){printf(bra href=index.php?fl=%s上一级/a ,$lastid);print(a
href=index.php最高级/abr);}?/formcentertable width=80%
bgcolor=#eeeefftrtd
class=unnamed1?print(($fl==1)?加新贴::回应:);?form action=addnew.php
method=post name=F1姓名:input type=text name=nm size=15brEmail:input
type=text name=em size=45br标题:input type=text name=tt size=45 ?if
($fl!=1) print(value=回复:.$alltt);? input type=hidden name=fl
value=?print($hf_fl);?input type=hidden name=p
value=?print($p);?br正文: brtextarea name=zw cols=50
rows=10/textareainput type=submit name=Submit value=提
交/form/tr/table/centerhrcenter自用论坛程序0.25版 设计工具:PHP+MYSQLbra
href=mailto:fhl@cgi.hnpts.ha.cn古钺青剑/a 制作bra
href=逍遥飞狐多媒体作坊/a 2000
/center/span/body/htmladdnew.php:?$m=mysql_connect(localhost,×××,×××××);mysql_select_db(×××××,$m);$zw=ereg_replace(,,$zw);$zw=ereg_replace(,,$zw);$zw=ereg_replace(n,br,$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=font color=red不要偷懒嘛!把表格填完再提交不迟。/font;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 ($fl0);$msg=font
color=green你的意见已经成功提交!/font;}?htmlheadscript
language=Javascriptfunction
go(){document.location=index.php?fl=?print($fl_a);?&p=?print($p)?;}/scriptbody
onload=setTimeout(‘go()’,3000);?print($msg);?br系统将在3秒钟以后自动返回。如果不能返回或者你着急,请按a
href=index.php?fl=?print($fl_a);?&p=?print($p)?这里/a/body