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