无忧启动论坛
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
[打印本页]
作者:
安达
时间:
2003-1-15 15:43
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
[这个贴子最后由安达在 2003/04/08 09:48am 第 1 次编辑]
下载 多功能启动工具集合光盘[最新版]
http://anda.vicp.net/LB/cgi-bin/topic.cgi?forum=1&topic=44&show=0
多功能启动工具集合光盘
要正确使用本光盘,请将您的计算机BIOS里的第一引导设为CDROM.
1.本光盘由ANDA制作.
2.所有启动盘都来自于网上搜集.
3.SOFTWARE中是ISO启动光盘制作常用工具集合.
4.为免费光盘,任何人可以分解.
5.制作N合1安装盘时,可将文件夹SOFTWARE和BOOTCD删除,以利用空间.
6.BOOTCD中为部分原版启动软盘光盘,制作启动和N合1软光盘的一些原始文件,详细的制作方法和教程.
7.SKIN中为DOS下启动菜单截图.
8.SIMPCHIN为系统安装文件夹,可以将WIN98,WIN2000(PRO,ADV_SRV,SERVER),
WINXP(PRO,HOME),WINNT(NTSRV,NTWKS)放入相应文件夹.当然要考虑空间.
9.Anda制作ISO启动盘的工具组合:EasyBoot+ActiveIso(Cdimage)+Autoplay menu studio.
10.杀毒2002-2003系列盘[CD:\BOOTCD\] 特别使用说明
请用WINIMAGE将*.IMG打开,在软驱插入软盘,制作为杀毒软盘,备用.
:em21: :em21:
作者:
安达
时间:
2003-1-18 09:08
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
用FLASHXP下.
作者:
ylpoplove
时间:
2003-1-18 12:19
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
我是用ie下载，如果失败就惨了：（
正在下：）
问我为什么不用flashxp？？？因为…………懒吖：）呵………，将鼠标移去开始菜单太远了：）哈……
作者:
优子
时间:
2003-1-18 15:18
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
谢谢
作者:
liyu
时间:
2003-1-18 19:36
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
OK,正在下.
作者:
tgmcx
时间:
2003-1-18 21:26
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
不错
作者:
ylpoplove
时间:
2003-1-19 18:31
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
电信
作者:
司徒
时间:
2003-1-23 22:07
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
请问那位大虾能放上一个多功能启动工具集合光盘？
谢谢```
作者:
weeee
时间:
2003-1-23 23:36
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
ok
作者:
福音小仔
时间:
2003-4-7 12:18
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
我是菜鸟，请问为什么我看到的是一堆符号？怎么不是软件之类的？
作者:
zch520
时间:
2003-4-7 12:22
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
打不开.
#!/usr/bin/perl
#############################################################
# LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
# 版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
# 制作人 : 山鹰糊 (Shining Hu)
# 花无缺 (Ifairy Han)
#
# 主页地址: http://www.CGIer.com/ CGI 编程者之家
# http://www.LeoBoard.com/ 雷傲论坛支持主页
# http://www.leoBBS.com/ 本论坛直通车
#
#############################################################
use Benchmark;
$TT0 = new Benchmark;
BEGIN {
$LBPATH = '.';
my $pgm = $0;
$pgm =~s/\\/\//g;
$pgm =~s/^.*\/([^\/]+)$/$1/g;
unless (-e $LBPATH.'/'.$pgm) {
foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
}
}
unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "code.cgi";
require "data/boardinfo.cgi";
require "data/membertitles.cgi";
require "data/styles.cgi";
require "lb.lib.pl";
require "visitforum.lib.pl";
$|++;
#################--- Begin the program ---###################
$thisprog = "topic.cgi";
srand;
$query = new LBCGI;
if ($COOKIE_USED eq 1) {$cookiepath ="";}
else {
$boardurltemp =$boardurl;
$boardurltemp =~ s/http\:\/\/(\S+?)\/(.*)/\/$2/;
$cookiepath = $boardurltemp;
$cookiepath =~ s/\/$//;
# $cookiepath =~ tr/A-Z/a-z/;
}
$jumpto = $query -> param('jumpto'); if ($jumpto) { print redirect(-location=>"$jumpto"); exit; }
$inforum = $query -> param('forum');
$intopic = $query -> param('topic');
&error("打开文件&老大，别乱黑我的程序呀！") if (($intopic !~ /^[0-9]+$/)||($inforum !~ /^[0-9]+$/));
$instart = $query -> param('start');
$inshow = $query -> param('show');
if (-e "${lbdir}data/style${inforum}.cgi") { require "${lbdir}data/style${inforum}.cgi"; }
if ((($forumimagead eq "1")&&($useimageadtopic eq "1"))||(($forumimagead1 eq "1")&&($useimageadtopic1 eq "1"))) {
require "${lbdir}imagead.cgi";
}
$inmembername = $query->cookie("amembernamecookie");
$inpassword = $query->cookie("apasswordcookie");
&error("普通错误&老大，别乱黑我的程序呀！") if (($inmembername =~ m/\//)||($inmembername =~ m/\\/)||($inmembername =~ m/\.\./));
$nodisp = $query->cookie("nodisp");
($nodispavatar, $nodispsign, $nodispphoto) = split(/\|/,$nodisp);
$treeview1 = $query -> cookie("treeview");
$treeview = $treeview1 if ($treeview1 ne "");
$treeview = "no" if ($treeview eq "");
$changemode = $query -> param('changemode');
$replynum = $query -> param('replynum');
if ($changemode ne "") { $treeview=($treeview eq "yes")?"no":"yes"; }
$screenmode = $query->cookie("screenmode");
$screenmode = 8 if ($screenmode eq "");
&ipbanned; #封杀一些 ip
$maxpoststr = "" if ($maxpoststr eq 0);
#&getforum($inforum);
if ((!$inmembername) or ($inmembername eq "客人")) { $inmembername = "客人"; $myrating= "-1"; $mymembercode="no"; }
else {
&getmember("$inmembername");
# &getmembernolock("$inmembername");
$mymembercode=$membercode;
$myrating=$rating;
&error("普通错误&密码与用户名不相符，请重新登录！") if ($inpassword ne $password);
&error("普通错误&用户没有登录或注册！") if ($userregistered eq "no");
}
$testentry = $query->cookie("forumsallowed$inforum");
&getoneforum("$inforum");
#&moderator("$inforum");
$myinmembmod = $inmembmod;
if (($allowedentry{$inforum} eq "yes")||(($testentry eq $forumpass)&&($testentry ne ""))||($membercode eq "ad")||($inmembmod eq "yes")||($membercode eq 'smo')) { $allowed = "yes"; } else { $allowed = "no"; }
&getlastvisit;
$forumlastvisit = $lastvisitinfo{$inforum};
$currenttime = time;
&setlastvisit("$inforum,$currenttime");
$addtimes = ($timedifferencevalue + $timezone)*3600;
$myrating = -6 if ($myrating eq "");
$cpudisp = 1 if (($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo"));
if (($privateforum eq "yes" && $allowed ne "yes")) { &error("进入私有论坛&对不起，您没有权限进入该私有论坛！"); }
if (($startnewthreads eq "cert")&&(($membercode ne "ad" && $membercode ne "smo" && $membercode ne "cmo" && $membercode ne "mo" && $membercode ne "rz")||($inmembername eq "客人"))&&($userincert eq "no")) { &error("进入论坛&你一般会员不允许进入此论坛！"); }
#&forumjump; #必须在 getforum 函数后
$treeviewcookie = cookie(-name => "treeview" , -value => "$treeview", -path => "$cookiepath/" , -expires => "+30d");
print header(-cookie=>[$treeviewcookie, $tempvisitcookie, $permvisitcookie], -charset=>gb2312);
if ($forumgraphic) {
if ($forumgraphic =~ /\.swf$/i) {$forumgraphic = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$forumgraphic quality=high width=$fgwidth height=$fgheight pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
else {$forumgraphic = qq~<a href=forums.cgi?forum=$inforum><img src=$imagesurl/myimages/$forumgraphic border=0></a>~};
} else {
if ($boardlogo =~ /\.swf$/i) {$forumgraphic = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$boardlogo quality=high width=$boardlogow height=$boardlogoh pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
else {$forumgraphic = qq~<a href=forums.cgi?forum=$inforum><img src=$imagesurl/myimages/$boardlogo border=0></a>~};
}
my $filetoopen = "$lbdir" . "forum$inforum/$intopic.thd.cgi";
#&winlock($filetoopen) if ($OS_USED eq "Nt");
if (open(FILE, "$filetoopen")) {
# flock(FILE, 1) if ($OS_USED eq "Unix");
@threads = <FILE>;
close(FILE);
# &winunlock($filetoopen) if ($OS_USED eq "Nt");
$numberofitems = @threads;
}
else {
# &winunlock($filetoopen) if ($OS_USED eq "Nt");
&error("打开主题&这个主题不存在！可能已经被删除！");
}
if ($mymembercode eq "ad" or $mymembercode eq "smo" or $myinmembmod eq "yes") {
$viewhide = 1;
}
else {
$viewhide = 0;
if ($hidejf eq "yes" ) {
my @viewhide=grep(/^$inmembername\t/i,@threads);
$viewhide=@viewhide;
$viewhide=1 if($viewhide >= 1);
}
}
$StartCheck=$numberofposts+$numberofreplys;
my $filetoopen = "$lbdir" . "boarddata/list$inforum.cgi";
my $filetoopens = &lockfilename($filetoopen);
if (!(-e "$filetoopens.lck")) {#0
&winlock($filetoopen) if (($OS_USED eq "Unix")||($OS_USED eq "Nt"));
open(FILE, "$filetoopen");
flock(FILE, 1) if ($OS_USED eq "Unix");
my @allthreads = <FILE>;
close(FILE);
&winunlock($filetoopen) if (($OS_USED eq "Unix")||($OS_USED eq "Nt"));
$totalthreadcount = $#allthreads;
if ($totalthreadcount >= 0) {#a
my $count = 0;
@allthreadtemp = "";
my $keepno = "";
$nextno = "";
$backno = "";
foreach $line (@allthreads) { #1
chomp $line;
($tempno, $trash) = split(/\t/, $line);
if (($intopic eq $tempno)&&($keepno eq "")) { #2
($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $posticon, $posttemp) = split(/\t/,$line);
$keepno = $tempno;
if ($count eq 0) { $backno = ""; } else { ($backno, my $trash) = split(/\t/, $allthreads[$count-1]); }
if ($count eq $totalthreadcount) { $nextno = ""; } else { ($nextno, my $trash) = split(/\t/, $allthreads[$count+1]); }
$threadviews++;
if (($threadposts eq "")||($threadposts > 1000000)) { $threadposts = $numberofitems - 1; }
if (($topictitle eq "")||($startedby eq "")||($startedpostdate eq "")) { #3
my $postfirst = $threads[0];
$postfirst =~ s/[\a\f\n\e\0\r]//isg;
my $postlast = $threads[-1];
$postlast =~ s/[\a\f\n\e\0\r]//isg;
($startedby, $topictitle, my $no, $no, $no, $startedpostdate, $no, $posticon) = split(/\t/,$postfirst);
($lastposter, $no, $no, $no, $no, $lastpostdate, $no, $posticon1) = split(/\t/,$postlast);
chomp $posticon;
if ($posticon =~/<br>/i) { #4
$posticon=~s/<br>/\t/ig;
my @temppoll = split(/\t/, $posticon);
if ($#temppoll >= 1) { $posticon = "<br>"; } else { $posticon = ""; }
}
else { $posticon = $posticon1 if ($sortposticonshow eq "yes"); } #4
if ($threadposts eq 0) { $lastpostdate = $startedpostdate; $lastposter = ""; }
} #3
$threadstate = "poll" if (($posticon =~ m/<br>/i)&&($threadstate ne "poll")&&($threadstate ne "pollclosed"));
if ($threadstate eq "") { $threadstate = "open"; }
$threadviews = ($threadposts+1) * 8 if ($threadviews < $threadposts);
$posticon = "<br>" if ($posticon =~/<br>/i);
$topictitle =~ s/^＊＃！＆＊//;
$linetokeep = "$intopic\t$topictitle\t$topicdescription\t$threadstate\t$threadposts\t$threadviews\t$startedby\t$startedpostdate\t$lastposter\t$lastpostdate\t$posticon\t$posttemp\t";
if ($count < 250) {
push (@allthreadtemp, $linetokeep);
}
else {
push (@allthreadtemp, "$intopic\t$topictitle\t\t$threadstate\t\t$threadviews\t$startedby\t\t\t$lastpostdate\t");
}
} #2
else {
my ($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $posticon, $posttemp) = split(/\t/,$line);
if ($count < 250) {
push (@allthreadtemp, $line);
}
else {
(my $intopic, my $trash) = split(/\t/, $line);
push (@allthreadtemp, "$intopic\t$topictitle\t\t$threadstate\t\t$threadviews\t$startedby\t\t\t$lastpostdate\t");
}
}
$count++;
} #1
if (!(-e "$filetoopens.lck")) {
&winlock($filetoopen) if (($OS_USED eq "Unix")||($OS_USED eq "Nt"));
if (open(FILE, ">$filetoopen")) {
flock(FILE, 2) if ($OS_USED eq "Unix");
foreach (@allthreadtemp) {
chomp $_;
$_ =~ s/[\a\f\n\e\0\r]//isg;
print FILE "$_\n" if ($_ ne "");
}
close(FILE);
}
&winunlock($filetoopen) if (($OS_USED eq "Unix")||($OS_USED eq "Nt"));
if ((int(rand(3)) eq 2)||($threadviews < 30)||($#allthreadtemp < 6)) {
if (open(PLFILE, ">${lbdir}forum$inforum/$intopic.pl")) {
print PLFILE $linetokeep;
close(PLFILE);
}
}
}
undef @allthreadtemp;
undef $linetokeep;
}#a
}#0
if ($nextno eq "") { $nextlink=""; } else { $nextlink = qq~ <a href=topic.cgi?forum=$inforum&topic=$nextno&show=$inshow><img src=$imagesurl/images/nextthread.gif border=0 alt=浏览下一篇主题 width=52 height=12></a>~; }
if ($backno eq "") { $backlink=""; } else { $backlink = qq~<a href=topic.cgi?forum=$inforum&topic=$backno&show=$inshow><img src=$imagesurl/images/prethread.gif border=0 alt=浏览上一篇主题 width=52 height=12></a>~; }
$nexttopiclinks .= "$backlink" if $backlink;
if ($treeview eq "yes") { $viewstyle=" <a href=topic.cgi?forum=$inforum&topic=$intopic&changemode=1><img src=$imagesurl/images/flatview.gif width=40 height=12 border=0 alt=平板显示贴子></a>"; }
else { $viewstyle=" <a href=topic.cgi?forum=$inforum&topic=$intopic&changemode=1><img src=$imagesurl/images/treeview.gif width=40 height=12 border=0 alt=树形显示贴子></a>"; }
$nexttopiclinks .= qq~ <a href="javascript:this.location.reload()"><img src=$imagesurl/images/refresh.gif border=0 alt=刷新本主题 width=40 height=12></a> $viewstyle~;
$nexttopiclinks .= "$nextlink" if $nextlink;
if ($postopen eq "no") { $newthreadbutton = ""; } else { $newthreadbutton = qq~<a href=post.cgi?action=new&forum=$inforum><img src=$imagesurl/images/$newthreadlogo border=0 alt=发表一个新主题 width=99 height=25></a> ~; }
if ($pollopen eq "no") { $newpollbutton = ""; } else { $newpollbutton = qq~<a href=poll.cgi?action=new&forum=$inforum><img src=$imagesurl/images/$newpolllogo border=0 alt=开启一个新投票 width=99 height=25></a>~; }
if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")) {
$newreplybutton = qq~<a href=post.cgi?action=reply&forum=$inforum&topic=$intopic><img src=$imagesurl/images/$newreplylogo border=0 alt=回复贴子 width=99 height=25></a> ~;
$replynow = qq~<a href=post.cgi?action=reply&forum=$inforum&topic=$intopic><img src=$imagesurl/images/replynow.gif border=0 alt=回复贴子 width=16>回复</a> ~;
}
else {
$replynow=""; $newreplybutton="";
}
&title;
$numberofpages = $numberofitems / 12;
if ($numberofitems > 12) {
$showmore = "yes";
if ((!$instart) or ($instart < 0)) { $instart = 0; }
if ($instart > 0) { $startarray = $instart; } else { $startarray = 0; }
$endarray = $instart + 12 - 1;
if ($endarray < ($numberofitems - 1)) { $more = "yes"; }
if (($endarray > (12 - 1)) && ($more ne "yes")) { $endarray = $numberofitems - 1; }
}
else {
$showmore = "no";
$startarray = 0;
$pages = qq~<font color=$menufontcolor>该主题只有一页</font>~;
$endarray = $numberofitems - 1;
}
if ($showmore eq "yes") {
if (12 < $numberofitems) {
(my $integer, my $decimal) = split(/\./,$numberofpages);
if ($decimal > 0) { $numberofpages = $integer + 1; }
#############
$mypages=$numberofpages;
#分页
if($replynum eq "last" && $treeview ne "yes"){
$instart=($mypages-1)*12;
$startarray=$instart;
$endarray = $numberofitems - 1;
}
$intshow=$instart/84;
($intshow,$mydecimal) = split(/\./,$intshow);
$intshow ++;
$preshow = ($intshow-1)*84-12;
$nextshow = $intshow*84;
$pages=qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=$preshow&show=$inshow class=hb>←</a> ~ if ($intshow > 1);
if ($numberofpages > ($intshow*7)){
$numberofpages = $intshow*7;
$isnext = qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=$nextshow&show=$inshow class=hb>→</a> ~;
}
$pagestart = ($intshow-1)*84;
$counter = ($intshow-1)*7;
while ($numberofpages > $counter) {
$counter++;
if ($instart ne $pagestart) { $pages .= qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=$pagestart&show=$inshow class=hb>$counter</a> ~; }
else { $pages .= qq~<font color=$fonthighlight><b>$counter</b></font> ~;
if ($counter ne "1") {
$pagenow = $counter - 1;
$pageup = $pagestart - 12;
$showup = qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=$pageup title=第$pagenow页><font face=webdings >7</font></a> ~;
} else {$showup = qq~<font color=$fonthighlight face=webdings >7</font>~;}
if ($mypages > $counter) {
$pagenow = $counter + 1;
$pagedown = $pagestart + 12;
$showdown = qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=$pagedown title=第$pagenow页><font face=webdings >8</font></a> ~;
} else { $showdown = qq~<font color=$fonthighlight face=webdings >8</font>~;}
}
$pagestart = $pagestart + 12;
}
$pages .= $isnext;
#分页end
}
if ($instart ne "0") {
$beginpage=qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=0 title="首 页"><font face=webdings>9</font></a> ~;
} else {
$beginpage=qq~<font color=$fonthighlight face=webdings>9</font>~;
}
$showend=($mypages-1)*12;
if ($instart ne $showend) {
$endpage=qq~<a href=$thisprog?forum=$inforum&topic=$intopic&start=$showend title="尾 页"><font face=webdings>:</font></a> ~;
} else {
$endpage=qq~<font color=$fonthighlight face=webdings>:</font>~;
}
$pages = qq~<font color=$menufontcolor><b>本主题共有 <font color=$fonthighlight>$mypages</font> 页</b> $beginpage $showup [ $pages ] $showdown $endpage~;
}
$printpageicon = qq~ <a href=printpage.cgi?forum=$inforum&topic=$intopic><img src=$imagesurl/images/printpage.gif border=0 width=16 alt=显示可打印的版本></a> ~;
$savefile = qq~ <a href=# onclick="javascript:WebBrowser.ExecWB(4,1)"><img src=$imagesurl/images/saveas.gif border=0 width=16 alt="保存该页为文件" align=absmiddle></a><object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object> ~;
$reporticon = qq~ <a href=report.cgi?forum=$inforum&topic=$intopic><img src=$imagesurl/images/report.gif border=0 width=16 height=15 alt=本贴有问题，发送短消息报告给版主></a> ~;
$favicon = qq~ <a href=fav.cgi?action=add&forum=$inforum&topic=$intopic><img src=$imagesurl/images/fav.gif border=0 width=13 height=15 alt=加入个人收藏&关注本贴></a> ~;
$pagpageicon = qq~ <img src=$imagesurl/images/pag.gif border=0 width=16 alt=把本贴打包邮递 style="cursor:hand" onClick="javascript:openScript('pag.cgi?forum=$inforum&topic=$intopic',500,400)"> ~ if ($emailfunctions eq "on");
$topictitletemp = $topictitle;
$topictitletemp =~s/\'/\`/isg;
$bookmarkpage = qq~ <span style="CURSOR: hand" onClick="window.external.AddFavorite('$boardurl/topic.cgi?forum=$inforum&topic=$intopic', ' $boardname - $topictitletemp')"><IMG SRC=$imagesurl/images/fav_add1.gif BORDER=0 width=15 height=15 alt=把本贴加入IE收藏夹></span> ~;
if (($privateforum ne "yes")&&($emailfunctions eq "on")) { $sendtofriendicon = qq~ <a href=lbfriend.cgi?forum=$inforum&topic=$intopic><img src=$imagesurl/images/emailtofriend.gif border=0 width=16 alt=发送本页面给朋友></a> ~; }
$replynum=0 if ($replynum eq "");
if ($replynum > $numberofitems-1) { $replynum = $numberofitems - 1;};
if($replynum eq "last" && $treeview ne "yes"){
$movetobottom=qq(document.location="#bottom";);
}
if ($treeview eq "yes") {
$replynum = $instart if (($instart ne "")&&($instart ne "0")&&($replynum ne "last"));
$replynum = $numberofitems - 1 if ($replynum eq "last");
$startarray = $replynum;
$endarray = $replynum;
}
$output .= qq~<table cellpadding=0 cellspacing=0 width=$tablewidth align=center><tr><td width=30% rowspan=2 valign=top>$forumgraphic</td><td align=top>~;
if ((-e "${lbdir}boarddata/jinghua$inforum.cgi")&&($usejhpoint eq "yes")) {
open(FILE, "${lbdir}boarddata/jinghua$inforum.cgi");
my @jhdatas = <FILE>;
close(FILE);
$jhdata = join("\_",@jhdatas);
$jhdata = "\_$jhdata\_";
$jhdata =~ s/\W//isg;
if($jhdata =~ /\_$topicid\_/) {
$jhimage = qq~ <img src="$imagesurl/images/$new_JH" align=absmiddle alt=本帖为精华帖子> ~;
}
}
(my $trash, $topictitle) = split(/\t/,$threads[0]);
$topictitletemp = $topictitle;
$topictitletemp =~ s/^＊＃！＆＊//;
$topictitletemp =~s/ \(无内容\)$//;
if (($dofilter eq "no")||($dofilter eq "all")) { $topictitletemp = &postwordfilter("$topictitletemp"); }
my $filetoopens = "$lbdir" . "data/onlinedata.cgi";
$filetoopens = &lockfilename($filetoopens);
if (!(-e "$filetoopens.lck")) {
if ($privateforum ne "yes") { &whosonline("$inmembername\t$forumname\tnone\t浏览<a href=\"topic.cgi?forum=$inforum&topic=$intopic\"><b>$topictitletemp</b></a>\t"); }
else { &whosonline("$inmembername\t$forumname(密)\tnone\t浏览保密贴子\t"); }
}
my $topictitletempshow = &lbhz($topictitletemp,34);
if($category=~/childforum-[0-9]+/){
$tempforumno=$category;
$tempforumno=~s/childforum-//;
$filetoopen = "${lbdir}forum$tempforumno/foruminfo.cgi";
open(FILE, "$filetoopen");
$forums = <FILE>;
close(FILE);
(undef, undef, undef, $tempforumname, undef) = split(/\t/,$forums);
$addlink=qq~<br><img src=$imagesurl/images/bar.gif width=15 height=15><img src=$imagesurl/images/closedfold.gif width=14 height=14> <a href="forums.cgi?forum=$tempforumno">$tempforumname</a>~;
$addspace=" ";
}
if ($indexforum ne "no"){
$output .= qq~<font color=$fontcolormisc><img src=$imagesurl/images/closedfold.gif width=14> <a href=leoboard.cgi>$boardname</a>$addlink<br>$addspace
<img src=$imagesurl/images/bar.gif width=15 height=15><img src=$imagesurl/images/closedfold.gif width=14 height=14> <a href=forums.cgi?forum=$inforum>$forumname</a> [<a href=forums.cgi?show=$inshow&forum=$inforum>返回</a>]<br>
$addspace <img src=$imagesurl/images/bar.gif width=15 height=15><img src=$imagesurl/images/openfold.gif width=14 height=14> $topictitletempshow $jhimage
~;
} else {
$output .= qq~<font color=$fontcolormisc><img src=$imagesurl/images/closedfold.gif> <a href=forums.cgi?forum=$inforum>$forumname</a><br>
<img src=$imagesurl/images/bar.gif width=15 height=15><img src=$imagesurl/images/openfold.gif width=14 height=14> $topictitletempshow
~;
}
$insidead = "" if (($forumimagead ne "1")&&($useimageadtopic ne "1"));
$insidead1 = "" if (($forumimagead1 ne "1")&&($useimageadtopic1 ne "1"));
$threadviewstemp = "◆您是本帖第 <b>$threadviews</b> 个阅读者◆" if ($threadviews > 0);
$output .= qq~<script language="JavaScript" type="text/javascript">
var setpostno=Array();
var start=($startarray==0)?$startarray+2:$startarray+1;
var end=$endarray+2;
start=("$treeview" == "yes")?2:start;
end=("$treeview" == "yes")?$numberofitems+1:end;
function DelReply(){
DReply.postno.value="";
for(i=start;i<end;i++){
var tempval=eval("document.all.postno"+i+".checked");
if(tempval == true){
DReply.postno.value+=i+" ";
}}
DReply.submit();
}
</script>
~ if(($mymembercode eq "ad")||($mymembercode eq 'smo')||($mymembercode eq 'cmo')||($myinmembmod eq "yes"));
$output .= qq~$insidead$insidead1
<a name="top"></a>
</td>$uservisitdata</tr></table><br>
<script language="JavaScript" type="text/javascript">
$movetobottom
</script>
<table cellpadding=1 cellspacing=0 width=$tablewidth align=center>
<tr><td align=center width=1></td>
<td width=322 valign=bottom>$newthreadbutton$newreplybutton$newpollbutton</td>
<td align=right valign=bottom width=* nowarp><font color=$forumfontcolor>$threadviewstemp $nexttopiclinks</td><td align=center width=2></td></tr></table>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td height=1></td></tr></table>
<table cellpadding=0 cellspacing=0 width=$tablewidth align=center><tr><td bgcolor=$tablebordercolor width=1 height=24><img src=$imagesurl/images/none.gif width=1></td><td bgcolor=$titlecolor colspan=2>
<table cellpadding=0 cellspacing=1 width=100%><tr><td bgcolor=$titlecolor><font color=$titlefontcolor> <b>* 贴子主题</B>： $topictitletemp </font></td>
<td bgcolor=$titlecolor align=right>$savefile$reporticon$favicon$printpageicon$pagpageicon$bookmarkpage$sendtofriendicon </td></tr></table></td><td bgcolor=$tablebordercolor width=1 height=24></td></tr></table>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td height=1></td></tr></table>
~;
opendir (USRDIR, "${imagesdir}usr/$inforum");
my @usruploaddata = readdir(USRDIR);
closedir (USRDIR);
my @usruploaddata = grep(/^$inforum\_$intopic/,@usruploaddata);
my @usruploaddatareply = grep(/^$inforum\_$intopic\_/,@usruploaddata);
$usruploaddatareply = @usruploaddatareply;
$editpostnumber = $startarray + 1;
$postcountnumber = 0;
$endarraytemp = $endarray + 1;
$rn=$startarray;
$postcopyright = "<font color=$fonthighlight>$postcopyright</font><br>" if ($postcopyright ne "");
$sxall = "子鼠丑牛寅虎卯兔辰龙巳蛇午马未羊申猴酉鸡戌狗亥猪";
$xzall = "白羊金牛双子巨蟹狮子处女天秤天蝎射手魔羯水瓶双鱼";
foreach (@threads[$startarray .. $endarray]) {
chomp $_;
# next if ($_ eq "");
my $addmefile =0;
if ($rn>0) {
if ($usruploaddatareply > 0) {
$rrn = $rn;
my @usruploaddata1 = grep(/^$inforum\_$intopic\_$rrn\./,@usruploaddatareply);
if ($#usruploaddata1 >= 0) {
my $usruploadfile = $usruploaddata1[0]; chomp $usruploadfile;
($up_name, $up_ext) = split(/\./,$usruploadfile);
$up_ext =~ tr/A-Z/a-z/;
$addmefile =1;
$usruploaddatareply --;
}
}
}
else {
my @usruploaddata2 = grep(/^$inforum\_$intopic\./,@usruploaddata);
if ($#usruploaddata2 >= 0) {
my $usruploadfile = $usruploaddata2[0]; chomp $usruploadfile;
($up_name, $up_ext) = split(/\./,$usruploadfile);
$up_ext =~ tr/A-Z/a-z/;
$addmefile =1;
}
}
$rn = $rn + 1;
if ($addmefile == 1) {
@fileinfo = stat("${imagesdir}usr/$inforum/$up_name.$up_ext");
$filetype = "unknow";
$filetype = $up_ext if (-e "${imagesdir}icon/$up_ext.gif");
if (($up_ext eq "gif")||($up_ext eq "jpg")||($up_ext eq "png")||($up_ext eq "bmp")){
if (($nodispphoto eq 'yes')||($arrawpostpic eq 'off')) {
$addme=qq(<a href=$imagesurl/usr/$inforum/$up_name.$up_ext target=_blank><img src=$imagesurl/icon/$filetype.gif border=0 width=16></a> <a href=$imagesurl/usr/$inforum/$up_name.$up_ext target=_blank>点击显示此主题相关图片</a><br><br>);
} else{
$addme = qq(<img src=$imagesurl/icon/$filetype.gif border=0 width=16> 此主题相关图片如下：<br><a href=$imagesurl/usr/$inforum/$up_name.$up_ext target=_blank><img src=$imagesurl/usr/$inforum/$up_name.$up_ext border=0 alt=按此在新窗口浏览图片 onload="javascript:if(this.width>screen.width-333)this.width=screen.width-333"></a><br><br>);
}
}
elsif ($up_ext eq "swf") {
if ($arrawpostflash eq "on") {
$addme = qq(<img src=$imagesurl/icon/$filetype.gif border=0 width=16> 该主题有一个 $up_ext 格式 Flash 动画 (共 $fileinfo[7] 字节)<br><br><PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/usr/$inforum/$up_name.$up_ext quality=high width=410 height=280 pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed><br> <img src=$imagesurl/images/fav.gif width=16> <a href=$imagesurl/usr/$inforum/$up_name.$up_ext target=_blank>全屏观看</a> (按右键下载)<br><br>)
} else {
$addme=qq(<a href=$imagesurl/usr/$inforum/$up_name.$up_ext target=_blank><img src=$imagesurl/icon/$filetype.gif border=0 width=16 height=16>点击欣赏 Flash 动画</a>);
}
} else {
$addme = qq(<font color=$fonthighlight>相关附件</font>：<a href=$imagesurl/usr/$inforum/$up_name.$up_ext target=_blank><img src=$imagesurl/icon/$filetype.gif border=0 width=16 alt="该主题有一个“$filetype”类型附件，点击下载"></a> (共 $fileinfo[7] 字节)<br><br>);
}
} else { $addme = ""; }
####################################################################3
($membername, $topictitle, $postipaddresstemp, $showemoticons, $showsignature, $postdate, $post, $posticon) = split(/\t/,$_);
# next if ($membername eq "");
$topictitle =~ s/^＊＃！＆＊//;
($postipaddress,$truepostipaddress) = split(/\=/,$postipaddresstemp);
if ($truepostipaddress eq "") {
$truepostipaddress = $postipaddress;
$proxyip = 1;
}
else { $proxyip = 0; }
my $membernametemp = "\_$membername\_";
if ($onlineuserlist =~ /$membernametemp/i) { $onlineinfo = "该用户目前在线";$onlinepic="online1.gif"; } else { $onlineinfo = "该用户目前不在线";$onlinepic="offline1.gif"; }
if (($mymembercode eq "ad")&&($onlineuserlisthidden =~ /$membernametemp/i)) { $onlineinfo = "该用户目前处于隐身状态";$onlinepic="onlinehidden.gif"; }
$online = qq~<IMG SRC=$imagesurl/images/$onlinepic width=15 alt=$onlineinfo align=absmiddle>~;
$postdate = &dateformat($postdate+$addtimes);
$mynodispsign=$nodispsign;
&getmembernolock("$membername");
$membercode = "no" if ($userregistered eq "no");
my $tempinmembername = "\,$membername\,";
if ($forummodnamestemp =~ /$tempinmembername/i) { $inmembmod = "yes"; } else { $inmembmod = "no"; }
if ($catemodnamestemp =~ /$tempinmembername/i) { $inmembmod = "yes"; }
$mynodispsign="no" if ($membercode eq 'ad' || $membercode eq 'smo'|| $inmembmod eq "yes");
if ($joineddate) { $joineddate = &shortdate($joineddate+$addtimes); } else { $joineddate = "未知"; }
$numberofposts += $numberofreplys;
if (!$numberofposts) { $numberofposts = 0; }
if ($post =~m/\[hidepoll\]/isg) { $PollHidden='yes'; } else { $PollHidden='no'; }
$post =~ s/\[hidepoll\]//isg;
if ($count eq 1) { $postbackcolor = "$postcolorone"; $postfontcolor = "$postfontcolorone"; $count++; } else { $postbackcolor = "$postcolortwo"; $postfontcolor = "$postfontcolortwo"; $count = 1; }
if ((($post =~ /#Moderation Mode/i) and ($membercode eq 'mo' || $membercode eq 'ad' || $membercode eq 'smo'))||($htmlstate eq 'on')) {
$post =~ s/#Moderation Mode/***** 版主模式 *****\<BR\>/g;
$post =~ s/</</g; $post =~ s/>/>/g; $post =~ s/"/\"/g;
}
else { $post =~ s/style/\&\#115\;tyle/isg; }
if (($emoticons eq 'on') and ($showemoticons eq 'yes')) {
$post = &doemoticons("$post");
$post = &smilecode("$post");
}
if ($idmbcodestate eq 'on') {
$post = &lbcode("$post");
if ($post =~/<blockquote><font face=$font>代码/isg){
$post =~ s/\&\;/\&/ig ;
$post =~ s/\<\;br\>\;/<br>/ig;
}
}
$post = "$post</td></tr></table>";
if ($membercode eq "masked") {
$addme = "";
$signature ="";
$post = qq(<br>------------------------<br><font color=$posternamecolor>此用户的发言已经被屏蔽！<br>如有疑问，请联系坛主！</font><br>------------------------</td></tr></table><br>);
}
if (($signature) and ($showsignature eq 'yes') and ($nodispsign eq "no"||$mynodispsign eq "no") and ($posticon !~/<br>/i) and ($userregistered ne "no")) {
if ($signaturehtml) {$signature = $signaturehtml ;}
else { $signature = &signlbcode($signatureorigin) if ($idmbcodestate eq 'on'); }
if ($signature ne "") { $post = qq($post<table width=100% cellpadding=0 cellspacing=0 style="TABLE-LAYOUT: fixed"><tr><td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word;"><br><br>$postcopyright<img src=$imagesurl/images/none.gif width=1 height=3><BR><img src=$imagesurl/images/signature.gif height=12><br><img src=$imagesurl/images/none.gif width=1 height=5><BR>$signature</td></tr></table>); }
else { $post = qq($post<table width=100% cellpadding=0 cellspacing=0 style="TABLE-LAYOUT: fixed"><tr><td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word;"><BR><BR>$postcopyright<BR></td></tr></table>) if (($post ne "\n</td></tr></table>")&&($posticon !~/<br>/i)); }
}
else {$post = qq($post<table width=100% cellpadding=0 cellspacing=0><tr><td><BR><BR>$postcopyright<BR></td></tr></table>) if (($post ne "\n</td></tr></table>")&&($posticon !~/<br>/i));}
if ($numberofposts >= $mpostmarkmax) { $mtitle = $mtitlemax; $membergraphic = $mgraphicmax; }
elsif ($numberofposts >= $mpostmark19) { $mtitle = $mtitle19; $membergraphic = $mgraphic19; }
elsif ($numberofposts >= $mpostmark18) { $mtitle = $mtitle18; $membergraphic = $mgraphic18; }
elsif ($numberofposts >= $mpostmark17) { $mtitle = $mtitle17; $membergraphic = $mgraphic17; }
elsif ($numberofposts >= $mpostmark16) { $mtitle = $mtitle16; $membergraphic = $mgraphic16; }
elsif ($numberofposts >= $mpostmark15) { $mtitle = $mtitle15; $membergraphic = $mgraphic15; }
elsif ($numberofposts >= $mpostmark14) { $mtitle = $mtitle14; $membergraphic = $mgraphic14; }
elsif ($numberofposts >= $mpostmark13) { $mtitle = $mtitle13; $membergraphic = $mgraphic13; }
elsif ($numberofposts >= $mpostmark12) { $mtitle = $mtitle12; $membergraphic = $mgraphic12; }
elsif ($numberofposts >= $mpostmark11) { $mtitle = $mtitle11; $membergraphic = $mgraphic11; }
elsif ($numberofposts >= $mpostmark10) { $mtitle = $mtitle10; $membergraphic = $mgraphic10; }
elsif ($numberofposts >= $mpostmark9) { $mtitle = $mtitle9; $membergraphic = $mgraphic9; }
elsif ($numberofposts >= $mpostmark8) { $mtitle = $mtitle8; $membergraphic = $mgraphic8; }
elsif ($numberofposts >= $mpostmark7) { $mtitle = $mtitle7; $membergraphic = $mgraphic7; }
elsif ($numberofposts >= $mpostmark6) { $mtitle = $mtitle6; $membergraphic = $mgraphic6; }
elsif ($numberofposts >= $mpostmark5) { $mtitle = $mtitle5; $membergraphic = $mgraphic5; }
elsif ($numberofposts >= $mpostmark4) { $mtitle = $mtitle4; $membergraphic = $mgraphic4; }
elsif ($numberofposts >= $mpostmark3) { $mtitle = $mtitle3; $membergraphic = $mgraphic3; }
elsif ($numberofposts >= $mpostmark2) { $mtitle = $mtitle2; $membergraphic = $mgraphic2; }
elsif ($numberofposts >= $mpostmark1) { $mtitle = $mtitle1; $membergraphic = $mgraphic1; }
else { $mtitle = $mtitle0; $membergraphic = ""; } #显示默认等级
if ($membergraphic) { $membergraphic = "<img src=$imagesurl/images/$membergraphic width=100 border=0>"; }
if ($avatars eq "on") {
if (($personalavatar)&&($personalwidth)&&($personalheight)) { #自定义头像存在
$personalavatar =~ s/\$imagesurl/${imagesurl}/o;
if (($personalavatar =~ /\.swf$/i)&&($flashavatar eq "yes")) {
$personalavatar=uri_escape($personalavatar) if ($uri_escape ne "no");
$useravatar = qq(<br> <OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" WIDTH=$personalwidth HEIGHT=$personalheight><PARAM NAME=MOVIE VALUE=$personalavatar><PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><EMBED SRC=$personalavatar WIDTH=$personalwidth HEIGHT=$personalheight PLAY=TRUE LOOP=TRUE QUALITY=HIGH></EMBED></OBJECT>);
}
else {
$personalavatar=uri_escape($personalavatar) if ($uri_escape ne "no");
$useravatar = qq(<br> <img src=$personalavatar border=0 width=$personalwidth height=$personalheight>);
}
}
elsif (($useravatar ne "noavatar") && ($useravatar)) {
$useravatar=uri_escape($useravatar) if ($uri_escape ne "no");
$useravatar = qq(<br> <img src=$imagesurl/avatars/$useravatar.gif>);
}
else { $useravatar=""; }
}
$memberfilename = $membername;
$memberfilename =~ y/ /_/;
$memberfilename =~ tr/A-Z/a-z/;
if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")) {
$replygraphic = qq~<a href=post.cgi?action=replyquote&forum=$inforum&topic=$intopic&postno=$editpostnumber title=引用回复这个贴子><img src=$imagesurl/images/reply.gif border=0 width=16 align=absmiddle>引用</a> ~;
}
else { $replygraphic="";}
$tempname = $uri_escape eq "no" ? $memberfilename : uri_escape($memberfilename);
$copygfx = qq~<a href=post.cgi?action=copy1&forum=$inforum&topic=$intopic&postno=$editpostnumber title=复制这个贴子><img src=$imagesurl/images/copy.gif border=0 width=16 align=absmiddle>复制</a> ~;
$pvmsggraphic = qq~<span style="cursor:hand" onClick="javascript:openScript('messanger.cgi?action=new&touser=$tempname',420,320)" title="发送一个短消息给$membername"><img src=$imagesurl/images/message.gif border=0 width=16 align=absmiddle>消息</span> ~;
$searchgraphic = qq~<a href="search.cgi?action=startsearch&TYPE_OF_SEARCH=username_search&NAME_SEARCH=topictitle_search&FORUMS_TO_SEARCH=$inforum&SEARCH_STRING=$tempname" target=_blank title="搜索$membername在本分论坛的全部贴子"><img src=$imagesurl/images/find.gif border=0 width=16 align=absmiddle>搜索</a> ~;
$profilegraphic = qq~<a href=profile.cgi?action=show&member=$tempname title="查看$membername的个人资料"><img src=$imagesurl/images/profile.gif border=0 width=16 align=absmiddle>查看</a> ~;
$friendgraphic = qq~<span style="cursor:hand" onClick="javascript:openScript('friendlist.cgi?action=adduser&adduser=$tempname',420,320)" title="加$membername为我的好友"><img src=$imagesurl/images/friend.gif border=0 width=16 align=absmiddle>好友</span> ~;
if (($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")||(($usereditpost ne "no")&&(lc($inmembername) eq lc($membername)))) { $editgraphic = qq~<a href=editpost.cgi?action=edit&forum=$inforum&topic=$intopic&postno=$editpostnumber title=编辑这个贴子><img src=$imagesurl/images/edit.gif border=0 width=16 align=absmiddle>编辑</a>~; } else { $editgraphic =""; }
if (($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")||(($arrowuserdel ne "off")&&(lc($inmembername) eq lc($membername)))) { $delgraphic = qq~<a href=delpost.cgi?action=directdel&forum=$inforum&topic=$intopic&postno=$editpostnumber title=删除这个回复><img src=$imagesurl/images/del.gif border=0 width=16>删除</a>~; } else { $delgraphic = ""; }
$delgraphic .=qq(<input type="checkbox" name="postno$editpostnumber" value="yes">) if((($mymembercode eq "ad")||($mymembercode eq 'smo')||($mymembercode eq 'cmo')||($myinmembmod eq "yes"))&&($treeview ne "yes"));
if ($showemail eq "yes") { $emailgraphic = "<a href=mailto:$emailaddress title=电子邮件地址><img src=$imagesurl/images/email.gif border=0 width=16 align=absmiddle>邮件</a> "; }
elsif ($showemail eq "msn") { $emailgraphic = "<a href=mailto:$emailaddress title=\"MSN 地址\"><img src=$imagesurl/images/msn.gif border=0 width=16 align=absmiddle>MSN</a> "; }
else { $emailgraphic=""; }
$homepage =~ s/http\:\/\///sg;
if ($homepage) { $homepagegraphic = qq~<a href=http://$homepage target=_blank title="访问 $membername 的主页"><img src=$imagesurl/images/homepage.gif border=0 width=16 align=absmiddle>主页</a> ~; }
else { $homepagegraphic=""; }
if (($oicqnumber) && ($oicqnumber =~ /[0-9]/)) {
$oicqgraphic = qq~<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$oicqnumber target=_blank title="查看 QQ:$oicqnumber的资料"><img src=$imagesurl/images/oicq.gif border=0 width=16 align=absmiddle>QQ</a> ~;
}
else { $oicqgraphic=""; }
if (($icqnumber) && ($icqnumber =~ /[0-9]/)) { $icqgraphic = qq~<span style="cursor:hand" onClick="javascript:openScript('misc.cgi?action=icq&UIN=$icqnumber',450,300)" title="给 ICQ:$icqnumber 发个消息"><img src=$imagesurl/images/icq.gif border=0 width=16 align=absmiddle>ICQ</span> ~; } else { $icqgraphic=""; }
if ($userregistered ne "no") {
if ($membercode eq "mo"|| $membercode eq "cmo"|| $membercode eq "smo"|| $membercode eq "ad") {
$novisitdate = int(($currenttime-$lastgone)/86400);
$novisitdate = $novisitdate ? "\n失踪 $novisitdate 天" : "";
}
else { $novisitdate = ""; }
if ($membercode eq "ad") {
$posterfontcolor = "$adminnamecolor";
$glowing = $adminglow;
$membernameimg = "<img src=$imagesurl/images/teamad.gif alt=\"此人为坛主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$admingraphic width=100 border=0>" if ($admingraphic ne "");
$mtitle = $adtitle if ($adtitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "论坛坛主"; }
}
elsif ($membercode eq "mo") {
$posterfontcolor = "$teamnamecolor";
$glowing = $teamglow;
$membernameimg = "<img src=$imagesurl/images/teammo.gif alt=\"此人为版主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$modgraphic width=100 border=0>" if ($modgraphic ne "");
$mtitle = $motitle if ($motitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "论坛版主"; }
}
elsif ($membercode eq "cmo") {
$posterfontcolor = "$cmonamecolor";
$glowing = $cmoglow;
$membernameimg = "<img src=$imagesurl/images/teamcmo.gif alt=\"此人为分类区版主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$cmodgraphic width=100 border=0>" if ($cmodgraphic ne "");
$mtitle = $cmotitle if ($cmotitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "分类区版主"; }
}
elsif ($membercode eq "smo") {
$posterfontcolor = "$smonamecolor";
$glowing = $smoglow;
$membernameimg = "<img src=$imagesurl/images/teamsmo.gif alt=\"此人为总版主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$smodgraphic width=100 border=0>" if ($smodgraphic ne "");
$mtitle = $smotitle if ($smotitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "总版主"; }
}
elsif ($membercode eq "rz") {
$posterfontcolor = "$rznamecolor";
$glowing = $rzglow;
$membernameimg = "<img src=$imagesurl/images/teamrz.gif alt=此人为认证用户 width=16 align=absmiddle>";
}
elsif ($membercode eq "banned") {
$posterfontcolor = "$posternamecolor";
$glowing = $banglow;
$membergraphic = "";
$jhmp= "";
$membertitle = "<b>已被禁止发言</b>";
$membernameimg ="";
}
elsif ($membercode eq "masked") {
$posterfontcolor = "$posternamecolor";
$glowing = $banglow;
$jhmp= "";
$membergraphic = "";
$membertitle = "<b>发言已被屏蔽</b>";
$membernameimg ="";
}
else { $posterfontcolor = "$posternamecolor"; $membernameimg =""; $glowing = $memglow; }
}
else { $posterfontcolor = "$posternamecolor"; $membernameimg =""; $glowing = $memglow; }
if ((($mymembercode eq "ad")||($mymembercode eq "mo")||($mymembercode eq "cmo")||($mymembercode eq 'smo')||($myinmembmod eq "yes"))&&($membercode ne "ad")&&($membercode ne "smo")&&($membercode ne "cmo")&&($membercode ne "mo")) { $rateuser = qq~ <a href="userrating.cgi?membername=$memberfilename&oldforum=$inforum&oldtopic=$intopic&oldpostno=$editpostnumber" title=给此用户投票><img src=$imagesurl/images/poll1.gif border=0 width=16 align=absmiddle>投票</a>~; }
else { $rateuser=""; }
if ($membertitle eq "member" || $membertitle eq "Member" || $membertitle eq "") { $membertitle=""; }
else {$membertitle="头衔: $membertitle" if (($membercode ne "banned")&&($membercode ne "masked"));}
$membertitle=" " if ($membertitle eq "");
$membertitle =~ s/</</g; $membertitle =~ s/>/>/g; $membertitle =~ s/"/"/g;
$post =~ s/(^|\>)\[这个(.+?)最后由(.+?)编辑\]/$1\<font color=$posternamecolor>\[这个$2最后由$3编辑\]\<\/font\>/isg;
$location = "保密" if ($location eq "");
# if ($addme eq "") { $addmeshow =""; } else { $addmeshow=$addme; $addme=""; }
$posticon =~ s/[\a\f\n\e\0\r]//isg;
if ($posticon ne "") {
if ($posticon =~/<br>/i){
$showsignature="yes25" if($showsignature eq "yes");
if ($showsignature =~/^yes[0-9]+$/) { $polltype = "checkbox"; } else { $polltype = "radio"; }
$posticon=~s/<br><br>/<BR>/isg;
$posticon=~s/<br>/\t/ig;
my @temppoll = split(/\t/, $posticon);
if ($#temppoll >= 1) {
$maxpolllength = 0;
($poll[1], $poll[2], $poll[3], $poll[4], $poll[5],$poll[6],$poll[7],$poll[8],$poll[9],$poll[10],$poll[11],$poll[12],$poll[13],$poll[14],$poll[15],$poll[16],$poll[17],$poll[18],$poll[19],$poll[20],$poll[21],$poll[22],$poll[23],$poll[24],$poll[25]) = split(/\t/, $posticon);
$j=0;
$pollinput ="";
for ($i=1;$i<=25;$i++){
if ($poll[$i] ne "") {
$j++;
$pollinput .= qq~<input type="$polltype" name="myChoice" value='$i'> $poll[$i]<br>~;
$maxpolllength = length($poll[$i]) if (length($poll[$i]) > $maxpolllength);
}
}
$maxpolllength = $maxpolllength*7+10;
$maxpolllength = 150 if ($maxpolllength < 150);
$maxpolllength = 510 if ($maxpolllength > 510);
if ($showsignature =~/^yes[0-9]+$/) { $showsignature=~s/^yes//; $maxcanpoll=qq~最多可投 $showsignature 项<br>~; }
$pollform =qq~<script>
function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}}}
</script>
<form action="poll.cgi" method=post onSubmit="submitonce(this)">
<input type=hidden name=action value="poll"><input type=hidden name=forum value="$inforum"><input type=hidden name=threadname value="$intopic">
<table cellpadding=1 cellspacing=0 width=$maxpolllength bgcolor=$tablebordercolor><tr><td nowrap><table width=100% cellpadding=4 cellspacing=0 bgcolor="$postbackcolor">
<tr><td nowrap>$pollinput<tr><td align=center nowrap><HR size=1 width=85%>$maxcanpoll<input type=submit name=results value='参加投票'>
</td></form></tr></table></td></tr></table>~;
$showpoll = "";
$pollnull = "";
if (($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")) { $adminview = 1; $maxpolllength = 550; $adminviewcolspan = 3; }
else { $adminview = 0; $maxpolllength = 510; $adminviewcolspan = 2; }
$poll =qq~ <table width=$maxpolllength>~;
$filetomake = "$lbdir" . "forum$inforum/$intopic.poll.cgi";
# &winlock($filetomake) if ($OS_USED eq "Nt");
if (open(FILE, "$filetomake")) {
flock(FILE, 1) if ($OS_USED eq "Unix");
@allpoll = <FILE>;
close(FILE);
$size=@allpoll;
# &winunlock($filetomake) if ($OS_USED eq "Nt");
}
else {
# &winunlock($filetomake) if ($OS_USED eq "Nt");
$size=0; @allpoll=();
}
if ($size > 0) {
$size= 0;
@thispoll=('0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0');
@pollname=('','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');
foreach (@allpoll){
$_=~s/[\a\f\n\e\0\r]//isg;
next if ($_ eq "");
my ($tmpinmembername,$tmpmyChoice)=split(/\t/, $_);
$tmpinmembername =~ s/^＊！＃＆＊//isg;
for ($i=1;$i<=$j;$i++) {
if ($i == $tmpmyChoice) {
$thispoll[$i]++;
if ($thispoll[$i] >= $TheHigest) { $TheHigest=$thispoll[$i]; }
$pollname[$i] = "$pollname[$i]$tmpinmembername\t";
$size ++;
}
}
$showpoll="true" if ($tmpinmembername eq $inmembername);
}
undef @allpoll;
}
if ($size > 0) {
if (($showsignature eq 'yes')||($showsignature =~/[0-9]+$/)) { $poll .= qq~ <tr><td colspan=$adminviewcolspan><HR size=1 width=100%></td></tr><tr><td colspan=$adminviewcolspan>目前总共有 <font color=$fonthighlight><B>$size</B></font> 张投票，结果如下：<HR size=1 width=100%><BR></td></tr>~; }
else { $poll .= qq~ <tr><td colspan=$adminviewcolspan><HR size=1 width=100%></td></tr><tr><td colspan=$adminviewcolspan>目前共有 <font color=$fonthighlight><B>$size</B></font> 人参加投票，结果如下：<HR size=1 width=100%><BR></td></tr>~; }
for ($i=1;$i<=$j;$i++) {
if ($poll[$i] ne ""){
my $mypoll=int(($thispoll[$i]/$size)*1000)/10;
my $width=int(($mypoll/100)*160);
if ($adminview == 1) {
undef @pollmanname;
$adminviewpoll = qq~</td><td nowarp><select><option>投票人名单 </option><option>----------</option>~;
@pollmanname = split(/\t/, $pollname[$i]);
$pollmanname = @pollmanname;
foreach (@pollmanname) {
$adminviewpoll .= qq~<option value="$_">$_ </option>~;
}
$adminviewpoll .= qq~</select>~;
$adminviewpoll = "</td><td nowarp>[没有人投票]" if ($pollmanname eq 0);
}
else { $adminviewpoll=""; }
$ii = $i;
$ii = $ii - 40 if ($ii > 40);
$ii = $ii - 30 if ($ii > 30);
$ii = $ii - 20 if ($ii > 20);
$ii = $ii - 10 if ($ii > 10);
if ($thispoll[$i] >= $TheHigest) {$XA =qq~<font color=$fonthighlight><b><u>~;$XB =qq~</u></b></font>~;}else{$XA=$XB="";}
$poll.=qq~<tr><td nowarp>$XA$poll[$i]$XB </td><td nowarp> <img src=$imagesurl/images/bar$ii.gif width=$width height=10> <b>$thispoll[$i]</b> 票数 $mypoll% $adminviewpoll</td></tr>\n~;
}
}
}
else {
$poll .= qq~ <tr><td colspan=2><HR size=1 width=100%></td></tr><tr><td colspan=2>没有人参加此投票，选项列表如下：<HR size=1 width=100%><BR></td></tr>~;
for ($i=1;$i<=$j;$i++) { $poll .= qq~<tr><td colspan=2>$poll[$i] </td></tr>~; }
$pollnull = "true";
}
$poll .= "</td></tr><tr><td colspan=$adminviewcolspan><HR size=1 width=100%></td></tr></table>";
if (($threadstate eq "pollclosed")||($showpoll eq "true")||($inmembername eq "客人")) {
my $poll1 = "<font color=$fonthighlight>客人不能投票，请注册！</font>" if ($inmembername eq "客人");
$poll1 = "<font color=$fonthighlight>谢谢，你已经投过票了！</font>" if ($showpoll eq "true");
$poll1 = "<font color=$fonthighlight>对不起，此投票已经关闭！</font>" if ($threadstate eq "pollclosed");
$poll = "<br><br><font color=$fonthighlight>对不起，你必需先投票才可看结果！</font><br>" if (($PollHidden eq "yes")&&($inmembername eq "客人"));
$poll = "$poll$poll1";
}
else {
if ($pollnull eq "true") { $poll = "$pollform<BR><font color=$fonthighlight>目前暂时没有人投票！</font>"; }
else {
$poll = "<br><font color=$fonthighlight>对不起，你必需先投票才可看结果！</font>" if (($PollHidden eq "yes")&&($cpudisp != 1)&&($membername ne $inmembername));
$poll = "$pollform$poll";
}
}
if (($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")||(($usereditpost ne "no")&&(lc($inmembername) eq lc($membername)))) { $editgraphic = qq~<a href=editpoll.cgi?action=edit&forum=$inforum&topic=$intopic title=编辑这个投票><img src=$imagesurl/images/edit.gif border=0 width=16 height=15 align=absmiddle>编辑</a>~ } else { $editgraphic =""; }
$delgraphic = "";
$posticon = "";
}
}
else {
if ($posticon eq "") {
$posticon = int(rand(23));
$posticon = "0$posticon" if ($posticon<10);
$posticon = "$posticon.gif";
}
$posticon = qq~<img src=$imagesurl/posticons/$posticon>~;
}
}
else {
$posticon = int(rand(23));
$posticon = "0$posticon" if ($posticon<10);
$posticon = qq~<img src=$imagesurl/posticons/$posticon.gif>~;
}
if (($dofilter eq "no")||($dofilter eq "all")) {
my $temp = &postwordfilter("$location\t$post\t$jhmp\t$membertitle\t$topictitle");
($location,$post,$jhmp,$membertitle,$topictitle) = split(/\t/,$temp);
}
if ($poll ne "") {
$post =~ s/\<\/td\>\<\/tr\>\<\/table\>$//i;
$post = "$post<br>$poll<table width=100% cellpadding=0 cellspacing=0><tr><td><BR><BR>$postcopyright<BR></td></tr></table></td></tr></table>";
$poll = "";
}
($ip1,$ip2,$ip3,$ip4) = split(/\./,$postipaddress);
if ($mymembercode eq "ad") {
$postipaddress=qq~<span style="cursor:hand" onClick="javascript:openScript('whois.cgi?query=$postipaddress',420,320)" title="LB WHOIS信息">$postipaddress</span>~;
}
elsif ($mymembercode eq "smo") {
if ($smocanseeip eq "no") { $postipaddress=qq~<span style="cursor:hand" onClick="javascript:openScript('whois.cgi?query=$postipaddress',420,320)" title="LB WHOIS信息">$postipaddress</span>~; }
else {
if ($pvtip eq "on") { $postipaddress=qq~<span style="cursor:hand" onClick="javascript:openScript('whois.cgi?query=$postipaddress',420,320)" title="LB WHOIS信息">$postipaddress</span>~; }
else { $postipaddress="已设置保密"; }
}
}
elsif ($myinmembmod eq "yes") {
if ($pvtip eq "on") { $postipaddress="$ip1.$ip2.$ip3.*"; } else { $postipaddress="已设置保密"; }
}
else {
if (($pvtip eq "on")&&($inmembername ne "客人")) { $postipaddress="$ip1.$ip2.*.*"; } else { $postipaddress="已设置保密"; }
}
if ($proxyip ne 1) { if ($mymembercode eq "ad") { $fromproxy ="真实 IP： $truepostipaddress"; } else { $fromproxy = "此 IP 为代理服务器"; } } else { $fromproxy=""; }
if (($rating !~ /^[0-9\-]+$/)||($rating eq "")) { $rating = 0; }
if ($rating > 0 ) { $rating = "+$rating"; }
if ($jhmp eq "无门无派" || $jhmp eq "") { $jhmp=""; } else { $jhmp="门派: $jhmp<br>"; }
$userflag = "blank" if ($userflag eq "");
$userflag = qq~ <img src=$imagesurl/flags/$userflag.gif height=14 align=absmiddle>~;
if ($usersx !~ /^sx/i) {$showsx = "";}
else {
$usersx =~ s/sx//i;
$showsx = substr($sxall,($usersx-1)*4,4);
$showsx = "<IMG src=$imagesurl/sx/sx${usersx}s.gif height=15 alt=$showsx align=absmiddle>";
}
if ($userxz !~ /^z/i) {$showxz = "";}
else {
$userxz =~ s/z//i;
$showxz = substr($xzall,($userxz-1)*4,4);
$showxz = "<IMG src=$imagesurl/star/z$userxz.gif height=15 alt=$showxz座 align=absmiddle>";
}
if ($userregistered eq "no") {
$membername=~s/\(客\)/ \(客人\)/isg;
$membertitle=" -* 未注册 *-";
$rating = "未知";
$membergraphic = "";
$useravatar = "<BR>";
$posterfontcolor = "$posternamecolor";
$mtitle = "未知";
$joineddate = "未知";
$location = "未知";
$mysaves = "未知";
$numberofposts = 0;
$sex = "";
$jhmp= "";
$rateuser="";
$userflag="";
$pvmsggraphic="";
$profilegraphic="";
$friendgraphic="";
$emailgraphic="";
$homepagegraphic="";
$oicqgraphic="";
$icqgraphic="";
$searchgraphic="";
$showxz="";
$showsx="";
}
if ($sex eq "m") { $seximages = "<img src=$imagesurl/images/mal.gif width=20 alt=帅哥 align=absmiddle>"; }
elsif ($sex eq "f") { $seximages = "<img src=$imagesurl/images/fem.gif width=20 alt=美女 align=absmiddle>";}
else { $seximages = ""; }
$editgraphic = "" if (($usereditpost eq "no")&&($mymembercode ne "ad")&&($mymembercode ne 'smo')&&($myinmembmod ne "yes"));
$useravatar = "" if ($nodispavatar eq "yes");
$delgraphic = "" if ($editpostnumber == 1);
$onlinetime = 0 if ($onlinetime < 0 );
$output .= qq~<table cellpadding=0 cellspacing=0 width=$tablewidth align=center><tr><td bgcolor=$tablebordercolor width=1 height=24></td><td bgcolor="$postbackcolor">~;
$replycounter = $postcountnumber + $instart;
if ($instart < 12) {$replycounter = $replycounter - 1;}
if ($editpostnumber eq $endarraytemp) { $bottomposition = qq~<a name="bottom"></a>~; }
$output .= qq~$bottomposition<table width=100% cellpadding=4 cellspacing=5 bgcolor=$postbackcolor>
<tr><td bgcolor=$postbackcolor valign=top width=160 rowspan=2>
<table style="filter:glow(color=$glowing,direction=135)"> <font color=$posterfontcolor><b>$membername </b></table>
<font color=$postfontcolortwo> $membertitle</font><BR>
<font color=$postfontcolorone> $jhmp</font>
$useravatar
<br>
<br><a href=lookinfo.cgi?action=style target=_blank title="$mtitle">$membergraphic</a>
<BR><font color=$postfontcolortwo>信息: $online $membernameimg $seximages $showsx $showxz</font>
<br><font color=$postfontcolorone>威望: $rating$rateuser</font>
<br><font color=$postfontcolortwo>来自: $location$userflag</font>
<br><font color=$postfontcolorone>总发贴数: <b>$numberofposts</b> 篇</font>
<br><font color=$postfontcolortwo title="在线: $onlinetime 秒">注册日期: $joineddate</font><BR>
</td>
<td bgcolor=$postbackcolor width=1 height=100% rowspan=2>
<table width=1 height=100% cellpadding=0 cellspacing=0 bgcolor=$titlecolor><tr><td width=1></td></tr></table>
</td><td bgcolor=$postbackcolor valign=top width=* height=100%>
$pvmsggraphic$profilegraphic$searchgraphic$friendgraphic$emailgraphic$homepagegraphic$oicqgraphic$icqgraphic$copygfx$replygraphic$replynow<BR><hr width=100% size=1 color=$tablebordercolor>
<table cellpadding=0 cellspacing=0 width=100% style="TABLE-LAYOUT: fixed">
<tr><td width=32 valign=top>$posticon </td>
<td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word;">$addme<table width=100% cellpadding=0 cellspacing=0 height=70 style="TABLE-LAYOUT: fixed"><tr valign=top><td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word;"><font color=$postfontcolor>$post</font><BR></td>
<td width=16></td></tr></table></td></tr>
<tr><td class=bottomline bgcolor=$postbackcolor valign=bottom><hr width=100% size=1 color=$tablebordercolor>
<table width=100% cellpadding=0 cellspacing=0>
<tr><td valign=bottom><font color=$postfontcolor>$editgraphic $delgraphic <img src=$imagesurl/images/posttime.gif width=16 height=15 alt=发贴时间 align=absmiddle>$postdate <img src=$imagesurl/images/ip.gif width=13 height=15 alt="$fromproxy" align=absmiddle>IP: $postipaddress</td>
<td align=right nowarp valign=bottom width=110></td></form>
<td align=right valign=bottom width=4></td></tr></table>
</td></tr></table></td><td bgcolor=$tablebordercolor width=1 height=24></td></tr></table>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td height=1></td></tr></table>
~;
$editpostnumber++; $postcountnumber++;
}
##################3
if ($treeview eq "yes") {
@treelist=();
$pages = qq~<font color=$menufontcolor><b>本主题共有一页</b>~;
if (($screenmode >=8)||($tablewidth > 770)) { $topictitlemax = 96; } else { $topictitlemax = 50; }
$output .= qq~<p><table cellpadding=4 cellspacing=1 width=$tablewidth align=center><tr><td colspan=3 bgcolor=$titlecolor><font color=$titlefontcolor><B> * 树形目录</B></font></td></tr>~;
$i = 0;
foreach (@threads) {
($membername, $topictitle, $postipaddresstemp, $showemoticons, $showsignature, $postdate, $post, $posticon) = split(/\t/,$_);
$topictitle =~ s/^＊＃！＆＊//;
chomp $posticon;
$postdate = &shortdate($postdate + $addtimes);
if (($dofilter eq "no")||($dofilter eq "all")) {
$post = &postwordfilter("$post");
}
if (($post =~ /LBHIDDEN\[(.*?)\]LBHIDDEN/)||($post =~ /LBSALE\[(.*?)\]LBSALE/)) {
$post = "保密";
} else {
$post =~ s/\[quote\](.*)\[quote\](.*)\[\/quote](.*)\[\/quote\]//isg;
$post =~ s/\[quote\](.*)\[\/quote\]//isg;
$post =~ s/\[hidepoll\]//isg;
$post =~ s/\[这个(.+?)最后由(.+?)编辑\]\n//isg;
$post =~ s/\[hide\](.*)\[hide\](.*)\[\/hide](.*)\[\/hide\]//isg;
$post =~ s/\[hide\](.*)\[\/hide\]//isg;
$post =~ s/\[post=(.+?)\](.+?)\[\/post\](.*)\[post=(.+?)\](.+?)\[\/post\]//isg;
$post =~ s/\[post=(.+?)\](.+?)\[\/post\]//isg;
$post = &temppost("$post");
}
if (length($post)>=$topictitlemax) {
$post=&lbhz($post,$topictitlemax);
}
if ($post eq "") { $post="(无内容)"; }
if (($posticon eq "")||($posticon =~ /\<br\>/i)) {
$posticon = int(rand(23));
$posticon = "0$posticon" if ($posticon<10);
$posticon = "$posticon.gif";
}
$posticon = qq~<img src=$imagesurl/posticons/$posticon>~;
my $memberfilename = $membername;
$memberfilename =~ y/ /_/;
$memberfilename =~ tr/A-Z/a-z/;
if ($membername=~/\(客\)/) {
$membername=~s/\(客\)//isg;
$h4 = qq~<font color=$postfontcolorone title=此为未注册用户>$membername</font>~;
}
else {
$h4 = qq~<a href=profile.cgi?action=show&member=~ . ($uri_escape eq "no" ? $memberfilename : uri_escape($memberfilename)) . qq~ title=\"查看$membername的个人资料\">$membername</a>~;
}
$editpostnumber=$i+1;
$h5=" ";
$h5 =qq(<input type="checkbox" name="postno$editpostnumber" value="yes">) if(($mymembercode eq "ad")||($mymembercode eq 'smo')||($mymembercode eq 'cmo')||($myinmembmod eq "yes"));
if ($i==0) { $h3 = " 主贴："; } else { $h3 = "$h5回复："; }
if ($treebackcolor ne $postcolorone) { $treebackcolor=$postcolorone; } else { $treebackcolor=$postcolortwo; }
if ($i==$replynum) {
$treefontcolor="$fonthighlight";
$h1=$h2="";
}
else {
$treefontcolor=$postfontcolorone;
$h1="<a href=$thisprog?forum=${inforum}&topic=${intopic}&replynum=$i&show=$show>";
$h2="</a>";
}
$output .=qq~<tr bgcolor="$treebackcolor"><td><font color=$treefontcolor> $h3 $posticon $h1 $post $h2</td><td width=130>   作者：$h4</td><td width=70 align=right> $postdate </font></td></tr>~;
$i ++;
}
$output .= qq~</table><img src=$imagesurl/images/none.gif height=3 width=0><BR>~;
}
########3
if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")&&($dispquickreply ne "no")) {
if ($emoticons eq "on") { $emoticonslink = qq~<input CHECKED name=inshowemoticons type=checkbox value=yes>使用表情字符转换？~; }
if ($emailfunctions eq "on") {
if ($innotify eq "yes") { $requestnotify = qq~<input name=notify type=checkbox value=yes checked>有回复时使用邮件通知您？<br>~; }
else { $requestnotify = qq~<input name=notify type=checkbox value=yes>有回复时使用邮件通知您？<br>~;}
}
}
$output .= qq~<table cellpadding=0 cellspacing=2 width=$tablewidth align=center><tr bgcolor=$menubackground height=4></tr><tr><td><font color=$menufontcolor> $pages</td>~;
#if ($indexforum ne "no") { $output .= qq~<td align=right nowrap>$jumphtml</td></form>~; }
$output .= qq~</tr></table><br>~;
if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")&&($dispquickreply ne "no")) {
$maxpoststr = "(帖子中最多包含 <B>$maxpoststr</B> 个字符)" if ($maxpoststr ne "");
$output .= qq~<form action="post.cgi?action=reply&forum=$inforum&topic=$intopic" method=post name="FORM" enctype="multipart/form-data">
<input type=hidden name="action" value="addreply">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<table cellPadding=5 cellSpacing=1 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td bgcolor=$titlecolor width=220><font color=$fontcolormisc><b>快速回复主题:</b></font></td><td bgcolor=$titlecolor width=500> <font color=$fontcolormisc>$topictitletemp</font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>输入用户名和密码:</b></font></td><td bgcolor=$miscbackone> <font color=$fontcolormisc><b>用户名</b>: <input type=text name="membername" value="$inmembername" onmouseover=this.focus() onfocus=this.select()> <span onclick="javascript:location.href='register.cgi?forum=$inforum'" style="cursor:hand">没有注册？</span> <b>密码:</b> <input type=password name="password" value="$inpassword" onmouseover=this.focus() onfocus=this.select()> <a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
~;
if (($allowattachment ne "no")||($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")) {
$addtypedisp = $addtype;
$addtypedisp =~ s/\, /\,/gi;
$addtypedisp =~ s/ \,/\,/gi;
$addtypedisp =~ tr/A-Z/a-z/;
my @addtypedisp = split(/\,/, $addtypedisp);
$addtypedisp = "<select><option value=#>支持类型：</option><option value=#>----------</option>";
foreach (@addtypedisp) {
chomp $_;
next if ($_ eq "");
$addtypedisp .= qq~<option>$_</option>~;
}
$addtypedisp .= qq~</select>~;
$uploadreqire= "" if ($uploadreqire <= 0);
$uploadreqire = "<BR>发帖数要大于 <B>$uploadreqire</B> 篇(认证用户不限)" if ($uploadreqire ne "");
$output .= qq~<tr><td bgcolor=$miscbackone><b>上传附件或图片</b> (最大容量 <B>$maxupload</B>KB)$uploadreqire</td><td bgcolor=$miscbackone colspan=2><input type="file" size=45 name="addme"> $addtypedisp</td></tr>~;
}
$output .= qq~
<tr><td bgcolor=$miscbacktwo valign=top><font color=$fontcolormisc><b>选项</b> $maxpoststr<br><BR>
<input type=checkbox name="uselbcode" value="yes" checked>使用 LB5000 标签？<BR>
<input CHECKED name=inshowsignature type=checkbox value=yes>显示您的签名？<br>
$requestnotify$emoticonslink<BR><BR></td>
<td bgcolor=$miscbacktwo width=*> <textarea cols=75 name=inpost onKeyDown=ctlent() rows=8></textarea><br>
<INPUT name=Submit onclick="return clckcntr();" type=submit value="发 表 回 复"> <INPUT name=Clear type=reset value="清 除 内 容"> [使用 Ctrl+Enter 直接提交贴子]
</td></tr></table></form>
~;
}
$output .= qq~<table cellspacing=0 cellpadding=0 width=$tablewidth align=center>
<tr><td> <a href=#top><img src=$imagesurl/images/gotop.gif height=15 width=15 border=0 align=absmiddle>顶端</a> <a href=fav.cgi?action=add&forum=$inforum&topic=$intopic><img src=$imagesurl/images/addfavorite.gif height=15 width=18 border=0 align=absmiddle>加到"个人收藏夹"</a></td><td nowrap align=right><font color=$menufontcolor><b>主题管理</B>：
<a href=postings.cgi?action=abslocktop&forum=$inforum&topic=$intopic>总固顶</a> |
<a href=postings.cgi?action=absunlocktop&forum=$inforum&topic=$intopic>取消总固顶</a> |
<a href=postings.cgi?action=locktop&forum=$inforum&topic=$intopic>固顶</a> |
<a href=postings.cgi?action=unlocktop&forum=$inforum&topic=$intopic>取消固顶</a> |
<a href=jinghua.cgi?action=add&forum=$inforum&topic=$intopic>精华</a> |
<a href=jinghua.cgi?action=del&forum=$inforum&topic=$intopic>取消精华</a> |<BR>
<a href=postings.cgi?action=puttop&forum=$inforum&topic=$intopic>提升</a> |
<a href=postings.cgi?action=lock&forum=$inforum&topic=$intopic>锁定</a> |
<a href=postings.cgi?action=unlock&forum=$inforum&topic=$intopic>解锁</a> |
<a href=delpost.cgi?action=delete&forum=$inforum&topic=$intopic>删除</a> |
<span style="cursor:hand" onClick="javascript:DelReply();">删除回复</span> |
<a href=delpost.cgi?action=movetopic&forum=$inforum&topic=$intopic>移动</a> |
</td></tr></table><p><p>
<form action="delpost.cgi" method=post name="DReply">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<input type=hidden name="action" value="directdel">
<input type=hidden name="postno"></form>~;
&output( -Title => "$forumname - $topictitletemp", -ToPrint => $output, -Version => $versionnumber );
exit;
END {
if ($cpudisp eq "1") {
$TT1 = new Benchmark;
$td = Benchmark::timediff($TT1, $TT0);
$td = Benchmark::timestr($td);
$td =~ /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s*sys/i;
print "<center><font color=$#c0c0c0>程序占用 CPU 时间：$2 usr + $3 sys";
}
}
作者:
安达
时间:
2003-4-7 15:55
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
网管死了。对不起啊。还没找到吧。
作者:
cl8250
时间:
2003-4-7 16:21
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
同上!!
作者:
任逍遥
时间:
2003-4-7 22:07
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
我下载后怎么只有67K?
作者:
hbxfbdz2003
时间:
2003-4-9 21:41
标题:
[原创]下载 多功能启动工具集合光盘[最新版]
ok
欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/)
Powered by Discuz! X3.3