海口秀英隆智慧網絡科技工作室
咨詢熱線:400-822-8458 客戶服務:0898-32183600

ASP随機生成英文+數字位數長(cháng)度的(de)随機碼函數

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

ASP/Visual Basic代碼
  1. <%    
  2. '******************************    
  3. '函數:Generator(Length)    
  4. '參數:Length,任意長(cháng)度的(de)數值,随機碼位數    
  5. '描述:生成任意英文+數字位數長(cháng)度的(de)随機碼函數    
  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. %>  

 

文章(zhāng)整理(lǐ): 世紀雲圖  /

以上信息與文章(zhāng)正文是不可(kě)分割的(de)一(yī)部分,如(rú)果您要轉載本文章(zhāng),請保留以上信息,謝謝!

版權申明:本站文章(zhāng)部份來自(zì)網絡,如(rú)有侵權,請聯系我們,我們收到後立即删除,謝謝!

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

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