<%
'ASP генерирует случайные строки (число + нижние и нижние буквы).
'Huinan Practices для меня, а не то, что я хочу
Функция
DimChar_array (80)
Dimtemp
Fori = 0to9
char_array (i) = cstr (i)
Следующий
Fori = 10to35
char_array (i) = chr (i+55)
Следующий
Fori = 36to61
char_array (i) = chr (i+61)
Следующий
Рандомизировать
Fori = 1toObj
Случайное число, возвращаемое функцией RND, составляет от 0 до 1, что может быть равным 0, но не 1
'Формула: int (((предел верхнего предельного лунка+1)*rnd+нижний предел) может получить число из нижнего предела до верхнего предела, что может быть равным нижнему пределу, но не может быть равным верхнему пределу
temp = temp & char_array (int (62-0+1)*rnd+0)
Следующий
randkey = temp
Конечная функция
Response.write (randkey (6))
%>