📄 xiu.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000 v3.20 免费版 #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
$cgiurl = "xiu.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;
##########
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;
$FORM{'jj'}=~ s/<([^>]|\n)*>/ /g;
}
##########
$username = $FORM{'username'};
$newusername = $FORM{'newusername'};
$newpsd = $FORM{'newpsd'};
$userpsd = $FORM{'userpsd'};
$titles = $FORM{'titles'};
$comment = $FORM{'comment'};
$yhq = $FORM{'yhq'};
$fbzmc = $FORM{'fbzmc'};
$mail = $FORM{'mail'};
$home = $FORM{'home'};
$htmlt = $FORM{'htmlt'};
$htmlw = $FORM{'htmlw'};
$title = $FORM{'title'};
$menu = $FORM{'menu'};
$newpsd = $FORM{'newpsd'};
$jj = $FORM{'jj'};
&GetCookies;
if ($xgusername eq ""){$xgusername=$Cookies{username}};
$regd=0;
$regda=0;
$regdb=0;
if($menu eq "reguser"){®user; exit;}
if($menu eq "reg"){®exit;}
if($username eq ""){&bzgl;exit;}
®
exit;
##########
sub send_html {
if ($has_send ne "1") {
print "Content-type: text/html\n\n";
$has_send = "1";
}
}
##########
sub reg{
if ( -e "$filepath/list/$username.cgi"){
open(PSD,"$filepath/list/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rname,$rrrp,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line);
open(TITLESyu,"$filepath/yhzl/$rname.cgi");
$ayu=<TITLESyu>;
close(TITLESyu);
$ayu=~ s/\n//g;
($rpass)=split(/\t/,$ayu);
if($userpsd ne "$rpass"){&errorview("您的密码错误！");exit;}
&send_html;
print <<EOF;
<HTML><HEAD><TITLE>版主资料修改</TITLE>
<body background=$imagurl/bg.jpg>
<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 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="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>●
申请完成后，您即可获得自己的论坛($ym/bbs.cgi?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> 请设定论坛的名称：</TD>
<TD class=pt9 width="466"><INPUT name=title size=65 value=$rtitle></TD></TR>
<input type="hidden" name="userpsd" value="$userpsd">
<input type="hidden" name="username" value="$username">
<input type="hidden" name="newusername" value="$rname">
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT> 您的Email地址：</TD>
<TD class=pt9 width="466"><INPUT name=mail value=$rmail></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=$rhome><TR></TD></TR>
<TR>
<TD align=right class=pt9 width="186">论坛简介：</TD>
<TD class=pt9 width="466"><textarea cols=63 name=jj rows=5>$jj</textarea></TD></TR>
<TR>
<TD align=right class=pt9 width="186">论坛头部显示信息：<br><FONT color=red>（支持 html）</FONT></TD>
<TD class=pt9 width="466"><textarea cols=63 name=htmlt rows=5>$htmlt</textarea></TD></TR>
<TR>
<TD align=right class=pt9 width="186">论坛尾部显示信息：<br><FONT color=red>（支持 html）</FONT></TD>
<TD class=pt9 width="466"><textarea cols=63 name=htmlw rows=5>$htmlw</textarea></TD></TR>
<TR>
<TD align=right class=pt9 width="186">请设定副版主名称：</TD>
<TD class=pt9 width="466"><INPUT name=fbzmc size=10 value=$fbzmc> <FONT color=red>如果你不想有副版主，此处请留空</FONT></TD></TR>
</TBODY></TABLE></TD>
</tr>
<tr>
<TD class=pt9>
<P><input type="submit" value="填好了，继续！"><P align=center
class=pt9>凡申请使用本论坛系统的用户均可以获得<BR><B>$ym/bbs.cgi?id=用户名</B><BR>的域名指向其论坛系统！<BR>
<P align=right class=pt9><a href="reg.cgi">[免费申请]</a>[版主资料修改]<a href="yhreg.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;
}
}else{
&errorview("对不起，您输入的版主名称是错误的，这个名称没有申请过论坛！");exit;
}
}
##########
sub reguser{
if ( -e "$filepath/yhzl/$newusername.cgi"){
}else{
&errorview("对不起，您输入的新版主名称错误，系统没有此用户的资料!");exit;
}
if ($fbzmc ne ""){
if ( -e "$filepath/yhzl/$fbzmc.cgi"){
}else{
&errorview("对不起，您输入的副版主名称错误，系统没有此用户的资料!");exit;
}
}
if(($userpsd eq "")||($newusername eq "")||($mail eq "")||($title eq "")){&errorview("显示标题 名字 密码 信箱 必顺要填写的，请重新输入！");exit;}
if(length($title) > 50 ){&errorview("您的简介不能大于25个汉字！");exit;}
if(length($jj) > 400 ){&errorview("您的简介不能大于200个汉字！");exit;}
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);}
open(PSD,">$filepath/list/$username.cgi");
print PSD $newusername."\t".$userpsd."\t".$mail."\t".$home."\t".$title."\t".$yhq."\t".$lasttime."\t".$htmlt."\t".$htmlw."\t".$jj."\t".$fbzmc;
print PSD "\n";
close(PSD);
chmod(0666,"$filepath/list/$username.cgi");
&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=bbs.cgi?id=$username target=_blank>我们为您的新论坛免费提供了一个属于您自己的域名：<br>$ym/bbs.cgi?id=$username<br>请记住它！</a></b>\n";
print "<p class=pt10 align=center><b><a href=bbs.cgi?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://www.yuzi.net target=_blank>YUZI工作室</a>”</td></tr></tbody></table></center></div>\n";
exit;
}
########
sub bzgl{
&send_html;
print <<EOF;
<HTML>
<head>
<META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312>
<TITLE>版主资料修改</TITLE>
<style type=text/css>
<!--
.ourfont {font-size: 9pt ; line-height:13pt; }
A{text-transform: none; text-decoration: none;}
a:hover {text-decoration:underline}
-->
</style>
</head>
<BODY BGCOLOR=white text=000000 link=blue vlink=blue>
<br>
<center><table border=1 bgcolor=ffffdd><tr><td align=center>
<p><b><font face="黑体" size="5">版主资料修改</font></b>
<form method="post" action="$cgiurl">
<table border=0>
<tr><td class=ourfont>论坛 ID :</td><td class=ourfont><input type="text" name="username" size="9" value=$xgusername></td></tr>
<tr><td class=ourfont>版主密码:</td><td class=ourfont><input type="password" name="userpsd" size="9"></td></tr>
<tr><td class=ourfont colspan=2><input name="submit" type="submit" value="继续"></td></tr>
</table>
</form>
<div class=ourfont>
<br><form method="post" action="yhreg.cgi"><input type="hidden" name="menu" value="mail">—— 找回密码 ——<br>请输入您的用户名:<input type="text" name="username" size="9"> <input name="submit" type="submit" value="继续"></form><br>
<a href="reg.cgi">[免费申请]</a>[版主资料修改]<a href="yhreg.cgi">[用户资料注册]</a><a href="yhxiu.cgi">[用户资料修改]</a><a href="list.cgi" target=_top>[论坛列表]</a><a href="cjyh.cgi">[社区管理]</a><br>
<hr size=1 width=450>
免费论坛服务由 <a href=$zyurl>$zyname</a> 提供 程序制作<a href=http://www.yuzi.net targe=_blank> Yuzi工作室 </a>
</div></table>
</html>
EOF
exit;
}
######################### END OF SCRIPT #########################⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -