📄 bbs.cgi
字号:
alert ("您有 $lytrues 条新留言");</SCRIPT>
EOF
}
}
print <<EOF;
</tr>
</table>
<table border="1" align="center" width="100%" cellpadding="0" cellspacing="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr align=center>
<td background=$imagurl/tablebg.gif width=5%> </td>
<td background=$imagurl/tablebg.gif width=2%> </td>
<td background=$imagurl/tablebg.gif width=38%>文章标题</td>
<td background=$imagurl/tablebg.gif width=7%>新窗口</td>
<td background=$imagurl/tablebg.gif width=7%>作者</td>
<td background=$imagurl/tablebg.gif width=8%>回复数</td>
<td background=$imagurl/tablebg.gif width=8%>最后回复</td>
<td background=$imagurl/tablebg.gif width=18%>最后更新时间</td>
<td background=$imagurl/tablebg.gif width=7%>阅览数</td>
</tr>
EOF
$chgcolor=0;
for ($i=$page; $i<$page+20; $i++){
$hastitle=@hastitles[$i];
$hastitle=~ s/\n//g;
if($hastitle ne ""){
($rcomment)=split(/\t/,$hastitle);
open(TITLES,"$filepath/list/$id/$rcomment");
$m=<TITLES>;
close(TITLES);
$m=~ s/\n//g;
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$emote,$lastname,$rlasttime,$re,$rhassee)=split(/\t/,$m);
$see8=$see8+1;
$see=$see8+$page;
if($chgcolor==0){
if($rhasreply<5){$hot="closed.gif";}
if($rhasreply>=5){$hot="hot.gif";}
if($rhasreply<=0){$hot="closedb.gif";}
if ( -X "$filepath/list/$id/$rcomment"){$hot="lock.gif";}
($oldday)=split(/\./,$rlasttime);
$new="";
if(($rhassee<=10)&&($oldday eq $lasttime)){$new="new.gif";}
if ($rusername eq $username){$my="my.gif";}else{$my="";}
if ( -X "$filepath/list/$id/$rcomment"."b"){$my="jh.gif";}
print <<EOF;
<tr BGCOLOR="#FFF5E1" align="center">
<td bgcolor=FFF5E1>
<img src=$imagurl/$hot>
</td>
EOF
if ($my ne ""){
print <<EOF;
<td bgcolor="#FFF5E1"><img src=$imagurl/$my></td>
<td align="left"><img src="$imagurl/$emote.gif"> <a href="$cgiurl?menu=show&slttitle=$rcomment&id=$id&see=$see">$rtitles
EOF
}else{
print <<EOF;
<td bgcolor="#FFF5E1"> </td>
<td align="left"><img src="$imagurl/$emote.gif"> <a href="$cgiurl?menu=show&slttitle=$rcomment&id=$id&see=$see">$rtitles
EOF
}
if($nr eq ""){
print "（无内容）";
}
print <<EOF;
</a>
EOF
if(($new ne "")){
print "<img src=$imagurl/$new>";
}
print <<EOF;
</td>
<td bgcolor=FFF5E1><a href="#" onClick="javascript:open('$cgiurl?menu=show&slttitle=$rcomment&id=$id&see=$see','','resizable,scrollbars')"><img border=0 src=$imagurl/newwin.gif></a></td>
<td><a href=yhreg.cgi?menu=viewuser&username=$rusername target=_blank>$rusername</a></td>
<td bgcolor=FFF5E1>$rhasreply</td>
<td ><a href=yhreg.cgi?menu=viewuser&username=$lastname target=_blank>$lastname</a></td>
<td bgcolor=FFF5E1><a href=$cgiurl?menu=show&slttitle=$rcomment&id=$id&see=$see#$rlasttime><img src=$imagurl/lastpost.gif border=0 alt=到最后发表的帖子上></a> $rlasttime</td>
<td >$rhassee</td>
</tr>
EOF
}
}
}
print <<EOF;
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td align=left valign=baseline>所有时间为 北京时间. 格式: 年-月-日.</td>
<td align="right">
EOF
if($syy>-1){
print "<a href=$cgiurl?id=$id&page=$syy><img src=$imagurl/sbutton-backpage.gif border=0></a>";
}else{
print "<a href=javascript:history.back(1)><img src=$imagurl/sbutton-backpage.gif border=0></a>";
}
if(($size>20)&&($i<$size)){
print "<a href=$cgiurl?id=$id&page=$i><img src=$imagurl/sbutton-nextpage.gif border=0></a>";
}else{
print "<img src=$imagurl/sbutton-nextpage.gif border=0>";
}
if(($outurl ne "")&&($outurl ne "http://")){
print "<a href=$outurl><img src=$imagurl/sbutton-back.gif border=0> </a>";
}else{
print "<a href=javascript:history.back(1)><img src=$imagurl/sbutton-back.gif border=0></a>";}
print <<EOF;
</td>
</tr>
</table>
<table border="0" width="100%">
<tr valign="top">
<td width="100%" valign="middle" align="center">
<table width="350" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr bgcolor="#CFE3FE">
<form method="post" action="$cgirul">
<td background=$imagurl/tablebg.gif width="100%" align="center" colspan="2"> <input type="hidden" name="menu" value="findtitle"><font color=white>输入您要搜索的字符 </font><input type="hidden" name="id" size="28" value="$id" maxlength="46"><input type="hidden" name="userpsd" value="$userpsd"><input type="hidden" name="username" value="$username"><input type="text" name="search" size="20" value=""> <input name="submit" type="submit" style="background-image: url('$imagurl/tablebg.gif'); border: 0px " value=" 搜 索 ">
</td>
</form>
</tr>
<tr bgcolor="#CFE3FE">
<form method="post" action="$cgiurl">
<td background=$imagurl/tablebg.gif width="100%" align="center" colspan="2"> <input type="hidden" name="menu" value="win"><font color=white>您的姓名 </font><input type="text" name="username" size="9" value=""><font color=white> 您的密码 </font><input type="password" name="userpsd" size="9" value=""><input type="hidden" name="id" size="28" value="$id" maxlength="46"> <input name="submit" type="submit" style="background-image: url('$imagurl/tablebg.gif') ; border: 0px" value=" 登 陆 ">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<br>
$htmlw
<hr noShade SIZE=1 width=450>
<div align=center>
<table border=0 cellSpacing=4 width=545>
<tbody>
<tr align=middle>
<td class=unnamed1 width=533>本论坛言论纯属发表者个人意见，与<font color=#ff6633><b>
<font face=Arial, Helvetica, sans-serif>$zyname</font></b></font>
立场无关</td>
</tr>
<tr align=middle>
<td class=unnamed1 width=533>免费论坛服务由<font color=#cc0033>
</font><font color=#ff6633><b><font Helvetica, sans-serif><a href=$zyurl target=_blank>$zyname</a></font></b></font><font color=#cc0033>
</font>提供 技术支持：<b><a href=http://www.yuzi.net target=_blank>Yuzi工作室</a></b></td>
</tr>
</tbody>
</table>
</html>
EOF
exit;
}
##########
sub show{
unless(-f "$filepath/list/$id/$slttitle"){&errorview("对不起，此贴子已经被删除了！");exit;}
&send_html;
print <<EOF;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<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>
<body topmargin=0>
$htmlt
<table width="100%" border="0" cellpadding="4" cellspacing="0" background=$imagurl/tablebg.gif>
<tr>
<td><font color="#FFFFFF">论坛名称：<a href="$cgiurl?id=$id"><font color="#FFFFFF">$bbsname</a></font> 版主：<a href=yhreg.cgi?menu=viewuser&username=$admname target=_blank><font color=#FFFFFF>$admname</a></font> <a href=yhreg.cgi?menu=viewuser&username=$fbzmc target=_blank><font color=#FFFFFF>$fbzmc</a></font></td>
<td><font color=#ffffff><marquee width=300>$jj</marquee></font></td>
<td align=right>
EOF
if(($outurl ne "")&&($outurl ne "http://")){
print "<a href=$outurl target=_blank><font color=#FFFFFF>$outurl</font></a></td>";
}else{print "<a href=list.cgi target=_top><font color=#FFFFFF>$cityname</font></a></td>";}
print <<EOF;
</tr>
</table>
<br>
<br>
</table>
EOF
open(TITLES,"$filepath/list/$id/$slttitle");
$m=<TITLES>;
close(TITLES);
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee)=split(/\t/,$m);
if($see eq ""){$see=1;}
$see2=$see-1;$see=$see+1;
if($see2 eq "0"){$see2=1;}
$replytime=$rthistime;
$seachreply=$rhasreply;
$thistitle=$rtitles;
($ip1,$ip2,$ip3,$ip4)=split(/\./,$rfrom);
$rfrom = "$ip1.$ip2.$ip3.*";
print<<EOF;
<title>$rtitles</title><div align=center>
<table border=0 width=90%><tr><td width=33%><img src=$imagurl/bookmark.gif> <a href="javascript:window.external.AddFavorite('$ym/$cgiurl?menu=show&slttitle=$slttitle&id=$id','$rtitles')">将文章加入您的收藏夹</a></td>
<td width=33% align=center><img src=$imagurl/email.gif> <a href="#" onClick="javascript:open('yhreg.cgi?menu=email&index=$slttitle&id=$id','','resizable,scrollbars')">将本页发给您的朋友</a></td>
<td width=33% align=right><img src=$imagurl/print.gif> <a href="javascript:window.print()">将本页输出到打印机</a></td></tr></table>
<table width="90%" border=1 cellpadding="0" cellspacing="0" bordercolorlight="#5E9BF7" bordercolordark="#FFFFFF" >
<tr bgcolor="#ffedc8"><td colspan="1"><font color="#CC0033">文章标题：</font><img src='$imagurl/$remote.gif' > $rtitles <font color="#004080"></font>
EOF
$yhzlurl ="$filepath/yhzl/$rusername.cgi";
unless(-f $yhzlurl){
open(TMP,">$yhzlurl");
close(TMP);
chmod(0666,$yhzlurl);
}
open(PSD,"$filepath/yhzl/$rusername.cgi");
$lines=<PSD>;
close(PSD);
$lines=~ s/\n//g;
($rdpassword,$rname,$rmail,$rhome,$rlast,$rqm,$rdsex,$rdwork,$rcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq)=split(/\t/,$lines);
($kkk)=split(/\)/,$iewin);
($bzd,$ie,$win)=split(/;/,$kkk);
$tol=$rdfy+$rdhf;
if($tol < 11){$deji="<img src=$imagurl/star1.gif>";}
elsif ($tol > 10 && $tol < 31){$deji="<img src=$imagurl/star1.gif>";}
elsif ($tol > 30 && $tol < 101){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif>";}
elsif ($tol > 100 && $tol < 201){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif>";}
elsif ($tol > 200 && $tol < 501){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif>";}
elsif ($tol > 500 && $tol < 1001){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif>";}
elsif ($tol > 1000 && $tol < 2001){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif>";}
elsif ($tol > 2000){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif><img src=$imagurl/star5.gif>";}
print <<EOF;
<a href=$cgiurl?menu=findtitle&id=$id&search=$rusername><img border=0 src=$imagurl/find.gif alt=搜索$rusername所有的帖子></a> <a target=_blank href=yhreg.cgi?menu=viewuser&username=$rusername><img border=0 src=$imagurl/pro.gif alt=查看$rusername的信息></a> <a href=quote.cgi?id=$id&replytime=$slttitle&bbs=$cgiurl&yjhf=$rmail><img border=0 src=$imagurl/quote.gif alt=回复时引用此贴></a> <a href=quote.cgi?id=$id&menu=copy&replytime=$slttitle><img border=0 src=$imagurl/copy.gif alt=复制此贴内容></a> <a href=quote.cgi?id=$id&menu=mail&replytime=$slttitle><img border=0 src=$imagurl/mailto.gif alt=将本贴子内容通过email打包下载></a> <a target=_blank href=guest.cgi?action=add_form&guest=$rusername><img border=0 src=$imagurl/pm.gif alt=给$rusername留言></a>
EOF
if(($rmail ne "")){print "<a href=mailto:$rmail><img border=0 src=$imagurl/mail.gif alt=给$rusername发信></a> ";}
if(($rhome ne "")&&($rhome ne "http://")){print "<a target=_blank href=$rhome><img border=0 src=$imagurl/home.gif alt=访问$rusername的主页></a> ";}
if (($rusername eq $username)||($userpsd eq $delpsd)||($userpsd eq $fbzdel)){print "<a href=$cgiurl?menu=editform&deltitle=$slttitle&id=$id><img border=0 src=$imagurl/xg.gif alt=修改帖子></a> ";}
if ($oicq ne ""){print "<img border=0 src=$imagurl/oicq.gif alt=$rusername的OICQ号码：$oicq> ";}
$online="<img border=0 src=$imagurl/offzx.gif alt=离线>";
open (PEO,"$filepath/data/people.cgi");
@linesz=<PEO>;
close (PEO);
foreach $linesz (@linesz) {
($rip,$r1,$r2,$r3,$r4,$rtimez,$rnamez)=split(/,/,$linesz);
if ($rnamez eq $rusername){$online="<img border=0 src=$imagurl/onzx.gif alt=在线>";}}
print <<EOF;
<img border=0 src=$imagurl/ip.gif alt=$rusername的IP地址：$rfrom> <a href=$cgiurl?menu=deltitle&deltitle=$slttitle&id=$id><img border=0 src=$imagurl/del.gif alt=删除此帖子></a>
EOF
open(PSD,"$filepath/list/$id/$slttitle");
$line=<PSD>;
close(PSD);
open(PSD,">$filepath/list/$id/$slttitle");
($rtitles,$rthistime,$rusername,$nr,$rfrom88,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee)=split(/\t/,$line);
$rhassee++;
print PSD $rtitles."\t".$rthistime."\t".$rusername."\t".$nr."\t".$rfrom88."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$rhassee;
close(PSD);
print<<EOF;
</td></tr><tr><td colspan="4"><table width=100% border=0 cellspacing=4><tr><td><tr><td valign=top rowspan=2 align=center><IMG SRC=$imagurl/Image$tu.gif><br>$deji</td><td width=99% rowspan=2>$nr
EOF
if(($rqm ne "")){
print "<br>——————————<br>$rqm";
}
print <<EOF;
<td align=right valign=top>$online</td></tr><tr><td align=right valign=bottom><img src=$imagurl/system.gif alt="$ie$win"></td></td></tr></table></td><tr bgcolor="#ffedc8"><td colspan="4" align="center">作者：
EOF
if($rmail ne ""){print "<a href=mailto:$rmail>$rusername</a> ";}else{print "$rusername ";}
if(($rhome ne "")&&($rhome ne "http://")){print "<a target=_blank href=$rhome>$rhome</a>";}
print <<EOF;
时间：$rthistime 来源：
EOF
if($rcity ne ""){print "$rcity";}else{print "$rfrom";}
print <<EOF;
</tr></table></center></div><div align=center><table border=0 borderColor=#008000 borderColorDark=#9EC49D borderColorLight=#65A264 cellPadding=0 cellSpacing=1 height=19><tr><td width=15%><a href=$cgiurl?menu=fabiao1&id=$id&replytime=$slttitle&retitles=$rtitles&yjhf=$rdmail><img src=$imagurl/sbutton-rep2.gif border=0></a></td><td width="45%" align="center"><a href="$cgiurl?menu=show1&id=$id&see=$see2"><img src="$imagurl/sbutton-backword.gif" width="59" height="21" border="0"></a><a href="$cgiurl?menu=show1&id=$id&see=$see"><img src="$imagurl/sbutton-nextword.gif" width="59" height="21" border="0"></a><a href="$cgiurl?id=$id"><img src="$imagurl/sbutton-back.gif" width="59" height="21" border="0"></a></td></tr></table>
EOF
if($seachreply > 0){
open(REPLY,"$filepath/list/$id/$re");
@hasreply=<REPLY>;
close(REPLY);
foreach $m (@hasreply){
$m=~ s/\n//g;
if($m ne ""){
($rtime,$rthistime,$rusername,$rcomment,$rfrom,$remote,$retitles)=split(/\t/,$m);
if($rtime eq $slttitle){
print <<EOF;
<div align="center"><center><table width="85%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#5E9BF7" bordercolordark="#FFFFFF"><tr bgcolor="#ffedc8"><td ><img src=$imagurl/$remote.gif > <a NAME=$rthistime>$retitles</a>
EOF
$yhzlurl ="$filepath/yhzl/$rusername.cgi";
unless(-f $yhzlurl){
open(TMP,">$yhzlurl");
close(TMP);
chmod(0666,$yhzlurl);
}
open(PSD,"$filepath/yhzl/$rusername.cgi");
$lines=<PSD>;
close(PSD);
$lines=~ s/\n//g;
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq)=split(/\t/,$lines);
($kkk)=split(/\)/,$iewin);
($bzd,$ie,$win)=split(/;/,$kkk);
$tol=$rdfy+$rdhf;
if($tol < 11){$deji="<img src=$imagurl/star1.gif>";}
elsif ($tol > 10 && $tol < 31){$deji="<img src=$imagurl/star1.gif>";}
elsif ($tol > 30 && $tol < 101){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif>";}
elsif ($tol > 100 && $tol < 201){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif>";}
elsif ($tol > 200 && $tol < 501){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif>";}
elsif ($tol > 500 && $tol < 1001){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif>";}
elsif ($tol > 1000 && $tol < 2001){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif>";}
elsif ($tol > 2000){$deji="<img src=$imagurl/star1.gif><img src=$imagurl/star2.gif><img src=$imagurl/star3.gif><img src=$imagurl/star4.gif><img src=$imagurl/star5.gif>";}
if($rusername eq $rdname){
$rqm=$rdqm;
$rmail=$rdmail;
$rhome=$rdhome;
$rcity=$rdcity;
}
}
($ip1,$ip2,$ip3,$ip4)=split(/\./,$rfrom);
$rfrom = "$ip1.$ip2.$ip3.*";
print <<EOF;
<a href=$cgiurl?menu=findtitle&id=$id&search=$rusername><img border=0 src=$imagurl/find.gif alt=搜索$rusername所有的帖子></a> <a target=_blank href=yhreg.cgi?menu=viewuser&username=$rusername><img border=0 src=$imagurl/pro.gif alt=查看$rusername的信息></a> <a href=quote.cgi?id=$id&replytime=$slttitle&bbs=$cgiurl&fff=$rthistime&yjhf=$rmail><img border=0 src=$imagurl/quote.gif alt=回复时引用此贴></a> <a href=quote.cgi?id=$id&menu=copy&replytime=$slttitle&fff=$rthistime><img border=0 src=$imagurl/copy.gif alt=复制此贴内容></a> <a href=quote.cgi?id=$id&menu=mail&replytime=$slttitle&fff=$rthistime><img border=0 src=$imagurl/mailto.gif alt=将本贴子内容通过email打包下载></a> <a target=_blank href=guest.cgi?action=add_form&guest=$rusername><img border=0 src=$imagurl/pm.gif alt=给$rusername留言></a>
EOF
if(($rmail ne "")){
print "<a href=mailto:$rmail><img border=0 src=$imagurl/mail.gif alt=给$rusername发信></a> ";
}
if(($rhome ne "")&&($rhome ne "http://")){
print "<a target=_blank href=$rhome><img border=0 src=$imagurl/home.gif alt=访问$rusername的主页></a> ";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -