checkcode.asp

大学的综合测评

<%	
'验证码
Response.buffer = True
function chkcode()
    Response.Expires = -1
    Response.AddHeader "Pragma", "no-cache"
    Response.AddHeader "cache-ctrol", "no-cache"
    dim temprnd7666
	Randomize
	temprnd7666=cstr(Int((9999 - 1000 + 1) * Rnd() + 1000))
	response.Write (temprnd7666)
	Session("CheckCode")=temprnd7666
end function
%>