没太多时间，做得很匆忙，汗~~~~~在自己论坛上测试了一下暂时没发现什么问题，可以在锁定的时候选择是否显示锁定理由。。。
postings.cgi中，把：
sub lockthread {
.......
.....
....
}
这一整段改成：
[quote]sub lockthread {
$viewreason = param("viewreason");
my $intopics = $intopic;
my @intopic = split(/ +/, $intopics);
my $lockcount = @intopic;
&error("主题锁定&请先选择需要锁定的主题！") if ($lockcount <= 0);
&mischeader("主题锁定");
$cleartoedit = "no";
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($membercode eq 'smo') && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($arrowuserdel eq "on")&&($cleartoedit ne "yes")) {
open (ENT, "${lbdir}forum$inforum/$intopic.pl");
$in = <ENT>;
close (ENT);
chomp $in;
($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $inposticon, $inposttemp, $addmetemp) = split(/\t/,$in);
if ((lc($inmembername) eq lc($startedby)) && ($inpassword eq $password)) { $cleartoedit = "yes"; }
}
unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
if ($cleartoedit eq "no" && $checked eq "yes") { &error("主题锁定&您不是本论坛坛主或版主，或者您的密码错误！"); }
if (($cleartoedit eq "yes") && ($checked eq "yes")) {
my $lockreason = $query->param("lockreason");
$lockreason = &cleaninput($lockreason);
$lockreason = &lbhz($lockreason, 60);
$lockreason = "，理由是：$lockreason" if ($lockreason ne "");
foreach $intopic (@intopic) {
my $filetomake = "${lbdir}forum$inforum/$intopic.pl";
unless (-e $filetomake) {
$lockcount--;
next;
}
open (ENT, "${lbdir}forum$inforum/$intopic.pl");
$in = <ENT>;
close (ENT);
chomp $in;
($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $inposticon, $inposttemp, $addmetemp) = split(/\t/,$in);
if (($threadstate eq "closed")||($threadstate eq "pollclosed")) {&error("主题锁定&此主题已经锁定了！")}
elsif ($threadstate eq "poll") { $threadstate = "pollclosed"; } else { $threadstate = "closed"; }
if($viewreason eq "on"){
$threadposts ++;
if (open(FILE, ">${lbdir}forum$inforum/$intopic.pl")) {
print FILE "$intopic\t$topictitle\t$topicdescription\t$threadstate\t$threadposts\t$threadviews\t$startedby\t$startedpostdate\t$inmembername\t$currenttime\t$inposticon\t*****版主模式*****\t$addmetemp\t";
close(FILE);
}
$filetoopen = "$lbdir" . "forum$inforum/$intopic.thd.cgi";
if (-e $filetoopen) {
&winlock($filetoopen) if ($OS_USED eq "Nt");
open(FILE, "$filetoopen");
flock(FILE, 1) if ($OS_USED eq "Unix");
@messages = <FILE>;
close(FILE);
if (open(FILE, ">$filetoopen")) {
flock(FILE, 2) if ($OS_USED eq "Unix");
foreach $line (@messages) {
chomp $line;
print FILE "$line\n";
}
print FILE "$inmembername\t$topictitle\t$ENV{'REMOTE_ADDR'}\tyes\tyes\t$currenttime\t***** 版主模式 *****<p>本帖已被管理员锁定$lockreason\t$inposticon\t\n";
close(FILE);
}
&winunlock($filetoopen) if ($OS_USED eq "Nt");
}
}
else {
if (open(FILE, ">${lbdir}forum$inforum/$intopic.pl")) {
print FILE "$intopic\t$topictitle\t$topicdescription\t$threadstate\t$threadposts\t$threadviews\t$startedby\t$startedpostdate\t$lastposter\t$lastpostdate\t$inposticon\t$inposttemp\t$addmetemp\t";
close(FILE);
}
}
$topictitle =~ s/^＊＃！＆＊//;
&sendtoposter("$inmembername","$startedby","","lock","$inforum","$intopic", "$topictitle","$lockreason") if (($sendmanageinfo eq "yes")&&(lc($inmembername) ne lc($startedby)));
}
if ($lockcount == 1)
{
&addadminlog("锁定贴子$lockreason", $intopic);
}
else
{
&addadminlog("批量锁定贴子 $lockcount 篇$lockreason");
}
$output .= qq~<SCRIPT>valigntop()</SCRIPT><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic align=center><font color=$fontcolormisc><b>主题锁定成功：共锁定 <font color=$fonthighlight>$lockcount</font> 篇主题。</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具体情况：<ul><li><a href=http://www.51one.net/tobbs/leobbs/"forums.cgi?forum=$inforum">返回论坛</a><li><a href=../../"leobbs.cgi">返回论坛首页</a></ul></tr></td>
</table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
} else {
$inmembername =~ s/\_/ /g;
$output .= qq~<SCRIPT>valigntop()</SCRIPT><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor $catbackpic colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="lock">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [锁定 $lockcount 个主题]</b></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2><font color=$titlefontcolor>您目前的身份是： <font color=$fonthighlight><B><u>$inmembername</u></B></font> ，要使用其他用户身份，请输入用户名和密码。未注册客人请输入网名，密码留空。</td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的用户名</font></td><td bgcolor=$miscbackone><input type=text name="membername"> <font color=$fontcolormisc><span onclick="javascript:location.href=http://www.51one.net/tobbs/leobbs/'register.cgi?forum=$inforum'" style="cursor:hand">您没有注册？</span></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的密码</font></td><td bgcolor=$miscbackone><input type=password name="password"> <font color=$fontcolormisc><a href=http://www.51one.net/tobbs/leobbs/"profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入锁定理由</font></td><td bgcolor=$miscbackone><input type=text name=lockreason size=60> （可不填）<input name="viewreason" type="checkbox" checked> 是否在帖子里显示锁定理由？</td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 录"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
<SCRIPT>valignend()</SCRIPT>
~;
}
}[/quote]
2005/09/26 07:40pm
顶一下，这个东西还是比较人性化的！
2005/09/27 00:41am
[这个贴子最后由gooddel在 2005/09/27 04:42am 第 1 次编辑]
这个，只是改成锁贴时可以选择是否显示理由吗？
能不能在topic的主题里面，增加一行，显示被锁理由？
以前bigjim的版本有的。
这样才更人性化一些：）
[br][br][color=#990000][b]-=-=-=-=- 以下内容由 [i]gooddel[/i] 在 [i]2005年09月27日 04:42am[/i] 时添加 -=-=-=-=-[/b][/color]
最好评精、加重也能在topic里显示。
像 Discuz 一样。
