Thaimisc.com : แสดงกระทู้ในหน้าแรกและบอก new ได้ สำหรับ webboard 2.3
ThaiMisc.Com : Free Webboard | Free GuestBook | Free Poll | Free Ecard Server | Free Java Chat Room | Advertising | Contact Us | Colocation | Web Hosting | เปิดร้านค้าฟรี


Category : Perl Tip's Print Article Only Print Aticle With Comment
แสดงกระทู้ในหน้าแรกและบอก new ได้ สำหรับ webboard 2.3
เขียนโดย Thaimisc , 19-12-2001


ก่อนอื่นถ้า version webboard ของคุณนั้นยังไม่ได้ ติดตั้งระบบบอก กระทู้ใหม่ (New) คุณจะต้องไปติดตั้ง ไว้ก่อนที่ ให้ webboard สามารถแสดงกระทู้ใหม่(New) ที่มีการตอบหรือตั้งกระทู้ใหม่ได้ จากนั้นให้นำ Tag ต่อไปนี้ ไปเก็บที่ file viewboard_new.pl และ save จากนั้น upload ลงไป ที่ cgi-bin chmod เป็น 755 จากนั้นให้นำแทก <!--#exec cgi="/cgi-bin/viewboard_new.pl"--> นี้ไปไว้หน้าแรก หรือหน้าที่ คุณต้องการให้แสดงกระทู้ล่าสุด และหน้านั้น จะต้อง save เป็นไฟลล์ .shtml เท่านั้น เนื่องจากใช้ความสามารถ ของ ssi เข้ามาช่วย


#!/usr/bin/perl
require "config.pl";
print "Content-type:text/htmlnn";
$limitview=10; # กำหนดว่าต้องการให้แสดงกี่กระทู้


open( MSGFILE ,"$Topic_Dir/topic.dat");
@msgdata = <MSGFILE>;
close( MSGFILE );
@msgdata=reverse( @msgdata );
$size = @msgdata;
$numtopic = $size + 1;


for($i=0; $i<$limitview; $i++){ $numtopic--; print "$msgdata[$i]"; &checknum; }


########################
sub checknum{
if ($numtopic< 10) {$numtopic = "0000$numtopic";}
elsif ($numtopic < 100){$numtopic = "000$numtopic";}
elsif ($numtopic < 1000){$numtopic = "00$numtopic";}
else {$numtopic = "0$numtopic";}
$FNAME = "$Topic_Dir/$numtopic.dat";
$FILE_NAME="$FNAME";
open (NUMMSG,"$FILE_NAME") ;
$nummsg = <NUMMSG>;
close(NUMMSG);


if ($nummsg ne ""){
print "<font size=2 face="MS Sans Serif">(<b>$nummsg</b>)</font>";
open (newfile,"$Msg_Dir/new.html") ;
@new1 = <newfile>;
close(newfile);
$new11 = "no";
foreach $new (@new1){
if ( ($numtopic == $new) && ($new11 ne "yes") ){
print "<font color="red"> new</font>";
$new11 = "yes";
}
}
}
}

*หมายเหตุ : source code นี้สามารถใช้ได้สำหรับ webboard2.3b และ webboard2.31 เท่านั้น


เขียนโดย : กอล์ฟ
<- Back | Next ->

ThaiMisc.Com : Free Webboard | Free GuestBook | Free Poll | Free Ecard Server | Free Java Chat Room | Advertising | Contact Us
Copyright 1999-2006 Thailand Miscellaneous. Allrights reserved. webmaster@thaimisc.com