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

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
unless(-e "$filepath/data/rank"){ 
open(PSD,">$filepath/data/rank"); 
print PSD "$admname\n"; 
close(PSD); 
} 
&css; 
print <TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px} 
 
$cityname管理人员
 
 
管 理 人 员
 
详 细 信 息
 
EOF 
open(PSD,"$filepath/data/rank"); 
@line=; 
close(PSD); 
foreach $hastitle (@line) { 
chomp($hastitle); 
open(PSD,"$filepath/yhzl/$hastitle.cgi"); 
$line=; 
close(PSD); 
chomp($line); 
($rpassword,$rusername,$rdmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$rating,$levelname,$level)=split(/\t/,$line); 
$tol=$rfy+$rhf; 
$lasttimem=(-M "$filepath/yhzl/$rusername.cgi"); 
$lasttimeok=$mday-$lasttimem+1; 
($lasttimeok)=split(/\./,$lasttimeok); 
if($lasttimeok<10){$lasttimeok="0".$lasttimeok;} 
$lasttimeok=$year."-".$mon."-".$lasttimeok; 
if($lasttimem > $mday){$lasttimeok="未知";} 
$rqm=~s/<([^<])*>//g; 
if (-e "$ImgDir/img/$rusername.jpg"){$ttt="$ImgurlDir/$photo.jpg"}else{$ttt="$imagurl/photo.gif"} 
print < 

 
 
昵 称
 
$rusername
 
 
加为好友
 
　发送讯息
 
用户等级
 
$levelname
 
EMAIL
$rdmail
 
 
注册日期
$rlast
 
主页地址
 
$rhome
 
发表文章
 
$tol
 
QQ
$QQ
 
 
最后发表
$lasttimeok
 
省份
 
$rcity
 
签名 

$rqm 
 
 
EOF 
} 
print <


 
Powered by Yuzi Studios © 2001
Yuzi Bulletin BoardTM Version $ver 
EOF 
exit; 
######################### END OF SCRIPT #########################