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