8个asp生成随机字符的函数（2）

3.
这个虽然不是函数，也不是常规的随机函数，但是当我们想让它随机输出我们指定的字符时，可以用到下面的方法。

dim a(5)
randomize 
t=int(rnd*5) 
a(0)="yingyu" 
a(1)="laoda" 
a(2)="wangzhan" 
a(3)="maiwangzhan" 
a(4)="hehe" 

使用方法：

response.Write(a(t))

 
4.
功能说明：返回16位随机字符，大小写英文字母加数字

public   function   Generate_Key()   
    
  Randomize   
    
  do     
  num   =   Int((75   *   Rnd)+48)   
  found   =   false   
  if   num   >=   58   and   num   <=   64   then     
  found   =   true   
  else     
  if   num   >=91   and   num   <=96   then   
  found   =   true   
  end   if   
  end   if   
  if   found   =   false   then   
  RSKey   =   RSKey+Chr(num)   
  end   if   
  loop   until   len(RSKey)=16   
      
  Generate_Key=RSKey   
      
  end   function   

使用方法：

  Response.Write   Generate_Key()