asp 一个简单生成随机数程序

2015-08-12 16:03:10来源:作者:人点击

一个简单生成随机数程序
 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)

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台