📄 yhreg.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000 v3.20 免费版 #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
$cgiurl = "yhreg.cgi";
$from = $ENV{'REMOTE_ADDR'};
$qmok=0;
$perpage = 20;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour));
$mon=$mon+1;
if($mon <10){$mon="0".$mon;}
if($mday<10){$mday="0".$mday;}
if($hour<10){$hour="0".$hour;}
if($min<10){$min="0".$min;}
$year=$year+1900;
$thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec;
$lasttime=$year."-".$mon."-".$mday;
$topdata=$year.$mon;
##########
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/\ //g;
$value =~ s/\t/--/g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$FORM{$name} = $value;
$FORM{'qm'}=~s/\n/<br>/g;
$FORM{'jiao'}=~s/\n/<br>/g;
}
##########
$Friend_name = $FORM{'Friend_name'};
$Friend_email = $FORM{'Friend_email'};
$username = $FORM{'username'};
$index = $FORM{'index'};
$newpsd = $FORM{'newpsd'};
$userpsd = $FORM{'userpsd'};
$titles = $FORM{'titles'};
$comment = $FORM{'comment'};
$mail = $FORM{'mail'};
$home = $FORM{'home'};
$jiao = $FORM{'jiao'};
$city = $FORM{'city'};
$work = $FORM{'work'};
$love = $FORM{'love'};
$index = $FORM{'index'};
$oicq = $FORM{'oicq'};
$qm = $FORM{'qm'};
$tu = $FORM{'tu'};
$sex = $FORM{'sex'};
$title = $FORM{'title'};
$titleimg = $FORM{'titleimg'};
$menu = $FORM{'menu'};
$newpsd = $FORM{'newpsd'};
$title = $FORM{'title'};
$id = $FORM{'id'};
$own = $FORM{'own'};
$page =$FORM{'page'};
$lllyyy =$FORM{'lllyyy'};
&GetCookies;
if ($lllyyy eq ""){$lllyyy=$Cookies{username}};
if ($username eq ""){$username=$Cookies{username}};
$regd=0;
$regda=0;
$regdb=0;
if($menu eq "reguser"){®user; exit;}
if($menu eq "mail"){&mail; exit;}
if($menu eq "mailfriend"){&mailfriend; exit;}
if($menu eq "email"){&email; exit;}
if($menu eq "reg"){®exit;}
if($menu eq "viewuser"){&viewuser();exit;}
if($menu eq "qm"){&qm();exit;}
if($menu eq "online"){&online();exit;}
if($menu eq "email"){&email();exit;}
if($menu eq "guoke"){&guoke();exit;}
®
exit;
##########
sub send_html {
if ($has_send ne "1") {
print "Content-type: text/html\n\n";
$has_send = "1";
}
}
##########
sub reg{
&send_html;
print <<EOF;
<HTML><HEAD><TITLE>用户资料注册</TITLE>
<STYLE type=text/css>TD {
FONT-FAMILY: Arial; FONT-SIZE: 9pt; LINE-HEIGHT: 20px
}
.pt9 {
FONT-FAMILY: "宋体", "Arial", "Times New Roman"; FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
.pt9w {
COLOR: #ffffff; FONT-FAMILY: "宋体", "Arial", "Times New Roman"; FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
.pt9b {
FONT-FAMILY: "宋体", "Arial", "Times New Roman"; FONT-SIZE: 9pt; FONT-WEIGHT: bold; LINE-HEIGHT: 13pt
}
.pt10 {
FONT-FAMILY: 黑体, "Arial", "Times New Roman"; FONT-SIZE: 16px; LINE-HEIGHT: 21px
}
A:link {
COLOR: rgb(152,78,50); CURSOR: hand; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:visited {
COLOR: #666666; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:active {
COLOR: rgb(198,198,198); FONT-STYLE: normal; TEXT-DECORATION: none
}
A:hover {
COLOR: rgb(72,105,191); TEXT-DECORATION: none
}
</STYLE>
<SCRIPT LANGUAGE="JavaScript">
function openWindow(url) {
popupWin = window.open('$imagurl/ybb.htm','','resizable,scrollbars')
}
</SCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style><!-- .ourfont{font-size: 12px;line-height: 17px;}
A:link {text-decoration: none; color: #ffffff} A:visited {text-decoration: none; color:#8080FF } A:active {text-decoration: none} A:hover {text-decoration: none; color: #FF0000} --></style>
</HEAD>
<BODY bgColor=#ffffff textcolor="000000" background=$imagurl/bg.jpg>
<form method="post" action="$cgiurl">
<input type="hidden" name="menu" value="reguser">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="310" bgcolor="#FFCC66" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr>
<TD><center><p><b>用户资料注册</b></p></TD>
</tr>
<tr>
<TD>
<P class=pt9>●
带<FONT color=red>*</FONT>为必填 </P></TD>
</tr>
<tr>
<TD>
<TABLE bgColor=#bbbbbb width="627">
<TBODY>
<TR bgcolor="#b7c4e2">
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>
网上尊称：</TD>
<TD class=pt9 width="466"><INPUT maxLength=10 name=username> </TD></TR>
<TR bgcolor="#dedfdf">
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>
您的密码：</TD>
<TD class=pt9 width="466"><INPUT maxLength=8 name=userpsd type=password size="20"></TD></TR>
<TR bgcolor="#b7c4e2">
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT> 您的Email地址：</TD>
<TD class=pt9 width="466"><INPUT maxLength=80 name=mail size=50></TD></TR>
<TR bgcolor="#dedfdf">
<TD align=right class=pt9 width="186">
性别：</TD>
<TD class=pt9 width="466"><input type="radio" value="男" name="sex" checked>男<input
type="radio" value="女" name="sex">女</TD></TR>
<TR bgcolor="#b7c4e2">
<TD align=right class=pt9 width="186">
职业：</TD>
<TD class=pt9 width="466"><select name=work>
<option value=>请选择:</option>
<option value=计算机业>计算机业</option>
<option value=金融业>金融业</option>
<option value=商业>商业</option>
<option value=服务行业>服务行业</option>
<option value=教育业>教育业</option>
<option value=工程师>工程师</option>
<option value=主管，经理>主管，经理</option>
<option value=政府部门>政府部门</option>
<option value=制造业>制造业</option>
<option value=销售/广告/市场>销售/广告/市场</option></select></TD></TR>
<TR bgcolor="#dedfdf">
<TD align=right class=pt9 width="186">
爱好：</TD>
<TD class=pt9 width="466"><INPUT maxLength=20 name=love> </TD></TR>
<TR bgcolor="#b7c4e2">
<TD align=right class=pt9 width="186">
OICQ：</TD>
<TD class=pt9 width="466"><INPUT maxLength=20 name=oicq> </TD></TR>
<TR bgcolor="#dedfdf">
<TD align=right class=pt9 width="186">您的主页的URL：</TD>
<TD class=pt9 width="466"><INPUT maxLength=80 name=home size=65 value=http://> </textarea> </TD></TR>
<TR bgcolor="#b7c4e2">
<TD align=right class=pt9 width="186">
个人简介：<br></TD>
<TD class=pt9 width="466"><textarea name=jiao cols=60 rows=5></textarea> </TD></TR>
<tr bgcolor="#dedfdf">
<TD align=right class=pt9 width="186">
您的签名档：<br>
EOF
if ($YBBCodeAllow eq "is") {
print <<EOF;
<FONT color=red>（支持 <a href=javascript:openWindow()>YBB 代码</a>）</FONT>
EOF
}
print <<EOF;
</TD>
<TD class=pt9 width="466"><textarea name=qm cols=60 rows=5></textarea> </TD></TR>
<tr bgcolor="#b7c4e2">
<TD align=right class=pt9 width="186">
请选择您所在的省份：</TD> <TD class=pt9 width="466">
<table width=100% border=0>
<tr>
<td>
<input type=radio name=city value=北京>
北京 </td>
<td>
<input type=radio name=city value=广东>
广东 </td>
<td>
<input type=radio name=city value=上海>
上海 </td>
<td>
<input type=radio name=city value=新疆>
新疆 </td>
<td>
<input type=radio name=city value=辽宁>
辽宁 </td>
</tr>
<tr>
<td>
<input type=radio name=city value=广西>
广西 </td>
<td>
<input type=radio name=city value=海南>
海南 </td>
<td>
<input type=radio name=city value=湖南>
湖南 </td>
<td>
<input type=radio name=city value=甘肃>
甘肃 </td>
<td>
<input type=radio name=city value=河北>
河北 </td>
</tr>
<tr>
<td>
<input type=radio name=city value=湖北>
湖北 </td>
<td>
<input type=radio name=city value=江西>
江西 </td>
<td>
<input type=radio name=city value=江苏>
江苏 </td>
<td>
<input type=radio name=city value=西藏>
西藏 </td>
<td>
<input type=radio name=city value=山东>
山东 </td>
</tr>
<tr>
<td>
<input type=radio name=city value=浙江>
浙江 </td>
<td>
<input type=radio name=city value=福建>
福建 </td>
<td>
<input type=radio name=city value=安徽>
安徽 </td>
<td>
<input type=radio name=city value=吉林>
吉林 </td>
<td>
<input type=radio name=city value=山西>
山西 </td>
</tr>
<tr>
<td>
<input type=radio name=city value=云南>
云南 </td>
<td>
<input type=radio name=city value=贵州>
贵州 </td>
<td>
<input type=radio name=city value=四川>
四川 </td>
<td>
<input type=radio name=city value=陕西>
陕西 </td>
<td>
<input type=radio name=city value=内蒙古>
内蒙古 </td>
</tr>
<tr>
<td>
<input type=radio name=city value=重庆>
重庆 </td>
<td>
<input type=radio name=city value=天津>
天津 </td>
<td>
<input type=radio name=city value=河南>
河南 </td>
<td>
<input type=radio name=city value=青海>
青海 </td>
<td>
<input type=radio name=city value=黑龙江>
黑龙江 </td>
</tr>
<tr>
<td>
<input type=radio name=city value=宁夏>
宁夏 </td>
<td>
<input type=radio name=city value=台湾>
台湾 </td>
<td>
<input type=radio name=city value=香港>
香港 </td>
<td>
<input type=radio name=city value=澳门>
澳门 </td>
<td>
<input type=radio name=city value=其它>
其它 </td>
</tr>
<td>
</TD></TR>
</table>
<TR bgcolor="#dedfdf">
<TD align=right class=pt9 width="186">请选择您的头像：</TD>
<TD class=pt9 width="466">
<input type=radio name=tu value=0><img src=$imagurl/Image0.gif>
<input type=radio name=tu value=1><img src=$imagurl/Image1.gif>
<input type=radio name=tu value=2><img src=$imagurl/Image2.gif>
<input type=radio name=tu value=3><img src=$imagurl/Image3.gif>
<input type=radio name=tu value=4><img src=$imagurl/Image4.gif>
<input type=radio name=tu value=5><img src=$imagurl/Image5.gif>
<input type=radio name=tu value=6><img src=$imagurl/Image6.gif>
<input type=radio name=tu value=7><img src=$imagurl/Image7.gif>
<input type=radio name=tu value=8><img src=$imagurl/Image8.gif>
<input type=radio name=tu value=9><img src=$imagurl/Image9.gif>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -