newtopic.cgi

--黑客防线-精华奉献本(攻册)

<input type=radio name=emote value=32><img onclick=javascript:emoticon('[img]$imagurl/32.gif[/img]') src=$imagurl/32.gif>
<input type=radio name=emote value=33><img onclick=javascript:emoticon('[img]$imagurl/33.gif[/img]') src=$imagurl/33.gif>
</TD></TR>
<TR><TD vAlign=top bgColor=$bgcolor2 width=129 rowspan=2>
<TABLE cellSpacing=0 cellPadding=0 width=97 align=left bgColor=$bgcolor2 border=0><TBODY><TR><TD vAlign=top align=left width=125><B>文章内容</B><BR>(<a href=javascript:CheckLength();>查看内容长度</a>)<BR><br></TD></TR>
<TR><TD vAlign=center align=left width=125><TABLE style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; WIDTH: 125px; BORDER-BOTTOM: 1px inset" cellSpacing=1 cellPadding=3 align=left bgColor=$bgcolor1 border=0><TBODY>
<TR align=middle><TD><A href=javascript:emoticon(':)')><IMG alt=笑脸 src=$imagurl/regular_smile.gif border=0></A></TD><TD><A href=javascript:emoticon(':d')><IMG alt=开口笑脸 src=$imagurl/teeth_smile.gif border=0></A></TD><TD><A href=javascript:emoticon(':o')><IMG alt="微笑说 O" src=$imagurl/omg_smile.gif border=0></A></TD></TR>
<TR align=middle><TD><A href=javascript:emoticon(':p')><IMG alt=微笑时伸出舌头 src=$imagurl/tounge_smile.gif border=0></A></TD><TD><A href=javascript:emoticon(';)')><IMG alt=眨眼微笑 src=$imagurl/wink_smile.gif border=0></A></TD><TD><A href=javascript:emoticon(':(')><IMG alt=苦笑 src=$imagurl/sad_smile.gif border=0></A></TD></TR>
<TR align=middle><TD><A href=javascript:emoticon(':s')><IMG alt=狡猾的微笑 src=$imagurl/confused_smile.gif border=0></A></TD><TD><A href=javascript:emoticon(':|')><IMG alt=严肃的微笑 src=$imagurl/whatchutalkingabout_smile.gif border=0></A></TD><TD><A href=javascript:emoticon(':[')><IMG alt=可爱的笑 src=$imagurl/angel_smile.gif border=0></A></TD></TR>
</TBODY></TABLE><tr><TD><br>
YBB代码： $ybbestate允许<br>
贴图标签： $ybbestate允许<br>
表情字符转换： 允许
</TD></TR></TD></TR></TBODY></TABLE></TD>
EOF
if($ybbcodeAllow eq "on"){
print <<EOF;
<SCRIPT src=$imagurl/ybbcode.js></SCRIPT>
<TD bgColor=$bgcolor2 colspan=3 width=502><INPUT title="加粗: [Alt] + b" style="FONT-WEIGHT: bold" accessKey=b onclick=YBBCbold() type=button value=" B " name=bold>
<INPUT title="倾斜: [Alt] + i" style="FONT-STYLE: italic" accessKey=i onclick=YBBCitalic() type=button value=" I " name=italic>
<INPUT title="下划线: [Alt] + u" style="TEXT-DECORATION: underline" accessKey=u onclick=YBBCunder() type=button value=" U " name=under>
<INPUT title="超链接: [Alt] + h" style="COLOR: blue; TEXT-DECORATION: underline" accessKey=h onclick=YBBCurl() type=button value=" http:// ">&nbsp;<INPUT title="EMAIL: [Alt] + e" style="COLOR: blue; TEXT-DECORATION: underline" accessKey=e onclick=YBBCemail() type=button value="  @  ">
<INPUT title="图片: [Alt] + p" accessKey=p onclick=YBBCimage() type=button value=" 图片 ">
<INPUT title="引用: [Alt] + q" accessKey=q onclick=YBBCquote() type=button value=" 引用 " name=quote>
<INPUT title="代码: [Alt] + c" accessKey=c onclick=YBBCcode() type=button value=" 代码 " name=code>
</TD>
EOF
}
print <<EOF;
</TR>
<tr><TD bgColor=$bgcolor2 colspan=3 width=502>
<TEXTAREA name=comment rows=10 cols=60 onkeydown=presskey();></TEXTAREA><BR><input type=checkbox value=1 name=html>
HTML代码　<img src=$imagurl/affix.gif>增加附件（$maxkk K 以内）<input type=FILE name=file_name>
</TD></TR><TR><TD id=titlelarge align=left bgColor=$bgcolor0
colSpan=4 height=21 background=$imagurl/color/$color/iebg2.gif><font color=ffffff>选项</font></TD></TR><TR><TD vAlign=top width=129 bgColor=$bgcolor2 height=30></TD>
<TD bgColor=$bgcolor2 height=30 colspan=3 width=502>
<input type=checkbox value='1' $savechecked name=xuansave> 密码保存在缓存里<br>
<input type=checkbox value=1 name=ybbcode> 禁止 <a href=# onclick=javascript:window.open('$imagurl/ybb.htm','','width=500,height=300,resizable,scrollbars')>YBB代码</a><br>
<input type=checkbox value=1 name=smilies> 禁止 <a href=# onclick=javascript:window.open('$imagurl/ybbcode.htm#smilies','','resizable,scrollbars')>表情字符</a><br>
<input type=checkbox value=1 name=no> 不允许别人回复我的文章
</TD></TR><TR><TD align=middle bgColor=$bgcolor1 colSpan=4 height=27><INPUT tabIndex=4 type=submit value="发表新主题" name=submit1>&nbsp;
<INPUT type=reset value=" 重 写 "></TD></TR></TBODY></TABLE></FORM><a href=javascript:history.back();><IMG src=$imagurl/back.gif border=0></a>
EOF
exit;
sub upfile {
&origin;
if(length($username) > 20){&errorview("您的名字不能大于20个字符！");}
open (FILE, "$filepath/data/prison");
@ips = <FILE>;
close(FILE);
foreach $prison(@ips) {
($prison)=split(/\t/,$prison);
if ($prison eq $username) {&errorview("您被抓进监狱，无法发表文章！");}}
if($id eq "" || $id eq "."){&monitor;}
$yhzlurl ="$filepath/yhzl/$username.cgi";
if($regok eq "0"){unless(-f $yhzlurl){
open(PSD,">$yhzlurl");
print PSD $userpsd."\t".$username."\t\t\t".$lasttime;
close(PSD);
chmod(0666,$yhzlurl);}}
open(PSD,"$yhzlurl")||&errorview("对不起，此用户名还没有注册!");
$liness=<PSD>;
close(PSD);
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$savecookie)=split(/\t/,$liness);
if($rdpassword ne $userpsd){&errorview("对不起，您的密码错误!");}
$upfile = $FORM{'file_name'};
$filelen=length($upfile);
if($filelen > 0){
@a=split(/\"/,$real_file);
@b=split(/\\/,$a[3]);
$t=@b;
$org_name=($b[$t-1]);
$org_name=~ tr/ /_/;
($filenameleft,$filenameright)= split(/\./,$org_name);
if ($filelen > $maxfj){&errorview("上传附件超长！您上传的附件长度是 $filelen byte, 本站接受的附件最大长度是 $maxfj byte!");exit;}
$filenameright=~tr/A-Z/a-z/;
unless(-e "$ImgDir/genre/$filenameright.gif"){&errorview("本系统不支持这种格式的文件!");}
$filename = "$ImgDir/affix/$ftime.$filenameright";
open(FILE,">$filename")||&errorview("系统无法建立文件，请检查 $ImgDir/affix 目录属性是否为“777”");
binmode FILE; 
print FILE $upfile;
close FILE;
chmod("$filename",0777);
$sizek=$filelen/1024;
($sizek)=split(/\./,$sizek);
if($sizek eq "0"){$sizek=1};
$comment.="<br><a href=$imagurl/affix/$ftime.$filenameright target=_blank><img border=0 src=$imagurl/genre/$filenameright.gif onload='javascript:if(this.width>screen.width-300)this.width=screen.width-300'> 与此主题相关的附件（大小：$sizek K）</a>";
if($filenameright eq "gif" || $filenameright eq "bmp" || $filenameright eq "jpeg" || $filenameright eq "jpg"){$comment.="<br><img border=0 src=$imagurl/affix/$ftime.$filenameright onload='javascript:if(this.width>screen.width-300)this.width=screen.width-300'>";}
elsif($filenameright eq "mid" || $filenameright eq "wav"){$comment.="<br><embed src=$imagurl/affix/$ftime.$filenameright>";}
}
foreach (@badwords) {$comment =~s/$_/****/gi;}
if($FORM{'smilies'} ne "1"){$comment = &smilies("$comment");}
if($ybbcodeAllow eq "on" && $FORM{'ybbcode'} ne "1"){$comment = &ybbcode("$comment");}
foreach (@badwords) {$titles =~s/$_/****/gi;}
if(($username eq "")||($userpsd eq "")){&errorview("您的名字和密码不能没有填写！");}
$titles =~s/  /　/g;
if((length($titles) > 100)||(length($titles) < 2)){&errorview("文章标题不能小于2个字符并且不能大于100个字符！");}
if(length($comment) > $restrictbyte){&errorview("文章内容不能大于$restrictbyte个字节！");}
($ip1,$ip2,$ip3,$ip4)=split(/\./,$from);$badi="$ip1.$ip2.$ip3";
foreach $badip (@badip) {&errorview("对不起！此段IP被禁止发表文章！") if($badip eq $badi);exit if($badip eq $badi);}
if($Cookies{lasttxt} > $ftime-30){&errorview("为防止有人用程序灌水，本BBS限制一个人两次发帖间隔必须大于30秒！");}
print "Set-Cookie:lasttxt=$ftime\n";
&repeat;
open(NUMBER,"$filepath/guest/2$username.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
if($charm < 0){&errorview("您的魅力太低，不能发表文章！请联系社区区长。");}
$money=$money+10;$charm=$charm+0.5;
open(NUMBER,">$filepath/guest/2$username.cgi");
print NUMBER "$lys"."\t"."$oldlys"."\t"."$money"."\t"."$charm";
close(NUMBER);
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/list/$id/bbs");
print TITLES "$ftime\n";
print TITLES @hastitles;
close(TITLES);
if($emote eq ""){$emote="1"};
$peo="$filepath/list/$id/$ftime";
open(TMP,">$peo")||&errorview("系统无法建立文件，请检查 $filepath/list/$id 目录属性是否为“777”");
print TMP $titles."\t".$thistime."\t".$username."\t".$comment."\t".$from."\t0\t".$emote."\t--\t".$thistime."\t"."$ftime"."b"."\t0\t\t".$FORM{'no'};
close(TMP);
chmod(0666,$peo);
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
($rdpassword,$rusername,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$rating,$levelname,$level,$lastlytime,$lastlytopic,$realname,$birthday,$shengxiao,$blood,$constellation,$character,$belief,$marital,$education,$college,$oldrat)=split(/\t/,$line);
if($oldrat){$rating=$oldrat;}
if($rating eq "on"){$rating=0;}
if($tu eq ""){$tu=$sec};$rfy++;
$rusername=$username;
do "$cgipa/sub/level.cgi";
($kkk)=split(/\)/,$ENV{'HTTP_USER_AGENT'});
($bzd,$ie,$win,$me)=split(/;/,$kkk);
if($me eq " Win 9x 4.90"){$win=" Windows Me"}
elsif($win eq " Windows NT 5.0"){$win=" Windows 2000"}
elsif($win eq " Windows NT 5.1"){$win=" Windows XP"};
open(PSD,">$filepath/yhzl/$username.cgi");
print PSD $rdpassword."\t".$username."\t".$rdmail."\t".$rdhome."\t".$rlast."\t".$rdqm."\t".$rdsex."\t".$rdwork."\t".$rdcity."\t".$rdlove."\t".$rfy."\t".$rhf."\t".$tu."\t".$jiao."\t$ie$win\t".$QQ."\t".$photo."\t".$rating."\t".$levelname."\t".$level."\t".$thistime."\t"."<a href=bbs.cgi?menu=show&id=$id&slttitle=$ftime>$titles</a>\t".$realname."\t".$birthday."\t".$shengxiao."\t".$blood."\t".$constellation."\t".$character."\t".$belief."\t".$marital."\t".$education."\t".$college;
close(PSD);
open(TITLES,"$filepath/postlog/$username.cgi");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/postlog/$username.cgi")||&errorview("系统无法建立文件，请检查 $filepath/postlog 目录属性是否为“777”");
print TITLES "$ftime\t$id\t$FORM{'bbsname'}\n";
print TITLES @hastitles[0..18];
close(TITLES);
open(NUMBER,"$filepath/data/count");
$NUMBER=<NUMBER>;
close(NUMBER);
($riqi,$fa,$hui)=split(/\t/,$NUMBER);
if ($riqi eq "$year$mon$mday"){$fa++;}else{$riqi="$year$mon$mday";$fa="1";$hui="0";}
open(NUMBER,">$filepath/data/count");
print NUMBER "$riqi"."\t"."$fa"."\t"."$hui";
close(NUMBER);
print "Set-Cookie:del=$ftime\n";
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<meta http-equiv=refresh content=2;url=$imagurl/loading.htm>
</head>
<SCRIPT>window.open('bbs$Cookies{style}.cgi?menu=listtitle&id=$id&$ftime','yuzi_frame');</SCRIPT>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center height=85%>
<tr align=center valign=middle>
<td>
<table cellpadding=10 cellspacing=0 border=0 width=80% align=center>
<tr>
<td valign=middle align=center bgcolor=$bgcolor2>谢谢$username，您的信息已成功发出！<br><br>请等待系统将自动返回... 
<br><br>
(<a href=$imagurl/loading.htm>如果您不愿意等待，请点击这里返回</a>)
</td></tr></table></td></tr>
</table>
</html>
EOF
if($userpsd ne ""){&cookie;}
exit;
}
######################### END OF SCRIPT #########################