此为CGI子程序的一个Asp改编版本，其中使用FileSystemObject对象中的TextStream对象的ReadAll方法。因此，需要定期清理记录文件floodcheck.ini。以免影响速度。该处理方法的一个好处是留有Post者的ip地址记录并且能应用于不同类型的系统。（只要在您的处理代码处用Response.Redirect "你的处理Post Asp页"）就可以了。
我改编的Asp代码<%
'防止重复提交的asp代码
'floodcheck.ini文件格式
'最后发表时间(专业提供视频软件下载)
IP地址
'变量声明
'两个Post间隔时间,以分为单位
Dim Wait_between_Post
'发贴者IP地址
dim IPNumber
'本次Post时间
Dim This_Post_Time
'上次Post时间
Dim Last_Post_Time
Wait_between_Post=0.1
This_Post_time=Now
IPNumber=Request.ServerVariables("REMOTE_ADDR")
dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
'1 forReading
Set f=fso.OpenTextFile("floodcheck.ini",1,true)
if f.atEndOfStream then
f.close
'2 forWritting
Set f=fso.OpenTextFile("floodcheck.ini",2,true)
f.WriteLine(this_Post_Time & "(专业提供视频软件下载)
" & IPNumber)
f.close
Set fso=Nothing
'替换成您的处理代码
response.write "转到到Post处理页或处理代码"
response.end
'替换成您的处理代码
else
dim PostRec
dim varTemp
PostRec=f.ReadAll
f.close
dim objRegExp
Set objRegExp=new RegExp
objRegExp.Pattern=".+(专业提供视频软件下载)
" & IPNumber & ""
objRegExp.Global = True
Set objMatches = objRegexp.Execute(PostRec)
for each objMatch in objMatches
varTemp=split(objMatch.Value,"(专业提供视频软件下载)
")
last_post_time=cdate(varTemp(0))
if dateadd("s",wait_between_post*60,last_post_time)>this_post_timethen '转化为秒
set fso=nothing
'替换成您的处理代码
response.write "抱歉,您刚刚发表过一篇文章,为了避免重复发表,请稍候返回" & wait_between_post & "分钟再发表您的文章."
response.end
'替换成您的处理代码
end if
next
'8 forAppending
Set f=fso.OpenTextFile("floodcheck.ini",8,true)
f.WriteLine(this_Post_Time & "(专业提供视频软件下载)
" & IPNumber)
f.close
set fso=nothing
'替换成您的处理代码
response.write "转到到Post处理页或处理代码"
response.end
'替换成您的处理代码
end if
%>
CGI原代码 摘自经典论坛http://202.106.124.52/zmy/ubb/Ultimate.cgi?action=intro
sub floodcheck
{ # blocks multiple posting in a short period
$wait_between_posts = "0.2"; #edit in the default number of minutes to wait
$lastpost_list_length = 15; # edit in the number of records to keep
my $IPNumber= $ENV{'REMOTE_ADDR'}; # the IP address
my $this_post_time = time(); # secs since 1970
open(LASTPOST, "$NonCGIPath/BanLists/Floodcheck.cgi"); # don't bother with error code if it doesn't exist
@last_post_list = <LASTPOST>;
close(LASTPOST);
foreach (@last_post_list)
{ # check if this user has posted already
if (/^$IPNumber/){
($junk,$last_post_time) = split(/\(专业提供视频软件下载)
!!\(专业提供视频软件下载)
/,$_);
chomp($last_post_time);
last;
}
} # end foreach
$wait_between_posts *= 60; # convert wait_between_posts to seconds
if ( int(($this_post_time - $last_post_time) < $wait_between_posts))
{
&StandardHTML("抱歉,您刚刚发表过一篇文章,为了避免重复发表,请稍候返回$wait_between_posts秒再发表您的文章.");
exit;
}
else
{ # add the IP and posting time to the list
if (unshift(@last_post_list, "$IPNumber(专业提供视频软件下载)
!!(专业提供视频软件下载)
$this_post_time\n") > $lastpost_list_length)
{
$#last_post_list = $lastpost_list_length; # limit length of list
}
open(LASTPOST, ">$NonCGIPath/BanLists/Floodcheck.cgi") (专业提供视频软件下载)
(专业提供视频软件下载)
die(&StandardHTML("错误$!"));
print LASTPOST @last_post_list;
close(LASTPOST);
} #end else
return 1;
……