rank.cgi
来自「--黑客防线-精华奉献本(攻册)」· CGI 代码 · 共 80 行
CGI
80 行
#!/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 <<EOF;
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<BODY background=$imagurl/bg.gif><center><p><b><span style="FONT-SIZE: 15pt"><span style="FILTER: glow(color=white, 'strength=0) shadow(color=gray', direction=110); WIDTH: 100%; CURSOR: crosshair; COLOR: $bgcolor0; LINE-HEIGHT: 30pt; POSITION: relative">
<font style="CURSOR: crosshair" face="华文彩云" size="5"><u>$cityname管理人员</u></font></span></span></b></p>
<table cellpadding=6 cellspacing=0 border=1 width=600 bordercolor=$bgcolor><tr><td width=150 align=center bgcolor=$bgcolor0 style="font-size: 9pt">
<font color=$bgcolor4><b>管 理 人 员</b></font></td><td align=center bgcolor=$bgcolor0 style="font-size: 9pt">
<font color=$bgcolor4><b>详 细 信 息</b></font></td></tr></table>
EOF
open(PSD,"$filepath/data/rank");
@line=<PSD>;
close(PSD);
foreach $hastitle (@line) {
chomp($hastitle);
open(PSD,"$filepath/yhzl/$hastitle.cgi");
$line=<PSD>;
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 <<EOF;
<table cellpadding=6 width=600 cellspacing=0 border=1 bordercolor=$bgcolor>
<tr bgcolor=$bgcolor2><td valign=top width=150><p><br><a href=$ttt><img src=$ttt border=0 width=150 height=112></a></p>
</td><td valign=top><table cellSpacing=0 cellPadding=5 border=0 style="border-collapse: collapse" bordercolor="#111111">
<tr><td align=middle><img src=$imagurl/face/$tu.gif width=32 height=32></td><td><b>昵 称</b></td>
<td align=left><a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$rusername>$rusername</a></td>
<td align=left><img src=$imagurl/add.gif align=abscenter border=0></td>
<td align=left><a href="JavaScript:hao('friend.cgi?menu=add&add=$rusername')">加为好友</a></td>
<td align=left><img src=$imagurl/msg.gif> <a href=# onclick=javascript:open('friend.cgi?menu=fshtml&add=$rusername&tu=$tu','','width=320,height=170')>发送讯息</a></td>
</tr><tr><td align=middle><img src=$imagurl/level.gif border=0></td><td><b>用户等级</b></td>
<td align=left>$levelname</td><td align=left><img src=$imagurl/mail.gif border=0></td>
<td align=left><span lang=en-us><b>EMAIL</b></span></td><td align=left><a href="mailto:$rdmail">$rdmail</a></td>
</tr><tr><td align=middle><img src=$imagurl/registered.gif border=0></td>
<td><b>注册日期</b></td><td align=left>$rlast</td><td align=left>
<img alt=访问$rusername的主页 src=$imagurl/home.gif border=0></td><td align=left><b>主页地址</b></td>
<td align=left><a target="_blank" href="$rhome">$rhome</a></td></tr><tr>
<td align=middle><img src=$imagurl/posts.gif border=0></td><td><b>发表文章</b></td>
<td align=left>$tol</td><td align=left><img alt=$rusername的QQ号码：9321765 src=$imagurl/oicq.gif border=0></td>
<td align=left><b><span lang=en-us>QQ</span></b></td><td align=left><span lang="en-us">$QQ</span></td>
</tr><tr><td align=middle><img src=$imagurl/updated.gif border=0></td>
<td><b>最后发表</b></td><td align=left>$lasttimeok</td>
<td align=left><img src=$imagurl/location.gif border=0></td><td align=left><b>省份</b></td>
<td align=left>$rcity</td></tr><tr><td align=middle><img src=$imagurl/sig.gif border=0></td>
<td colspan=5 width=350><b>签名</b>
<br>$rqm
</td></tr>
</table></td></tr></table>
EOF
}
print <<EOF;
<br><br><a href=javascript:history.back()><IMG src=$imagurl/back.gif border=0></a><br><br>
Powered by Yuzi Studios © 2001<br>Yuzi Bulletin Board<font style=font-size:7pt><sup><b>TM</b></sup></font> Version $ver
EOF
exit;
######################### END OF SCRIPT #########################
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?