防范重复提交的子程序Asp版本

")
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 & "

关键词：防范重复提交的子程序Asp版本