checkcode.asp

来自「本系统无论是现在还是将来的升级的版本均免费。学生综合测评分也叫综合分或者纪律分」· ASP 代码 · 共 14 行

<%	
'验证码
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
%>