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

📄 reg.cgi

📁 Yuzi聊天室2000 1.01 不光自己可以用
💻 CGI
字号:
🔍 
#!/usr/bin/perl
#------------------------------------------------------#
#                 本程序为Yuzi工作室提供               #
#               Yuzi聊天室2000多用户版v1.01            #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
$cgiurl    = "reg.cgi";
$from    = $ENV{'REMOTE_ADDR'};
($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;}
if($sec<10){$sec="0".$sec;}
$year=$year+1900;
$thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec;
$lasttime=$year."-".$mon."-".$mday;
mkdir("$filepath",0777);
mkdir("$filepath/list",0777);
mkdir("$filepath/data",0777);
unless(-f $list){
open(TMP,">$list")||die $!;
close(TMP);
chmod(0666,$list);
}
##########
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;
$FORM{$name} = $value;
$FORM{'htmlt'}=~s/\n//g;
$FORM{'htmlw'}=~s/\n//g;
$FORM{'jj'}=~s/\n//g;
}
##########
$username = $FORM{'username'};
$newpsd   = $FORM{'newpsd'};
$userpsd  = $FORM{'userpsd'};
$titles   = $FORM{'titles'};
$comment  = $FORM{'comment'};
$mail     = $FORM{'mail'};
$home     = $FORM{'home'};
$title    = $FORM{'title'};
$urlname = $FORM{'urlname'};
$htmlt     = $FORM{'htmlt'};
$htmlw     = $FORM{'htmlw'};
$a_method = $FORM{'a_method'};
$newpsd   = $FORM{'newpsd'};
$jj   = $FORM{'jj'};
$regd=0;
$regda=0;
$regdb=0;
if($a_method eq "reguser"){&reguser; exit;}
if($a_method eq "reg"){&reg;exit;}
&reg;
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>免费$cginame申请表</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>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<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">
<form method="post" action="$cgiurl">
<input type="hidden" name="a_method" 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>免费$cginame系统申请表</b></p></TD>
</tr>
<tr>
<TD>
<P class=pt9>●
申请完成后，您即可获得自己的$cginame($ym/$yuzicgi?id=管理员名称) <BR>●
带<FONT color=red>*</FONT>为必填 </P></TD>
</tr>
<tr>
<TD>
<TABLE bgColor=#bbbbbb width="627">
<TBODY>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>  请设定$cginame的名称：</TD>
<TD class=pt9 width="466"><INPUT maxLength=80 name=title size=65></TD></TR>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>
管理员名称：</TD>
<TD class=pt9 width="466"><INPUT maxLength=20 name=username> </TD></TR>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>
管理员密码：</TD>
<TD class=pt9 width="466"><INPUT maxLength=8 maxLength=20 name=userpsd size="20"></TD></TR>
<TR>
<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>
<TD align=right class=pt9 width="186">您的主页名称：</TD>
<TD class=pt9 width="466"><INPUT maxLength=20 name=urlname></TD></TR>
<TR>
<TD align=right class=pt9 width="186">您的主页的URL：</TD>
<TD class=pt9 width="466"><INPUT maxLength=80 name=home size=65 value=http://></TD></TR>
<TR>
<TD align=right class=pt9 width="186">$cginame简介：</TD>
<TD class=pt9 width="466"><textarea cols=63 name=jj rows=5></textarea></TD></TR>
</TBODY></TABLE></TD>
</tr>
<tr>
<TD class=pt9>
<P><input type="submit" value="填好了，继续！"><P align=center
class=pt9>凡申请使用本$cginame系统的用户均可以获得<BR><B>$ym/$yuzicgi?id=用户名</B><BR>的域名指向其$cginame系统！<BR>
<P align=right class=pt9>[免费申请]<a href="xiu.cgi">[版主资料修改]</a><a href="cjyh.cgi">[超级用户管理]</a><a href="list.cgi">[用户列表]</a>
<P>
<DIV
class=pt9>注意事项：<BR>1、不得使用本$cginame系统建立任何包含色情、非法、以及危害国家安全的内容的$cginame;<BR>2、不得在本系统用户所拥有的$cginame内发布任何色情、非法、或者危害国家安全的$cginame;<BR>3、以上规则违者责任自负，本站有权删除该类用户或者内容，并追究其法律责任。<BR></DIV></TD>
</tr>
<td align="middle">免费$cginame服务由<font color=#cc0033>
</font><font color=#ff6633><b><font Helvetica, sans-serif><a href=$zyurl>$zynames</a></font></b></font><font color=#cc0033>
</font>提供　程序制作：<b><a href="http://yuzi.126.com" target="_blank">Yuzi工作室</b></a></td>
　</td>
</tr>
</table>
</form>
</BODY></HTML>
EOF
exit;
}
##########
sub reguser{
if(($userpsd eq "")||($username eq "")||($mail eq "")||($title eq "")){&errorview("显示标题　名字　密码　信箱　必顺要填写的，请重新输入！");exit;}
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);}
if(length($jj) > 400 ){&errorview("您的$cginame简介不能大于200个汉字！");exit;}
if ( -e "$filepath/list/$username.cgi"){
&errorview("对不起，用户名已被别人注册! 换一个吧！");exit;
}else{
unless(-f "$filepath/list/$username.cgi"){
open(PSD,">>$filepath/list/$username.cgi")||die $!;
print PSD $username."\t".$userpsd."\t".$mail."\t".$home."\t".$title."\t".$urlname."\t".$lasttime."\t".$htmlt."\t".$htmlw."\t".$jj;
print PSD "\n";
close(PSD);
chmod(0666,"$filepath/list/$username.cgi");
}
mkdir("$filepath/data/$username",0777);
open(TMP,">>$list")|| die $!;
print TMP "$username\n";
close(TMP);
   open (OUTMAIL,"| $mailprg") || die "Mail system error";
   print OUTMAIL "To: $FORM{mail}\n";
   print OUTMAIL "Subject: $cginame系统开通通知！\n";
   print OUTMAIL "亲爱的$username, 您好!\n";
   print OUTMAIL "\n";
   print OUTMAIL "　　恭喜! 您已经成功的申请了$zynames($zyurl)的$cginame系统, 非常感谢您使用$zynames的服务!\n";
   print OUTMAIL "\n";
   print OUTMAIL "　* 我们免费为您的$cginame提供了一个比较好记的地址,请您试试\n";
   print OUTMAIL "URL: $ym/$yuzicgi?id=$username\n";
   print OUTMAIL "\n";
   print OUTMAIL "　* 您的帐号是:$username　密码是:$userpsd\n";
   print OUTMAIL "\n";
   print OUTMAIL "　* 最后, 有几点注意事项请您牢记\n";
   print OUTMAIL "1、不得使用本$cginame系统建立任何包含色情、非法、以及危害国家安全的内容的$cginame;\n";
   print OUTMAIL "2、不得在本系统用户所拥有的$cginame内发布任何色情、非法、或者危害国家安全的$cginame;\n";
   print OUTMAIL "3、以上规则违者责任自负，本站有权删除该类用户或者内容，并追究其法律责任。\n";
   print OUTMAIL "\n";
   print OUTMAIL "\n";
   print OUTMAIL "免费$cginame服务由 $zynames($zyurl) 提供　程序制作：Yuzi工作室(http://yuzi.126.com)\n";
   print OUTMAIL "\n\n";
   close(OUTMAIL);
}
&send_html;
print "<HEAD>\n";
print "<TITLE>祝 贺 您 ！ 您 已 经 成 功 申 请 ！</TITLE>\n";
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><b><a href=$yuzicgi?id=$username target=_blank>我们为您的新$cginame免费提供了一个属于您自己的域名：<br>$ym/$yuzicgi?id=$username<br>请记住它！</a></b>\n";
print "<p class=pt10 align=center><b><a href=$yuzicgi?id=$username target=_blank>请在此行上点击您鼠标的右键，<br>把这个域名加入您的书签或者收藏夹中</a></b>\n";
print "<p class=pt10 align=center>\n";
print "<table cellspacing=4 cellpadding=3><tr><td class=pt9 align=right bgcolor=#FFF5E1><b>显示标题：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{title}</font><td class=pt9 bgcolor=#FFF5E1><b>您的主页：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{home}</font><tr><td class=pt9 align=right bgcolor=#FFF5E1><b>注册姓名：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{username}</font><td class=pt9 bgcolor=#FFF5E1><b>您的密码：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$userpsd</font><tr><td class=pt9 align=right bgcolor=#FFF5E1><b>您的信箱：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{mail}</font><td class=pt9 bgcolor=#FFF5E1><b>注册时间：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$lasttime.</font></table>\n";
print "</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://yuzi.126.com target=_blank>YUZI工作室</a>”</td></tr></tbody></table></center></div>\n";
exit;
}
######################### END OF SCRIPT #########################

⌨️ 快捷键说明

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