一个简洁的多级别论坛_php基础_脚本之家

本论坛总共用了不到200行代码,实行进程非凡快。运维例子在:
MYSQL数据库:yxforum
+——-+————–+——+—–+———+—————-+| Field| Type| Null | Key | Default |
Extra|+——-+————–+——+—–+———+—————-+|
id| int(11卡塔尔|| P宝马X3I | 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/centerState of Qatar;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=45回应数/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 2002/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==0State of Qatar$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(State of Qatar’,3000State of Qatar;?print($msgState of Qatar;?br系统就要3分钟现在自动重回。借使无法回去或许您发急,请按a
href=index.php?fl=?print($fl_a);?&p=?print($p)?这里/a/body

本论坛总共用了不到200行代码,推行进度特出快。运营例子在:
MYSQL数据库:yxforum
+——-+————–+——+—–+———+—————-+| Field
| Type| Null | Key | Default |
Extra|+——-+————–+——+—–+———+—————-+|
id| int|| PRI | 0| auto_increment || dt| datetime| YES|| NULL||| tp|
varchar | YES|| NULL||| ct| text| YES|| NULL||| fl| int| YES|| NULL|||
ip| varchar| YES|| NULL||| un| varchar| YES|| NULL||| em| varchar| YES||
NULL||| num| int| YES||
NULL||+——-+————–+——+—–+———+—————-+index.php:

$m=mysql_connect(“localhost”,”××××”,”××××”);mysql_select_db;?>

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

$alltt=$ra[2];$lastid=$ra[4];print(“

".$ra[3]."

“);print(“
追随大旨:”卡塔尔国;}$q=”select * from yxforum where fl=”.$fl.” order by dt
desc”;if
$p=0;$mr=mysql_query;$f=mysql_num_fields;$ra=mysql_fetch_row;$i=0;
$p1=$p*15; /*跳过钦命的页数对应的行*/while
{$i++;$ra=mysql_fetch_row break;}?>

摩登回合时间

发表人

主题

回应数

$x[0]=”ffffcc”;$x[1]=”DEEFFF”;$i=1;while/*来得近些日子的大旨*/{$ys_c=$i%2;print(“

“.$ra[1]);print(“

“.$ra[6].””);print;printf(“%s”,$ra[0],$ra[2]);print(“

“.$ra[8]);print;$ra=mysql_fetch_row break;}?>


自用论坛程序0.25版 设计工具:PHP+MYSQL
古钺青剑 制作
自在飞狐多媒体碾磨厂 2000
addnew.php:$m=mysql_connect(“localhost”,”×××”,”×××××”);mysql_select_db;$zw=ereg_replace(“”,”>”,$zw);$zw=ereg_replace(“n”,”
“,$zw);$zw=ereg_replace(” “,”
“,$zw);$tt=ereg_replace(“”,”>”,$tt卡塔尔国;if $nm=”无名氏宝”;if
{$nm.=”不要偷懒嘛!把表格填完再提交不迟。”;else {$q=”insert into yxforum
(dt,tp,ct,fl,ip,un,em,numState of Qatarvalues”.”,””.$tt.””,””.$zw.””,”.$fl.”,””.$REMOTE_ADDR.””,””.$nm.””,””.$em.””,0)”;mysql_query;$q=”select
num,fl from yxforum where id=”.$fl;$fl_a=$fl;do {
$mr=mysql_query;$ra=mysql_fetch_row;$num=$ra[0]+1;$q=”update
yxforum set dt=now(),num=”.$num.” where
id=”.$fl;$fl=$ra[1];mysql_query;$q=”select num,fl from yxforum where
id=”.$fl;} while ;$msg=”你的见地已经成功交付!”;}?>

系统将要3分钟未来自动再次回到。要是不能够回去或许您心急,请按&p=

>这里

发表评论

电子邮件地址不会被公开。 必填项已用*标注