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

293 阅读 0 评论 194 点赞

我是靠谱客的博主昏睡身影，这篇文章主要介绍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
%>