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

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
open (FILE,"$filepath/data/people.cgi"); 
@LINES=; 
close(FILE); 
$people=@LINES; 
open(TITLES,"$filepath/list/$id/good"); 
@hastitles=; 
close(TITLES); 
$size=@hastitles; 
$syy=$page-20; 
&css; 
print <if(top==self)document.location='$cgiurl?id=$id'; 
 
$htmlt
论坛名称：$bbsname　　版主：$bzmc $fbzmc $fbzmc2
$outurl

 
  
>>免费论坛申请>>版主资料修改>>用户资料注册>>用户资料修改>>网络寻呼机>>精华区
刷新当前论坛  
我的留言簿 在线人数: $people 论题数: $size 使用帮助
 
 
　
 
　
 
文章标题
 
字[回]
 
作者
 
最后更新时间
 
最后回复
 
点击
 
EOF 
for ($i=$page; $i<$page+20; $i++){ 
$hastitle=@hastitles[$i]; 
($index)=split(/\t/,$hastitle); 
chomp($index); 
open(TITLES,"$filepath/list/$id/$index"); 
$hastitle=; 
close(TITLES); 
($rtitles,$rthistime,$rusername,$rcomment,$rfrom,$rhasreply,$emote,$lastname,$rlasttime,$re,$rhassee,$jing,$lock)=split(/\t/,$hastitle); 
$ii=1; 
if($rhasreply>15){ 
$ii=$rhasreply/15; 
($ii,$spage)=split(/\./,$ii); 
if($spage){$ii++;} 
} 
if (length($rtitles) > 40) {$rtitles = substr($rtitles,0,40);$rtitles.="\...";} 
if($rhasreply<1){$hot="closedb.gif";} 
elsif($rhasreply<15){$hot="closed.gif";} 
elsif($rhasreply>=15){$hot="hot.gif";} 
if($lock eq "1"){$hot="lock.gif";} 
if($rhasreply eq 0){$rhasreply=length($rcomment);}else{$sn=$rhasreply;$rhasreply="[$rhasreply]";} 
if($lastname ne "--"){$lastname="$lastname";} 
if($jing && $rtitles){ 
print < 
 
 $rtitles 
$rhasreply 
$rusername 
 $rlasttime 
$lastname 
$rhassee 
EOF 
} 
} 
print <
 
所有时间为 北京时间
BBS 风格 讨论区风格 留言簿风格
 
 
EOF 
if($syy>-1){ 
print ""; 
} 
print ""; 
if(($size>20)&&($i<$size)){ 
print ""; 
}else{ 
print ""; 
} 
print <
 

 

 
输入您要搜索的字符   
您的姓名  您的密码   
 

 
$htmlw 
 
本论坛言论纯属发表者个人意见，与 $zyname 立场无关
免费论坛服务由 $zyname 提供 技术支持：Yuzi工作室 

Yuzi Bulletin BoardTM Version $ver 
EOF 
exit; 
######################### END OF SCRIPT #########################