<% Option explicit With Response .Buffer=True .Expires = -1 .AddHeader "Pragma","No-Cache" .AddHeader "Cache-ctrol","No-Cache" End With dim TmpNum,chk,keys Randomize timer TmpNum = clng(89999999*Rnd+10000000) chk=request.Form("chk") keys=request.form("keys") if keys="check" then if chk&""=session("GetChkNum")&"" then Response.Write"" Response.end else Response.Write"" Response.end end if end if %>