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

% ''****************************** ''函数:Generator(Length) ''参数:Length,任意长度的数值,随机码位数 ''作者:阿里西西 ''日期:2007/7/15 ''描述:生成任意英文+数字位数长度的随机码函数 ''示例:Generator(80) ''****************************** FunctionGenerator(Length) Dimi,tempS tempS='abcdefghijklmnopqrst

作者: 来源: 时间: 17-11-23 15:27:32

<%
''******************************
''函数: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 
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们