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

　　一個簡單生成隨機數程序
 Public Function GetRndCode(maxLen)
  Dim strNewPasswhatsNextupperlowerintCounter
  Randomize
  For intCounter = To maxLen
   whatsNext = Int(( + ) * Rnd + )
   If whatsNext = Then
    upper =
    lower =
   Else
    upper =
    lower =
   End If
   strNewPass = strNewPass & Chr(Int((upper lower + ) * Rnd + lower))
  Next
  GetRndCode = strNewPass
 End Function
 
 使用方法
 code =GetRndCode()

From:http://tw.wingwit.com/Article/program/net/201311/14261.html