萬盛學電腦網

 萬盛學電腦網 >> 網絡編程 >> asp編程 >> asp 一個簡單生成隨機數程序

asp 一個簡單生成隨機數程序

一個簡單生成隨機數程序
 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)

copyright © 萬盛學電腦網 all rights reserved