（在说正事之前，我要推荐一个福利：你还在原价购买阿里云、腾讯云、华为云服务器吗？那太亏啦！来这里，新购、升级、续费都打折，能够为您省60%的钱呢！2核4G企业级云服务器低至69元/年，点击进去看看吧>>>)
<%
'******************************
'函数：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 
%>