在ASP应用程序中限制重复提交同一表单 （2）-ASP教程,ASP应用

function generatefid()
　initializefid
　session("fid") = session("fid") + 1
　generatefid = session("fid")
end function

sub registerfid()
　dim strfid
　initializefid
　strfid = request("fid")
　session("fidlist").add strfid, now()
end sub

function checkfid()
　dim strfid
　initializefid
　strfid = request("fid")
　checkfid = not session("fidlist").exists(strfid)
end function