⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 yhreg.cgi

📁 BBS3000 sourceCode
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<input type=radio name=tu value=10><img src=$imagurl/Image10.gif>
<input type=radio name=tu value=11><img src=$imagurl/Image11.gif>
<input type=radio name=tu value=12><img src=$imagurl/Image12.gif>
<input type=radio name=tu value=13><img src=$imagurl/Image13.gif>
<input type=radio name=tu value=14><img src=$imagurl/Image14.gif>
<input type=radio name=tu value=15><img src=$imagurl/Image15.gif>
<input type=radio name=tu value=16><img src=$imagurl/Image16.gif>
<input type=radio name=tu value=17><img src=$imagurl/Image17.gif>
<input type=radio name=tu value=18><img src=$imagurl/Image18.gif>
<input type=radio name=tu value=19><img src=$imagurl/Image19.gif>
<input type=radio name=tu value=20><img src=$imagurl/Image20.gif>
<input type=radio name=tu value=21><img src=$imagurl/Image21.gif>
<input type=radio name=tu value=22><img src=$imagurl/Image22.gif>
<input type=radio name=tu value=23><img src=$imagurl/Image23.gif>
<input type=radio name=tu value=24><img src=$imagurl/Image24.gif>
<input type=radio name=tu value=25><img src=$imagurl/Image25.gif>
<input type=radio name=tu value=26><img src=$imagurl/Image26.gif>
<input type=radio name=tu value=27><img src=$imagurl/Image27.gif>
<input type=radio name=tu value=28><img src=$imagurl/Image28.gif>
<input type=radio name=tu value=29><img src=$imagurl/Image29.gif>
<input type=radio name=tu value=30><img src=$imagurl/Image30.gif>
<input type=radio name=tu value=31><img src=$imagurl/Image31.gif>
<input type=radio name=tu value=32><img src=$imagurl/Image32.gif>
<input type=radio name=tu value=33><img src=$imagurl/Image33.gif>
<input type=radio name=tu value=34><img src=$imagurl/Image34.gif>
<input type=radio name=tu value=35><img src=$imagurl/Image35.gif>
<input type=radio name=tu value=36><img src=$imagurl/Image36.gif>
<input type=radio name=tu value=37><img src=$imagurl/Image37.gif>
<input type=radio name=tu value=38><img src=$imagurl/Image38.gif>
<input type=radio name=tu value=39><img src=$imagurl/Image39.gif>
<input type=radio name=tu value=40><img src=$imagurl/Image40.gif>
<input type=radio name=tu value=41><img src=$imagurl/Image41.gif>
<input type=radio name=tu value=42><img src=$imagurl/Image42.gif>
<input type=radio name=tu value=43><img src=$imagurl/Image43.gif>
<input type=radio name=tu value=44><img src=$imagurl/Image44.gif>
<input type=radio name=tu value=45><img src=$imagurl/Image45.gif>
<input type=radio name=tu value=46><img src=$imagurl/Image46.gif>
<input type=radio name=tu value=47><img src=$imagurl/Image47.gif>
<input type=radio name=tu value=48><img src=$imagurl/Image48.gif>
<input type=radio name=tu value=49><img src=$imagurl/Image49.gif>
<input type=radio name=tu value=50><img src=$imagurl/Image50.gif>
<input type=radio name=tu value=51><img src=$imagurl/Image51.gif>
<input type=radio name=tu value=52><img src=$imagurl/Image52.gif>
<input type=radio name=tu value=53><img src=$imagurl/Image53.gif>
<input type=radio name=tu value=54><img src=$imagurl/Image54.gif>
<input type=radio name=tu value=55><img src=$imagurl/Image55.gif>
<input type=radio name=tu value=56><img src=$imagurl/Image56.gif>
<input type=radio name=tu value=57><img src=$imagurl/Image57.gif>
<input type=radio name=tu value=58><img src=$imagurl/Image58.gif>
<input type=radio name=tu value=59><img src=$imagurl/Image59.gif>
<input type=radio name=tu value=60><img src=$imagurl/Image60.gif>
<input type=radio name=tu value=61><img src=$imagurl/Image61.gif>
<input type=radio name=tu value=62><img src=$imagurl/Image62.gif>
<input type=radio name=tu value=63><img src=$imagurl/Image63.gif>
<input type=radio name=tu value=64><img src=$imagurl/Image64.gif>
</TD></TR>
<tr></TD></TR>
</TBODY></TABLE></TD>
</tr>
<tr>
<TD class=pt9>
<P><input type="submit" value="填好了，继续！">
<P align=right class=pt9><a href="reg.cgi">[免费申请]</a><a href="xiu.cgi">[版主资料修改]</a>[用户资料注册]<a href="yhxiu.cgi">[用户资料修改]</a><a href="list.cgi" target=_top>[论坛列表]</a><a href="cjyh.cgi">[社区管理]</a>
<P>
<DIV
class=pt9>注意事项：<BR>1、请遵守《计算机信息网络国际联网安全保护管理办法》里的一切规定。<BR>2、使用轻松而健康的话题，所以请不要涉及政治、宗教等敏感话题。<BR>3、承担一切因您的行为而直接或间接导致的民事或刑事法律责任。<BR></DIV></TD>
</tr>
<td align="middle">免费论坛服务由<font color=#cc0033>
</font><font color=#ff6633><b><font Helvetica, sans-serif><a href=$zyurl>$zyname</a></font></b></font><font color=#cc0033>
</font>提供　程序制作：<b><a href="http://www.yuzi.net" target="_blank">Yuzi工作室</b></a></td>
　</td>
</tr>
</table>
</form>
</BODY></HTML>
EOF
exit;
}
##########
sub reguser{
if(($userpsd eq "")||($username eq "")||($mail eq "")){&errorview("名字　密码　信箱　必顺要填写的，请重新输入！");exit;}
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);}
if(length($qm) > 400 ){&errorview("您的签名不能大于200个汉字！");exit;}
if ($YBBCodeAllow eq "is") {
if ($qmybb eq "off") {$qm=~ s/\[img]//g;$qm=~ s/\[\/img]//g;}
$qm = &YBBCode("$qm");
}
if ( -e "$filepath/yhzl/$username.cgi"){
&errorview("对不起，名字已被别人注册! 换一个吧！");exit;
}else{
unless(-f "$filepath/yhzl/$username.cgi"){
if($tu eq ""){$tu=$sec};
open(PSD,">$filepath/yhzl/$username.cgi");
print PSD $userpsd."\t".$username."\t".$mail."\t".$home."\t".$lasttime."\t".$qm."\t".$sex."\t".$work."\t".$city."\t".$love."\t".$fy."\t".$hf."\t".$tu."\t".$jiao."\t".$ENV{'HTTP_USER_AGENT'}."\t".$oicq;
close(PSD);
chmod(0666,"$filepath/yhzl/$username.cgi");
open(NUMBER,">$filepath/guest/2$username.cgi");
print NUMBER "\t\t"."100"."\t"."30";
close(NUMBER);
chmod(0666,"$filepath/guest/2$username.cgi");
open(NUMBER,">$filepath/guest/1$username.cgi");
close(NUMBER);
chmod(0666,"$filepath/guest/2$username.cgi");
open(NUMBER,">$filepath/guest/3$username.cgi");
close(NUMBER);
chmod(0666,"$filepath/guest/2$username.cgi");
}
}
&send_html;
print "<HEAD>\n";
print "<TITLE>祝 贺 您 ！ 您 已 经 成 功 地 注 册 了 您 的 资 料 ！</TITLE>\n";
print <<EOF;
<SCRIPT LANGUAGE="JavaScript">
<!-- HIDE
expireDate = new Date;
if (expireDate.getYear() < 100) {
expireDate.setYear(expireDate.getYear() + 1900 + 1);
} else {
expireDate.setYear(expireDate.getYear()+1);
}
var username = getCookie("UserName");
var password = getCookie("Password");
if (password == null) {
var CookieName = "$username";
var CookiePW = "$userpsd";
if (password == null)  {
document.cookie = "username=" + CookieName + ";expires=" + expireDate.toGMTString() + ";";
document.cookie = "password=" + CookiePW + ";expires=" + expireDate.toGMTString() + ";";
}
}
function getCookie(name){
var cname = name + "=";
var dc = document.cookie;
if (dc.length > 0) {
begin = dc.indexOf(cname);
if (begin != -1) {
begin += cname.length;
end = dc.indexOf(";", begin);
if (end == -1) end = dc.length;
return dc.substring(begin, end);        }
}
return null;
}
// STOP HIDING FROM OTHER BROWSERS -->
</SCRIPT>
EOF
print "</HEAD>\n";
print "<style type=text/css>TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>\n";
print "<body background=$imagurl/bg.jpg>\n";
print "<br>\n";
print "<p class=pt10 align=center><b>祝 贺 您 ！ 您 已 经 成 功 地 注 册 了 您 的 资 料 ！</b>\n";
print "<p class=pt10 align=center>\n";
print "<table cellspacing=4 cellpadding=3><tr><td class=pt9 bgcolor=#FFF5E1><b>注册姓名：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{username}</font></tr><tr><td class=pt9 bgcolor=#FFF5E1><b>您的密码：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$userpsd</font></tr><tr><td class=pt9 bgcolor=#FFF5E1><b>性别：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{sex}</font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>您的信箱：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{mail}</font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>您的主页：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{home}</font>
<tr><td class=pt9 bgcolor=#FFF5E1><b>职业：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{work}</font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>爱好：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{love}</font></tr>
<tr><td class=pt9 bgcolor=#FFF5E1><b>省份：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{city}</font></tr><tr><td class=pt9 bgcolor=#FFF5E1><b>注册时间：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$lasttime.</font></table>\n";
print "<br>\n";
print "<div align=center><center><table border=1 borderColorDark=#ffffff borderColorLight=#008000 cellPadding=0 cellSpacing=0 width=60%><tbody><tr><td align=middle width=100%>本页面采用CGI程序更新，程序制作：“<a href=http://www.yuzi.net target=_blank>Yuzi工作室</a>”</td></tr></tbody></table></center></div>\n";
exit;
}
sub viewuser{
if ( -e "$filepath/yhzl/$username.cgi"){
$fy1=0;
$hf1=0;
$tol=0;
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
$line=~ s/\n//g;
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,,$iewin,$oicq,$photo)=split(/\t/,$line);
$username1=$rdname;
$mail1=$rdmail;
$home1=$rdhome;
$lasttime1=$rdlasttime;
$qm1=$rdqm;
$sex1=$rdsex;
$work1=$rdwork;
$city1=$rdcity;
$love1=$rdlove;
$fy1=$rdfy+0;
$hf1=$rdhf+0;
$tol=$fy1+$hf1;
open(NUMBER,"$filepath/guest/2$username.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
if($sex1 eq ""){$sex1="(不告诉您)"};
if($oicq eq ""){$oicq="(不告诉您)"};
if($city1 eq ""){$city1="(不告诉您)"};
if($love1 eq ""){$love1="(不告诉您)"};
if($work1 eq ""){$work1="(不告诉您)"};
if(($home1 eq "http://")||($home1 eq "")){$home1="(不告诉您)"};
if($mail1 eq ""){$mail1="(不告诉您)"};
if($jiao eq ""){$jiao="这家伙很懒,什么都没有留下。"};
if($tol <  11){$deji="新手上路";}
elsif ($tol >  10 && $tol <  31){$deji="一般站友";}
elsif ($tol >  30 && $tol <  101){$deji="中级站友";}
elsif ($tol >  100 && $tol <  201){$deji="高级站友";}
elsif ($tol >  200 && $tol <  501){$deji="老 站 友";}
elsif ($tol >  500 && $tol <  1001){$deji="长 老 级";}
elsif ($tol >  1000 && $tol <  2001){$deji="本站元老";}
elsif ($tol >  2000){$deji="开国大老";}
if (-e "$ImgDir/img/$username.jpg") {$ttt="$ImgurlDir/$photo.jpg"}else{$ttt="$imagurl/photo.gif"}
}else{
&errorview("对不起，此名字没有在本论坛注册过!");exit;
}
&send_html;
print <<EOF;
<HTML><HEAD><TITLE>查 看 $username 的 个 人 资 料 </TITLE>
<META content=text/html; charset=gb2312 http-equiv=Content-Type>
<STYLE type=text/css>.{
COLOR: #000000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; FONT-WEIGHT: normal; TEXT-DECORATION: none
}
</STYLE>
</head>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=98%>
<TBODY>
<TR>
<TD>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=80%>
<TBODY>
<TR>
<TD height=58>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD vAlign=bottom width=2%><IMG height=32
src=$imagurl/Image$tu.gif width=32></TD>
<TD vAlign=bottom width=98%>　　 　　　　　
<TABLE border=0 cellPadding=0 cellSpacing=0 width=97%>
<TBODY>
<TR>
<TD bgColor=#F8E8CB width=37%>　秘密档案请勿外传
：）</TD>
<TD align=left vAlign=bottom
width=6%><FONT color=#ff0033><IMG src=$imagurl/jiao.gif></FONT></TD>
<TD align=right width=57%><a href=guest.cgi?action=add_form&guest=$username>给 $username 发送一句悄悄话</a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>  
<TR>
<TD height=36>
<TABLE border=0 cellPadding=0 cellSpacing=1 width=100%>
<TBODY>
<TR bgColor=#eceef2>
<TD>
<TABLE border=1 borderColor=#F8E8CB
cellPadding=0 cellSpacing=0 height=200 width=100% bgcolor=#FEFBF5>
<TBODY>
<TR>
<TD align=middle rowSpan=13 width=2%>&nbsp;</TD>
<TD align=middle width=12%>昵 称 </TD>  
<TD align=middle width=34%>$username </TD>
<TD align=middle rowSpan=13
width=2%>&nbsp;</TD>
<TD align=middle colSpan=2>个人信息&nbsp;&nbsp;</TD></TR>
<TR>
<TD align=middle width=12%>性 别</TD> 
<TD align=middle width=34%>$sex1</TD>
<TD align=middle colSpan=2
rowSpan=10><a href=$ttt><img src=$ttt width=200 height=150 border=0></a><br>$jiao</TD></TR>
<TR>
<TD align=middle width=12%>等 级</TD>  
<TD align=middle width=34%>$deji</TD>
</TR>
<tr>
<TD align=middle width=12%>省 份</TD>  
<TD align=middle width=34%>$city1</TD></TR>
<TR>
<TD align=middle width=12%>爱 好</TD>  
<TD align=middle width=34%>$love1</TD></TR>
<TR>
<TD align=middle width=12%>职 业</TD>  
<TD align=middle
width=34%>$work1</TD></TR>
<TR>
<TD align=middle width=12%>货 币</TD> 
<TD align=middle
width=34%>$money</TD></TR>
<TR>
<TD align=middle width=12%>魅 力</TD> 
<TD align=middle
width=34%>$charm</TD></TR>
<TR>
<TD align=middle width=12%>OICQ</TD>
<TD align=middle
width=34%>$oicq</TD></TR>
<TR>
<TD align=middle width=12%>发表文章</TD>
<TD align=middle width=34%>$fy1 篇</TD></TR>  
<TR>
<TD align=middle width=12%>回复文章</TD>
<TD align=middle width=34%>$hf1 篇</TD></TR>  
<TR>
<TD align=middle width=12%>总发表文章</TD>
<TD align=middle width=34%>$tol 篇</TD>  
<TD align=middle width=12%>Email</TD>
<TD align=middle><a href=mailto:$mail1>$mail1</a></TD></TR>
<TR>
<TD align=middle width=12%>注册日期</TD>
<TD align=middle width=34%>$lasttime1</TD>
<TD align=middle width=12%>个人主页</TD>
<TD align=middle><a href=$home1 target=_blank>$home1</a></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<center><p><a href=javascript:window.history.back();><IMG src=$imagurl/back.gif border=0></a></p><br>
<div align=center>
<center>
<table border=0 cellPadding=0 cellSpacing=0 width=60%>
<tbody>
<tr>
<td align=middle width=100%>本页面采用CGI程序更新，程序制作：“<a href=http://www.yuzi.net target=_blank>Yuzi工作室</a>”</td>
</tr>
</tbody>
</table>
</center>
</div>
</HTML>
EOF
exit;
}
sub online {
open (PEO,"$people");
@lines=<PEO>;
close (PEO);
&send_html;
print <<EOF;
<HTML><HEAD>
<TITLE>当 前 在 线 ！</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD><body background=$imagurl/bg.jpg><br><p class=pt10 align=center><b>当 前 在 线 人 员 名 单</b><br><br>
<style type="text/css">
<!--
a:link {  font-family: "宋体", "serif"; font-size: 9pt; color: #004080; text-decoration: none}
a:hover {  color: #004080; text-decoration: underline; background-color: #CCCC99}
a:visited {  text-decoration: none}
body {  font-family: "宋体", "serif"; font-size: 9pt}
td {  font-family: "宋体", "serif"; font-size: 9pt}
input {  font-size: 9pt}
p {  font-size: 9pt}
br {  font-size: 9pt}
tr {  font-size: 9pt}
table {  font-size: 9pt}
-->
</style>
<table border="1" align="center" width="80%" cellpadding="0" cellspacing="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr align=center>
<td background=$imagurl/tablebg.gif width=20%>IP地址</font></td>
<td background=$imagurl/tablebg.gif width=20%>姓名</FONT></td>
<td background=$imagurl/tablebg.gif width=20%>来访时间</FONT></td>
<td background=$imagurl/tablebg.gif width=20%>所在论坛</FONT></td>
<td background=$imagurl/tablebg.gif width=20%>来源</td>
</tr>
EOF
$ridname=$bbsname;
123

⌨️ 快捷键说明

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