熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 10:40:18  來源: .NET編程 

  一個簡單生成隨機數程序
 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
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.