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