简单几行ASP便可生成无限英文字母验证码

<%
'过程名letter
'作用：无限生成随机英文字母
'作者：奇怪~`
'QQ号：373218510
'主页：

'---+---使用部分---------------+---------------------
function letter()
  for n=1 to 8
    randomize timer
   s=97+int(rnd*26)
response.write chr(s) '你也可以使用大小写转换函数 ucase(A) lcase(a)
  next
end function

'---+---测试部分---------------+---------------------
for n=1 to 9
  randomize timer
    s=97+int(rnd*26)
      if s<97 or s>122 then
        response.write "<font color=#FF0000>偏差值 "&s&"---偏差字符"&chr(s)&"</font><br>"
      else
    response.write "正常值 "&s&"---得到随机字母"&chr(s)&"<br>"
  end if
next
'---+---结束测试---------------+---------------------
%>