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