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

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
$tol=$rfy+$rhf; 
open (FILE, "$filepath/data/rank"); 
@rank = ; 
close(FILE); 
foreach $ranks (@rank) { 
chomp($ranks); 
if($ranks eq $rusername){$rankss="ok";}} 
if($rusername eq $admname){$level="";$levelname="社区区长";} 
elsif($rankss eq "ok"){$level="";$levelname="管 理 员";} 
elsif($tol > 2000){$level="";$levelname="开国大老";} 
elsif($tol < 11){$level="";$levelname="新手上路";} 
elsif($tol > 10 && $tol < 31){$level="";$levelname="一般站友";} 
elsif($tol > 30 && $tol < 101){$level="";$levelname="中级站友";} 
elsif($tol > 100 && $tol < 201){$level="";$levelname="高级站友";} 
elsif($tol > 200 && $tol < 501){$level="";$levelname="老 站 友";} 
elsif($tol > 500 && $tol < 1001){$level="";$levelname="长 老 级";} 
elsif($tol > 1000 && $tol < 2001){$level="";$levelname="本站元老";} 
######################### END OF SCRIPT #########################