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

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
########## 
if ($ENV{'REQUEST_METHOD'} eq "POST") { 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); 
} else { 
$buffer = $ENV{'QUERY_STRING'}; 
} 
@pairs = split(/&/, $buffer); 
foreach $pair (@pairs) { 
($name, $value) = split(/=/, $pair); 
$value=~tr/+/ /; 
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
$value=~s///g; 
$value=~s/\t/    /g; 
$value=~s/>/>/g; 
$value=~s/function search(){window.open('','search','resizable,scrollbars')} 
 

 
 
 
 

 
请输入您想要查询的网友名字 
   
 
更新日期：$modtime
用户排行榜 (TOP20)
用户照片列表
 
 
 
用户名
 
QQ号码
 
照片
 
E-mail
 
主页
 
留言
 
注册时间
 
最后登陆时间
 
发贴总数
 
 
 
EOF 
open (CHAT,"$filepath/data/usertop"); 
@lines=; 
close(CHAT); 
foreach $username1 (@lines){ 
($top,$username1)=split(/\t/,$username1); 
open(PSD,"$filepath/yhzl/$username1"); 
$lines=; 
close(PSD); 
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$savecookie,$levelname,$level,$lastlytime)=split(/\t/,$lines); 
if($rhome eq "" || $rhome eq "http://"){$rhomeurl="　";}else{$rhomeurl="";} 
if($QQ eq ""){$QQhtml="";}else{$QQhtml=" $QQ";} 
if($rmail eq ""){$mailhtml="　";}else{$mailhtml="";} 
if($level eq ""){$level="　";} 
if (-e "$ImgDir/img/$rname.jpg") {$pic=""}else{$pic="　"} 
($lastlytime)=split(/\./,$lastlytime); 
if($rname ne ""){ 
print < 
 
  $rname 
 $QQhtml 
$pic 
$mailhtml 
$rhomeurl 
 
$rlast 
 $lastlytime 
$top 
 
 
EOF 
}} 
print <
 
Powered by Yuzi Studios © 2001
 
Yuzi Bulletin Board VersionTM $ver

 
EOF 
exit; 
sub photo{ 
$listpage=9; 
opendir (MEMBERDIR2, "$ImgDir/img"); 
@lines = readdir(MEMBERDIR2); 
closedir (MEMBERDIR2); 
$yhsize=@lines-2; 
&css; 
print <$cityname - 用户列表
 
 
 
 

 
请输入您想要查询的网友名字 
   
 
目前共有照片 $yhsize 张：$modtime
用户照片列表
用户排行榜
 
 
EOF 
if($page eq "" || $page eq "1"){$page=1;$addpage=2;} 
$pages=$page-1; 
$pages=$page*$listpage-$listpage; 
for($i=$pages; $i<$pages+$listpage+$addpage; $i++) { 
$line=@lines[$i]; 
($username1)=split(/\t/,$line); 
if(length($username1) > 2 ){ 
$username1 =~s/.jpg//g; 
if ( -e "$filepath/yhzl/$username1.cgi"){ 
open(PSD,"$filepath/yhzl/$username1.cgi"); 
$lines=; 
close(PSD); 
($rpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rsex,$rwork,$rcity,$rlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo)=split(/\t/,$lines); 
if ($num_ == 3) { print ""; $num_=0;} 
print ""; 
$num_++; 
}}} 
print <
 $cityname 
——> 用户照片列表
$rname [$rsex]

 
EOF 
$j=$yhsize;while ($j>0) {$j=$j-$listpage;}$ii++; 
$j=$yhsize;while ($j>0) {print "" if ($page != $ii); 
print "[$ii]";$j=$j-$listpage;$ii++;} 
print <
 
Powered by Yuzi Studios © 2001
 
Yuzi Bulletin Board VersionTM $ver

 
EOF 
exit; 
} 
######################### END OF SCRIPT #########################