📄 member.cgi

📁 --黑客防线-精华奉献本(攻册)
💻 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/<!--(.|\n)*-->//g;
$value=~s/\t/&nbsp;&nbsp;&nbsp; /g;
$value=~s/>/&gt;/g;
$value=~s/</&lt;/g;
$value=~s/\.\.//g;
$FORM{$name} = $value;
}
$page=$FORM{'page'};
$menu=$FORM{'menu'};
if($menu eq "photo"){&photo};
$username=$Cookies{username};
$userpsd=$Cookies{password};
##########
@toltime=stat("$filepath/data/usertop");
@modtime=gmtime(@toltime[9]);
@modtime[5]=@modtime[5]+1900;
@modtime[4]=@modtime[4]+1;
$modtime=@modtime[5]."年".@modtime[4]."月".@modtime[3]."日";
&css;
print <<EOF;
<script>function search(){window.open('','search','resizable,scrollbars')}</SCRIPT>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<TITLE>$cityname - 用户列表</TITLE><BODY background="$imagurl/bg.gif"><br><TABLE cellSpacing=0 cellPadding=0 width=90% align=center border=0>
<TBODY><TR><TD vAlign=top width="15%" align="center"><IMG src="$imagurl/bbtitle5.gif" border=0></TD>
<TD vAlign=top width="15%" align="center"><form method="post" action="yhreg.cgi" onSubmit='search()' target=search>
<INPUT TYPE="HIDDEN" NAME="menu" VALUE="viewuser"><table width="271" border="0" bgcolor=$bgcolor2>
<tr><td width="263"><div align="center"><br>
请输入您想要查询的网友名字
<hr width="70%" size="1" align="center"><input type="text" name="username">  <input style="FONT-SIZE: 9pt; "  type=submit value="确定";>
</div></td></tr></table></form></TD></TBODY></TABLE><SCRIPT type=text/javascript>
function openScript(url, width, height) {
var Win = window.open(url,"",'resizable,scrollbars' );
}
</SCRIPT><CENTER>
<table border=0 width=90%><tr><td width=33% valign=bottom>更新日期：$modtime</td><td width=33% align=center>用户排行榜 (TOP20)</td><td width=34% align=right><a href=member.cgi?menu=photo>用户照片列表</a></td></tr></table>
<table width=90% cellspacing=0 border=1 bordercolor=$bgcolor0 height=25>
<TR bgcolor=$bgcolor0>
<TD width=20% align=middle><FONT color=$bgcolor4><B>用户名</B></FONT></TD>
<TD width=15% align=middle><FONT color=$bgcolor4><B>QQ号码</B></FONT></TD>
<TD width=5% align=middle><FONT color=$bgcolor4><B>照片</B></FONT></TD>
<TD width=10% align=middle><FONT color=$bgcolor4><B>E-mail</B></FONT></TD>
<TD width=5% align=middle><FONT color=$bgcolor4><B>主页</B></FONT></TD>
<TD width=5% align=middle><FONT color=$bgcolor4><B>留言</B></FONT></TD>
<TD width=15% align=middle><FONT color=$bgcolor4><B>注册时间</B></FONT></TD>
<TD width=15% align=middle><FONT color=$bgcolor4><B>最后登陆时间</B></FONT></TD>
<TD width=10% align=middle><FONT color=$bgcolor4><B>发贴总数</B></FONT></TD>
</TR>
</TABLE>
EOF
open (CHAT,"$filepath/data/usertop");
@lines=<CHAT>;
close(CHAT);
foreach $username1 (@lines){
($top,$username1)=split(/\t/,$username1);
open(PSD,"$filepath/yhzl/$username1");
$lines=<PSD>;
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="<a href=$rhome target=_blank><IMG src=$imagurl/home.gif border=0></a>";}
if($QQ eq ""){$QQhtml="";}else{$QQhtml="<IMG src=$imagurl/oicq.gif> $QQ";}
if($rmail eq ""){$mailhtml="　";}else{$mailhtml="<a href=mailto:$rmail><IMG src=$imagurl/mail.gif border=0></a>";}
if($level eq ""){$level="　";}
if (-e "$ImgDir/img/$rname.jpg") {$pic="<A href=$ImgurlDir/$photo.jpg target=_blank><IMG src=$imagurl/pic.gif border=0>"}else{$pic="　"}
($lastlytime)=split(/\./,$lastlytime);
if($rname ne ""){
print <<EOF;
<table width=90% cellspacing=0 border=1 bordercolor=$bgcolor0>
<tr bgColor=$bgcolor2>
<TD width=20%>&nbsp;<IMG src=$imagurl/face/$tu.gif width=16 height=16> <a href=JavaScript:New('yhreg.cgi?menu=viewuser&username=$rname')>$rname</font></a></TD>
<TD width=15%>&nbsp;$QQhtml</TD>
<TD width=5% align=middle>$pic</TD>
<TD width=10% align=middle>$mailhtml</TD>
<TD width=5% align=middle>$rhomeurl</TD>
<TD width=5% align=middle><A href=javascript:openScript('guest.cgi?action=add_form&guest=$rname')><IMG src=$imagurl/pm.gif border=0></A></TD>
<TD width=15% align=middle>$rlast</FONT></TD>
<TD width=15% align=middle>&nbsp;$lastlytime</TD>
<TD width=10% align=middle>$top</TD>
</TR>
</TABLE>
EOF
}}
print <<EOF;
<CENTER><HR width=340 SIZE=1><TABLE cellSpacing=0 cellPadding=0 width="80%" align=center>
<TBODY><TR><TD vAlign=center align=middle><font color=C0C0C0 style=font-size:7pt>Powered by <a href=http://www.yuzi.net target=_blank><font color=C0C0C0 style=font-size:7pt>Yuzi Studios</a> &copy; 2001<br>
Yuzi Bulletin Board Version<font style=font-size:7pt><sup><b>TM</b></sup></font> $ver</TD></TR></TBODY></TABLE><BR></CENTER></BODY></HTML>
EOF
exit;
sub photo{
$listpage=9;
opendir (MEMBERDIR2, "$ImgDir/img");
@lines = readdir(MEMBERDIR2);
closedir (MEMBERDIR2);
$yhsize=@lines-2;
&css;
print <<EOF;
<TITLE>$cityname - 用户列表</TITLE><BODY background="$imagurl/bg.gif"><br><TABLE cellSpacing=0 cellPadding=0 width=90% align=center border=0>
<TBODY><TR><TD vAlign=top width="15%" align="center"><IMG src=$imagurl/bbtitle5.gif></TD>
<TD vAlign=top width="15%" align="center"><form method="post" action="yhreg.cgi">
<INPUT TYPE="HIDDEN" NAME="menu" VALUE="viewuser"><table width="271" border="0" bgcolor=$bgcolor2>
<tr><td width="263"><div align="center"><font color="#000000"><br>
请输入您想要查询的网友名字 </font><hr width="70%" size="1" align="center"><input type="text" name="username">  <input style="FONT-SIZE: 9pt; "  type=submit value="确定";>
</div></td></tr></table></form></TD></TBODY></TABLE><SCRIPT type=text/javascript>
function openScript(url, width, height) {
var Win = window.open(url,"",'resizable,scrollbars' );
}
</SCRIPT><CENTER>
<table border=0 width=90%><tr><td width=33% valign=bottom>目前共有照片 $yhsize 张：$modtime</td><td width=33% align=center>用户照片列表</td><td width=34% align=right><a href=member.cgi>用户排行榜</a></td></tr></table>
<table width=90%><tr><td width="100%"><table border="0" width=100% cellspacing=0 border=1 bordercolor=007CD0 height=25><tbody><tr><td bgcolor=$bgcolor0 colSpan="3" height="20">&nbsp;<A href=list.cgi target=_top><FONT color=$bgcolor4>$cityname</FONT></A><FONT color=$bgcolor4>
——> 用户照片列表</FONT></td></tr>
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=<PSD>;
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 "</TR><tr>"; $num_=0;}
print "<td align=middle width=33%><table cellSpacing=1 cellPadding=0 bgColor=$bgcolor2 border=0><tbody><tr><td align=middle width=180><A href=javascript:openScript('yhreg.cgi?menu=viewuser&username=$rname')><img border=0 src=$ImgurlDir/$photo.jpg width=114 height=130></a></td></tr><tr><td align=middle height=22><A href=javascript:openScript('yhreg.cgi?menu=viewuser&username=$rname')>$rname</a> [$rsex]</td></tr></tbody></table></td>";
$num_++;
}}}
print <<EOF;
</TBODY></TABLE></TD></TR></TBODY></TABLE><BR><TABLE width=60%>
EOF
$j=$yhsize;while ($j>0) {$j=$j-$listpage;}$ii++;
$j=$yhsize;while ($j>0) {print "<a href=member.cgi?menu=photo&page=$ii>" if ($page != $ii);
print "[$ii]</a>";$j=$j-$listpage;$ii++;}
print <<EOF;
</TABLE><CENTER><HR width=340 SIZE=1><TABLE cellSpacing=0 cellPadding=0 width="80%" align=center>
<TBODY><TR><TD vAlign=center align=middle><font color=C0C0C0 style=font-size:7pt>Powered by <a href=http://www.yuzi.net target=_blank><font color=C0C0C0 style=font-size:7pt>Yuzi Studios</a> &copy; 2001<br>
Yuzi Bulletin Board Version<font style=font-size:7pt><sup><b>TM</b></sup></font> $ver</TD></TR></TBODY></TABLE><BR></CENTER></BODY></HTML>
EOF
exit;
}
######################### END OF SCRIPT #########################
💿 文件大小 537 K
👤 上传用户 invill
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#黑客
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -