asp教程

asp生成随机数

位置:首页 > asp教程 > asp技巧,2012-11-02
一个简单生成随机数程序PublicFunctionGetRndCode(maxLen)DimstrNewPass,whatsNext,upper,lower,intCounterRandomizeFo...
一个简单生成随机数程序
 Public Function GetRndCode(maxLen)
  Dim strNewPass,whatsNext,upper,lower,intCounter
  Randomize
  For intCounter = 1 To maxLen
   whatsNext = Int((1 - 0 + 1) * Rnd + 0)
   If whatsNext = 0 Then
    upper = 90
    lower = 65
   Else
    upper = 57
    lower = 48
   End If
   strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
  Next
  GetRndCode = strNewPass
 End Function
 
 使用方法
 code =GetRndCode(15)

TAGS:asp生成随机数

猜你喜欢

NewHot