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
%>