－请选择您的邮箱－ @rcmaling.com @rcmaling.com.cn       

<% Function gen_key(digits) 'Create and define array dim char_array(10) char_array(0) = "0" char_array(1) = "1" char_array(2) = "2" char_array(3) = "3" char_array(4) = "4" char_array(5) = "5" char_array(6) = "6" char_array(7) = "7" char_array(8) = "8" char_array(9) = "9" 'Initiate randomize method for default seeding randomize 'Loop through and create the output based on the the variable passed to 'the function for the length of the key. do while len(output) < digits num = char_array(Int((9 - 0 + 1) * Rnd + 0)) output = output + num loop 'Set return gen_key = output End Function %>