?? 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 <<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 + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -