www.pudn.com > bbs3000afree.zip > reditform.cgi

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
$no=~s/\.//g; 
open(TITLES,"$filepath/list/$id/$no"); 
@hastitles=; 
close(TITLES); 
foreach $m (@hastitles){ 
chomp($m); 
($rtime,$rthistime,$rusername,$rcomment,$rfrom,$remote,$retitles)=split(/\t/,$m); 
if($rthistime eq $deltitle){ 
$oldtime=$rtime; 
$olduser=$rusername; 
$oldemote=$remote; 
$oldcomment=$rcomment; 
$oldtitle=$retitles; 
} 
$oldcomment =~s/\r//g; 
$oldcomment =~s/
/\n/g; 
$oldcomment =~s/function(.+?)HTML代码如下://isg; 
$oldcomment =~s/\[ 此消息由(.+?)编辑过 ]//isg; 
$oldcomment=&unybbcode($oldcomment); 
$oldcomment=~s/<([^>])*>//g; 
} 
if($username eq ""){&errorview("您当前的身份是访客！");} 
open (FILE, "$filepath/data/rank"); 
@rank = ; 
close(FILE); 
foreach $ranks (@rank) { 
chomp($ranks); 
if ($ranks eq $Cookies{username}){$rankss="ok";}} 
if(($rankss ne ok)&&($Cookies{username} ne $olduser)&&($Cookies{username} ne $admname)&&($Cookies{username} ne $bzmc)&&($Cookies{username} ne $fbzmc)&&($Cookies{username} ne $fbzmc2)){&errorview("您没有足够的权限编辑此帖！");} 
&css; 
print < 
您当前的位置：$bbsname >> 编辑回复
$outurl
  
 
 
 
 
 
 
 
 
编辑回复
 
回复标题
 
回复内容
 
$oldcomment 
 
选项
 
 HTML代码
 
 禁止 YBB代码
 
 禁止 表情字符
 
 
 
  
 
 
EOF 
exit; 
######################### END OF SCRIPT #########################