悠悠博客 关注Ajax技术与web开发

下列函数，用以生成随机的字符串

function MyRandc(n) '生成随机字符，n为字符的个数
 dim thechr
 thechr = ""
 for i=1 to n
  dim zNum,zNum2
  Randomize
  zNum = cint(25*Rnd)
  zNum2 = cint(10*Rnd)
  if zNum2 mod 2 = 0 then
   zNum = zNum + 97
  else
   zNum = zNum + 65
  end if
  thechr = thechr & chr(zNum)
 next
 MyRandc = thechr
end function

使用方法：

MyRandc(n) 生成随机字符，n为字符的个数

如：
response.write MyRandn(10)
输出10个随机字符