海南(nán)世紀雲圖網絡科技有限公司
咨詢熱線:400-822-8458 客戶服務:0898-32183600

ASP随機生(shēng)成英文+數字位數長度的随機碼函數

發表于:2011-07-15 00:00:00來源:SOUAB.COM人氣:3447

ASP/Visual Basic代碼
  1. <%    
  2. '******************************    
  3. '函數:Generator(Length)    
  4. '參數:Length,任意長度的數值,随機碼位數    
  5. '描述:生(shēng)成任意英文+數字位數長度的随機碼函數    
  6. '示例:Generator(80)    
  7. '******************************    
  8. Function Generator(Length)    
  9. Dim i, temp    
  10. temp = "abcdefghijklmnopqrstuvwxyz1234567890"    
  11. Generator = ""    
  12. If isNumeric(Length) = False Then    
  13. Exit Function    
  14. End If    
  15. For i = 1 to Length    
  16. Randomize    
  17. Generator = Generator & Mid(temp,Int((Len(temp) * Rnd) + 1),1)    
  18. Next    
  19. End Function    
  20. Response.Write(""&Generator(6)"")   
  21. %>  

 

文章整理: 世紀雲圖  https://www.yuntop.cc/

以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!

版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)們,我(wǒ)們收到後立即删除,謝謝!

特别注意:本站部份轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系,版權歸原作者所有。

微信
網站建設
軟件業務
網絡營銷
400電話(huà)