论坛源码分析--显示篇

在下小试牛刀,用perl编写了一个论坛程序,希望和大家分享.

好了,不阻碍大家的时间了,现在就让我们来看看源代码吧~~~~

本程序不用数据库,而是用txt文件来储存论坛信息的.

存储方式为:

1.存储在COUNTER.TXT里面的内容

subject‖3

坚决反对51的暴行‖adam‖3‖2001年2月10日,星期六,00:57:38‖

我说，ADAM你就非要开设这个题目不可吗？怎么每次都是这个......‖GBOY‖5‖2001年2月10日,星期六,15:51:35‖

哈哈哈，改名改名，好！！！！‖ally‖2‖2001年2月10日,星期六,20:49:34‖

(第一行是记录论坛数,subject‖3)

(第二行开始是记录论坛的主题等信息,分别是:主题‖创始人‖回复‖时间‖)

2.存储在data\1(ID号).txt

billow‖‖2001年2月16日,星期五,12:28:52‖哈哈!!!!!!!!!!!!无聊！！！！！！！！！！！！！！！！

zsz‖‖2001年2月16日,星期五,12:34:09‖哈哈！！！！！！

怎么样？够玩吧！！！！‖

(分别是:回复人‖email‖时间‖内容‖)

下面的bbs_show.pl是实现部分~~

bbs_show.pl

#!/usr/bin/perl #大家都应该知道这是什么吧~~~:P

#################下面是函数部分###################

##用get的方式获取输入信息.也就是说分析url中所带的参数

sub getinput_get

{ $input=$ENV{'QUERY_STRING'};

@string=split(/&/,$input);

foreach(@string)

{

$_ =~ s/\+/ /g;

($id, $value) = split(/=/, $_);

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$id =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$GETINPUT{$id} = $value;

}

return(%GETINPUT);

}

################显示论坛主版面信息###############

sub bbs_show {

############# 打印各式,用HTML各式

print "Content-Type: text/html\n\n";

print "<html><head><title>牛刀论坛</title>\n".

"</head>".

"<BODY bgColor=#ffffff leftMargin=0 topMargin=5>".

"<div align=center>".

"<center>".

"<table border=0 width=750 cellpadding=0 cellspacing=0 height=68>".

"<tr>".

"<td width=191 height=68><img border=0 src=nocgi/top-1.gif width=204 height=71></td>".

"<td width=555 height=68><img border=0 src=nocgi/top-2.gif width=430 height=71></td>".

"</tr>".

"</table>".

"</center>".

"</div>".

"<HR SIZE=1 width=730>".

"".

"<TABLE align=center border=0 cellPadding=2 cellSpacing=1 width=730><TBODY>".

"<TR><TD align=middle vAlign=top width=200><A href=new.pl>".

"<IMG border=0 src=nocgi/post.gif></A>";

########### 计算论坛 #############

open(COUNTER,"<counter.txt")|| die "Can't Open counter.txt: $!\n"; ##打开一个叫counter.txt的文件

$temp=<COUNTER>;

($subject,$number)=split(/‖/,$temp);##将文件的第一行作分析,得出主题数$number

############分页分析以10主题为一页###############

if($number%10 != 0){ ### 如果$number可以被10整除,共分"$number/10+1"页

$page_s=int($number/10) + 1;}

else

{ $page_s=($number/10); ###如果$number不可以被10整除,共分"$number/10"页

}

@temp=<COUNTER>; ###把从第二行开始的数据储存到@temp上

$ID_=$number-($page-1)*10; ###获得当页面论坛的第一个主题ID

"<td align=right><FONT class=mid>当前页:<B>${page}"."/"."${page_s}</B></td>".

"</TD></TR></TBODY></TABLE>".

"<HR SIZE=1 width=730>".

"<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=750>".

"<TBODY><TR><TD vAlign=top>".

"<TABLE align=center border=0 cellPadding=4 cellSpacing=1 width=730>".

"<TBODY><TR><TD align=middle bgColor=#6f6f6f width=45%>".

"<FONT color=#ffffff>主题</FONT></TD>".

"<TD align=middle bgColor=#6f6f6f width=12%>".

"<FONT color=#ffffff>创建人</FONT></TD>".

"<TD align=middle bgColor=#6f6f6f width=5%><FONT color=#ffffff>回复</FONT></TD>".

"<TD align=middle bgColor=#6f6f6f width=28%><FONT color=#ffffff>始创论坛时间</FONT></TD>".

"</TR>";

########### 打印论坛 ##########

for($i=$number-($page-1)*10;$i>=$number-($page)*10+1;$i--) ##用循环打印论坛

{

last if($i<=0);

if($i%2==0){$color="cccccc";}

else{$color="dedede";}

($subject,$name,$reply,$dotime)=split(/‖/,$temp[$i-1]);

$reply--;

"<TR><TD bgColor=#$color class=mid>".

"<A class=title href=bbs_show.pl?action=show&ID=$ID_>".

"$subject</A></TD>".

"<TD align=middle bgColor=#$color>".

"<A href=kk target=_blank>".

"$name</A></TD>".

"<TD align=middle bgColor=#$color class=mid>$reply</TD>".

"<TD align=middle bgColor=#$color><FONT color=#ff8800>$dotime</FONT></TD>";

$ID_--; ##打印一个主题后ID-1

}

close COUNTER; ##关闭COUNTER.TXT

###############################

print "</TR></TBODY></TABLE>".

"<HR SIZE=1 width=730>".

############ 打印分页 #############

"<TABLE align=center border=0 cellPadding=4 cellSpacing=0 width=730>".

"<TBODY>".

"<TR>".

"<TD class=mid vAlign=top><B>分页</B>：".

"<FONT color=#999999><A href=bbs_show.pl?page=1>首页</A>". ##跳传到第一页

"";

$temp=$page-1; ##打印跳传到前一页

if($temp>0){

print "<A href=bbs_show.pl?page=".$temp.">前页</A>";

}else{print "前页";} ##如果没有前一页,就不打印连接

$temp=$page+1; ##打印跳传到后一页

if($temp<=$page_s){

print "<A href=bbs_show.pl?page=".$temp.">后页</A>";

}else{print "后页"; } ##如果没有后一页,就不打印连接

"</FONT>".

"<A href=bbs_show.pl?page=$page_s>尾页</A>". ##跳传到最后一页

"</TD>";

"<TD align=right vAlign=top>". ##用下拉菜单打印分页

"<FORM action=display.php?forum_id=12&order=last_time&datelimit=5 method=post>".

"<FONT class=mid>当前页:<B>${page}"."/"."${page_s}</B>".

"".

"转到第<SELECT name=page onchange=javascript:location.href=this.options[this.selectedIndex].value>";

print "<OPTION selected value=bbs_show.pl?page=$page>$page</OPTION>"; ##设定初始值为当前页面

for($i=1;$i<=$page_s;$i++)

{ if($i==$page){$i++;}

last if($i>$page_s); ##如果分页打印结束,跳出循环

print "<OPTION value=bbs_show.pl?page=$i>$i</OPTION>";

}

"</SELECT>".

"页</FONT>".

"</TD></TR></TBODY>".

"</TABLE>".

#####################################

"<TABLE align=center border=0 cellPadding=2 cellSpacing=1 width=730><TBODY>".

"<TR><TD align=middle vAlign=top width=200><A href=new.pl>".

"<IMG border=0 src=nocgi/post.gif></A>".

"</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>";

print "</body></html>\n";

exit;

}

###############显示主题论坛########################

########################################

sub bbs_show_person

{

print "Content-Type: text/html\n\n";

print "<html><head><title>牛刀论坛</title>\n".

"</head>".

"<BODY bgColor=#ffffff leftMargin=0 topMargin=5>".

"<div align=center>".

"<center>".

"<table border=0 width=750 cellpadding=0 cellspacing=0 height=68>".

"<tr>".

"<td width=191 height=68><img border=0 src=nocgi/top-1.gif width=204 height=71></td>".

"<td width=555 height=68><img border=0 src=nocgi/top-2.gif width=430 height=71></td>".

"</tr>".

"</table>".

"</center>".

"</div>".

"<HR SIZE=1 width=730>";

############# 计算个人论坛 ################

open(COUNTER,"<counter.txt")|| die "Can't Open counter.txt: $!\n";

@temp=<COUNTER>; ##把内容存储到@TEMP

close COUNTER;

($subject,$name,$reply,$dotime)=split(/‖/,$temp[$ID]);

##把内容分割成 $subject,$name,$reply,$dotime 的变量

$number=$reply; ##计算有多少个页面(属于分页用途)

if($number%10 != 0)

{

$page_s=int($number/10)+1;

}

else

{ $page_s=($number/10);

}

############ 打印论坛头 ############

$reply--; ##文件中行内容的个数减一为回复数(第一行是作者的内容,所以不可算在回复内)

"<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=730>".

"<tr><TD>主题 <font color=#336699>$ID</font>：".

"<FONT class=big color=#993333><B>".

"$subject</B></FONT></TD>".

"</TR><TR><TD>创建人：<FONT class=mid color=#336699>".

"$name</font>".

" 创建时间：<FONT class=mid color=#336699>".

"$dotime</font>".

"回复:<FONT class=mid color=#336699>".

"$reply</font><FONT class=mid color=#993333>".

" </font></TD> ".

"</TR>".

"</TABLE>".

"".

"<TABLE align=center border=0 cellPadding=2 cellSpacing=1 width=730>".

"<tr>".

"<TD align=middle class=mid>".

"<A href=new.pl><IMG border=0 src=nocgi/post.gif width=80 height=20></A>".

"<A href=reply.pl?ID=$ID><IMG border=0 src=nocgi/reply.gif width=80 height=20></A>".

"<A href=bbs_show.pl><IMG border=0 src=nocgi/theme_s.gif width=80 height=20></A>".

"</TD>".

"</TR>".

"<td align=right><FONT class=mid>当前页:<B>${page}"."/"."${page_s}</B></td>".

"</TABLE>".

"<HR SIZE=0 width=730>";

########### 打印回复内容 #############3

"<TABLE align=center border=0 cellPadding=1 cellSpacing=2 width=730>".

"<tr><td>".

"<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=730>".

"<TR>".

"<TD align=middle bgColor=#6f6f6f width=80%><FONT color=#ffffff>内容".

"</FONT>".

"</TD>".

"</TR>".

"</table>".

"</tr></td>";

###

open(FILE,"<data/${ID}.txt"); ##打开论坛恢复文件(存储在data\1(ID号).txt)

@temp=<FILE>;

for($i=1+$page*10-10;$i<=$page*10;$i++) ##用一个FOR循环来打印

{

last if($i>$number);

if($i%2==0){$color="cccccc";} ##如果是复数号内容,用color="cccccc"

else{$color="dedede";} ##如果是单数号内容,用color="dedede"

($name,$email,$dotime,$comments)=split(/‖/,$temp[$i-1]);

##将内容分割成为 $name,$email,$dotime,$comments 的变量

print ## 用循环打印内容

"<tr><td>".

"<TABLE bgColor=#$color align=center border=0 cellPadding=0 cellSpacing=1 width=730>".

"<tr width=100%>".

"<TD width=60%><IMG align=ABSCENTER border=0 src=nocgi/icon1.gif>".

"<FONT color=#336699>$name</FONT></TD>".

"<TD valign=bottom width=50%><FONT color=#336699>发表于:$dotime</FONT></TD>".

"<TD align=right><A href=http:// target=_blank>". ##编辑贴子还没写 :P

"<IMG alt=编辑帖子 border=0 src=nocgi/edit.gif></A></TD>".

"</tr>".

"<tr>".

"<TD width=80% colSpan=3 height=1%><HR SIZE=1></TD>".

"</tr>".

"<tr>".

"<td width=80% colSpan=3>$comments<BR>".

"$email".

"</tr>".

"</TR></table>".

"</tr></td>";

} ## 循环结束

close FILE;

##################################

"<tr><td>".

"<TABLE align=center border=0 cellPadding=4 cellSpacing=2 width=730>".

"<TR align=right bgColor=#6f6f6f><TD></TD></TR>".

"</TABLE>".

"</tr></td>".

"</TABLE>".

##### 打印分页 ############# (和上面所说的显示论坛主版面信息中打印分页原理一样,所以省略)

"<TABLE align=center border=0 cellPadding=4 cellSpacing=0 width=730>".

"<TBODY>".

"<TR>".

"<TD class=mid vAlign=top><B>分页</B>：".

"<FONT color=#999999><A href=bbs_show.pl?action=show&ID=$ID&page=1>首页</A>".

"";

$temp=$page-1;

if($temp>0){

print "<A href=bbs_show.pl?action=show&ID=$ID&page=".$temp.">前页</A>";

}else{print "前页";}

$temp=$page+1;

if($temp<=$page_s){

print "<A href=bbs_show.pl?action=show&ID=$ID&page=".$temp.">后页</A>";

}else{print "后页"; }

"</FONT>".

"<A href=bbs_show.pl?action=show&ID=$ID&page=$page_s>尾页</A>".

"</TD>";

"<TD align=right vAlign=top>".

"<FORM action=display.php?forum_id=12&order=last_time&datelimit=5 method=post>".

"<FONT class=mid>当前页:<B>${page}"."/"."${page_s}</B>".

"".

"转到第<SELECT name=page onchange=javascript:location.href=this.options[this.selectedIndex].value>";

print "<OPTION selected value=bbs_show.pl?action=show&ID=$ID&page=$page>$page</OPTION>";

for($i=1;$i<=$page_s;$i++)

{ if($i==$page){$i++;}

last if($i>$page_s);

print "<OPTION value=bbs_show.pl?action=show&ID=$ID&page=$i>$i</OPTION>";

}

"</SELECT>".

"页</FONT>".

"</TD></TR></TBODY>".

"</TABLE>".

############################

"<table align=center><HR SIZE=1 width=730><TABLE align=center border=0 cellPadding=2 cellSpacing=1 width=730>".

"<TBODY>".

"<tr>".

"<TD align=middle class=mid>".

"<A href=new.pl><IMG border=0 src=nocgi/post.gif width=80 height=20></A>".

"<A href=reply.pl?ID=$ID><IMG border=0 src=nocgi/reply.gif width=80 height=20></A>".

"<A href=bbs_show.pl><IMG border=0 src=nocgi/theme_s.gif width=80 height=20></A>".

"</TD></TR></TBODY></TABLE></table></TBODY>".

"</body></html>";

exit;

}

#### OK啦,全部打印完了

################# 以上是函数库 ##############################

getinput_get(); ##获取URL中的参数(例如:http://bbs_show.pl?action=show&ID=3)

##则是打印论坛主题三中的内容

$action=$GETINPUT{'action'};

$ID=$GETINPUT{'ID'};

if($action eq "show") ##如果action=show,显示主题论坛

{

if($GETINPUT{'page'}eq "")

{$page=1;} ##给予PAGE的初始值page=1

else

{$page=$GETINPUT{'page'};}

bbs_show_person(); ## 开始显示

}

else ##如果没有参数,显示论坛主版面信息

{

if($GETINPUT{'page'}eq "")

{$page=1;} ##给予PAGE的初始值page=1

else

{$page=$GETINPUT{'page'};}

bbs_show(); ## 开始显示

}

注意,以上的只是核心的源码,其他的版面设定给省略了