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

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
$deltitle=~s/\.//g; 
open(TITLES,"$filepath/list/$id/$deltitle"); 
$m=; 
close(TITLES); 
chomp($m); 
($rdtitles,$rdthistime,$rdusername,$nnn,$rdhassee,$rdhasreply,$r3,$r4,$r5,$r6)=split(/\t/,$m); 
if($r3 eq "vote"){&errorview("对不起，不能编辑议题！");} 
$oldtitle=$rdtitles; 
$olduser=$rdusername; 
$oldemote=$r3; 
$oldcomment=$nnn; 
$rd1comment=$rdcomment; 
$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 $rdusername)&&($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 #########################