if((lc($postermembername) ne lc($inmembername))&&($membercode ne "ad")&&($membercode ne 'smo')&&($membercode ne 'cmo')&&($membercode ne 'mo')){&error("µo¥Í¿ù»~&¤å³¹$LeoBBS_E_CHTªÌ¤£¬O§A¡A§A¤£¯à¦b¦¹°ò¦¤W$LeoBBS_L_CHTÄò½s¼g");}
¥N½X¡G if ((lc($inmembername) eq lc($membername))&&($inmembername ne "³X«È")&&(($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no"))){ $post.="<br><br><br><span id=postnum$editpostnumber><span style=cursor:hand onClick=javascript:addpost('$editpostnumber');><font color=$fonthighlight><b>[¸É¥R¦¹¤å³¹...]</b></span></span><br>"; }
addpost.cgi¸Ì...
¥N½X¡G my $filetoopen = "$lbdir" . "forum$inforum/$intopic.thd.cgi"; &winlock($filetoopen) if ($OS_USED eq "Nt"); open(FILE, "$filetoopen"); flock(FILE, 1) if ($OS_USED eq "Unix"); my @threads = <FILE>; close(FILE); &winunlock($filetoopen) if ($OS_USED eq "Nt"); my ($postermembername, $topictitle, $postipaddress, $showemoticons, $showsignature ,$postdate, $post, $posticon, $water) = split(/\t/, $threads[$num-1]); if(lc($postermembername) ne lc($inmembername)){&error("µo¥Í¿ù»~&¤å³¹$LeoBBS_E_CHTªÌ¤£¬O§A¡A§A¤£¯à¦b¦¹°ò¦¤W$LeoBBS_L_CHTÄò½s¼g");}