www.pudn.com > bbs3000afree.zip > affiche.cgi

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
open(TITLES,"$filepath/list/bbs"); 
@hastitles=; 
close(TITLES); 
for ($i=0; $i<8; $i++){ 
$hastitle=@hastitles[$i]; 
if($hastitle ne ""){ 
($rcomment)=split(/\t/,$hastitle); 
chomp($rcomment); 
open(TITLES,"$filepath/list/$rcomment"); 
$m=; 
close(TITLES); 
($rtitles,$rthistime,$rusername,$nr)=split(/\t/,$m); 
$new="$new
$rtitles
$nr
发布人 $rusername　发布时间 $rthistime

"; 
}} 
&css; 
print <公告栏
 
[关闭窗口]
[发布公告]
 
$new 
Powered by Yuzi Studios © 2001
Yuzi Bulletin Board VersionTM $ver 
 
EOF 
######################### END OF SCRIPT #########################