" & 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(/\
关键词：防范重复提交的子程序Asp版本