asp 生成任意英文+数字位数长度的随机码函数

网络编程 2021-07-05 10:58www.168986.cn编程入门
<%
'
'函数Generator(Length)
'参数Length,任意长度的数值,随机码位数
'作者阿里西西
'日期2007/7/15
'描述生成任意英文+数字位数长度的随机码函数
'示例Generator(80)
'
Function Generator(Length)
 Dim i, tempS
 tempS = "abcdefghijklmnopqrstuvwxyz1234567890" 
 Generator = ""
 If isNumeric(Length) = False Then 
  Exit Function 
 End If 
 For i = 1 to Length 
  Randomize 
  Generator = Generator & Mid(tempS,Int((Len(tempS)  Rnd) + 1),1)
 Next 
End Function 
%>

Copyright © 2016-2025 www.168986.cn 狼蚁网络 版权所有 Power by