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

📄 bbs.cgi

📁 BBS3000 sourceCode
💻 CGI
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
}
if (($rusername eq $username)||($userpsd eq $delpsd)||($userpsd eq $fbzdel)){
print "<a href=$cgiurl?menu=reditform&deltitle=$rthistime&id=$id&no=$re><img border=0 src=$imagurl/xg.gif alt=修改帖子></a>　";
}
if ($oicq ne ""){
print "<img border=0 src=$imagurl/oicq.gif alt=$rusername的OICQ号码：$oicq>　";
}
$onlined="<img border=0 src=$imagurl/offzx.gif alt=离线>";
open (PEO,"$filepath/data/people.cgi");
@lineszd=<PEO>;
close (PEO);
foreach $lineszd (@lineszd) {($rip,$r1,$r2,$r3,$r4,$rtimez,$rnamezd)=split(/,/,$lineszd);
if ($rnamezd eq $rusername){$onlined="<img border=0 src=$imagurl/onzx.gif alt=在线>";}
}
print <<EOF;
<a href=$cgiurl?menu=fabiao1&id=$id&replytime=$slttitle&retitles=$retitles><img border=0 src=$imagurl/hf.gif alt=回复　$retitles></a>　<img border=0 src=$imagurl/ip.gif alt=$rusername的IP地址：$rfrom>　<a href=$cgiurl?menu=delreply&deltitle=$rthistime&id=$id&no=$re><img border=0 src=$imagurl/del.gif alt=删除此帖子></a></td></tr><tr><td><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>$rcomment
EOF
if(($rqm ne "")){print "<br>——————————<br>$rqm";}
print <<EOF;
<td align=right valign=top>$onlined</td></tr><tr><td align=right valign=bottom><img src=$imagurl/system.gif alt="$ie$win"></td></td></tr></table></td></tr><tr bgcolor=#ffedc8><td 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;
</td></tr></table></center></div><br>
EOF
}}}
if ($rhasreply eq "0"){print "<br>";}print "管理选项: ";
if ( -X "$filepath/list/$id/$slttitle"){
print "<a href=quote.cgi?menu=lock&id=$id&replytime=$slttitle>打开主题</a>";
}else{
print "<a href=quote.cgi?menu=lock&id=$id&replytime=$slttitle>关闭主题</a>";
}
if ( -X "$filepath/list/$id/$slttitle"."b"){
print " | <a href=quote.cgi?menu=jing&id=$id&replytime=$slttitle>从精华区中移出</a>";
}else{
print " | <a href=quote.cgi?menu=jing&id=$id&replytime=$slttitle>添加到精华区</a>";
}
print " | <a href=$cgiurl?menu=deltitle&deltitle=$slttitle&id=$id>删除主题</a>";
print <<EOF;
<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>
</body></html>
EOF
exit;
}
##########
sub show1{
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=<TITLES>;
close(TITLES);
$ss=@hastitles;
$i=0;
foreach $m (@hastitles){
$i++;
$m=~ s/\n//g;
if($m ne ""){
($index)=split(/\t/,$m);
if($i eq $see){
$see1=$see+1;
$see2=$see-1;
if($see1>$ss){$see1=$ss;}
if($see2<1){$see2=1;}
open(TITLES,"$filepath/list/$id/$index");
@hastitles=<TITLES>;
close(TITLES);
foreach $m (@hastitles){
$m=~ s/\n//g;
if($m ne ""){
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee)=split(/\t/,$m);
}
}
$replytime=$rthistime;
$seachreply=$rhasreply;
$thistitle=$rtitles;
open(PSD,"$filepath/yhzl/$rusername.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq)=split(/\t/,$line);
($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.*";
&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>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="50%">　</td>
</tr>
</table>
<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=$index&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=$index&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>
<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=$index&bbs=$cgiurl&yjhf=$rmail><img border=0 src=$imagurl/quote.gif alt=回复时引用此贴></a>　<a href=quote.cgi?id=$id&menu=copy&replytime=$index><img border=0 src=$imagurl/copy.gif alt=复制此贴内容></a>　<a href=quote.cgi?id=$id&menu=mail&replytime=$index><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=$index&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>　
EOF
if (($userpsd eq $delpsd)||($userpsd eq $fbzdel)){
print "<a href=$cgiurl?menu=deltitle&deltitle=$index&id=$id><img border=0 src=$imagurl/del.gif alt=删除此帖子></a>";
}
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>

</td>
</tr>
</table>
</td>
</tr>
<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;
</td>
</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=$index&retitles=$rtitles&yjhf=$rmail><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=$see1"><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($index eq $rtime){
print <<EOF;
<div align="center">
<center>
<table width="85%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#5E9BF7" bordercolordark="#FFFFFF">
<tr bgcolor="#ffedc8">
<td >
EOF
if($retitles eq ""){
print "<img src=$imagurl/$remote.gif > -回复-　　　";
}else{
print "<img src=$imagurl/$remote.gif > $retitles　　　";
}
open(PSD,"$filepath/yhzl/$rusername.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq)=split(/\t/,$line);
($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=$index&bbs=$cgiurl&fff=$rthistime&yjhf=$rmail><img border=0 src=$imagurl/quote.gif alt=回复时引用此贴></a>　<a href=quote.cgi?id=$id&menu=copy&replytime=$index&fff=$rthistime><img border=0 src=$imagurl/copy.gif alt=复制此贴内容></a>　<a href=quote.cgi?id=$id&menu=mail&replytime=$index&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>　";
}
if (($rusername eq $username)||($userpsd eq $delpsd)||($userpsd eq $fbzdel)){
print "<a href=$cgiurl?menu=reditform&deltitle=$rthistime&id=$id&no=$re><img border=0 src=$imagurl/xg.gif alt=修改帖子></a>　";
}
if ($oicq ne ""){
print "<img border=0 src=$imagurl/oicq.gif alt=$rusername的OICQ号码：$oicq>　";
}
$onlined="<img border=0 src=$imagurl/offzx.gif alt=离线>";
open (PEO,"$filepath/data/people.cgi");
@lineszd=<PEO>;
close (PEO);
foreach $lineszd (@lineszd) {($rip,$r1,$r2,$r3,$r4,$rtimez,$rnamezd)=split(/,/,$lineszd);
if ($rnamezd eq $rusername){$onlined="<img border=0 src=$imagurl/onzx.gif alt=在线>";}
1234

⌨️ 快捷键说明

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