当前位置:主页 > 软件编程 > ASP代码 >

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

时间:2021-07-15 09:31:47 | 栏目:ASP代码 | 点击:

<%
'******************************
'函数: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 
%>

您可能感兴趣的文章:

相关文章