〈input name="yzm" type="text" size="6" maxlength="4"〉〈font face="Arial, Helvetica, sans-serif" color="#FF0000"〉 
              〈%
    dim temprnd '声明变量
    Randomize
    temprnd=cstr(Int((99999 - 10000 + 1) * Rnd() + 10000)) '生成数值 10000-99999之间值
    response.Write (temprnd)  '显示变量 temprnd 值
     %〉〈/font〉  判断方式 temprnd 变量名称 = yzm 即可