Учебное пособие по экземпляру ASP В этой статье знакомит вас, как генерировать случайную строку, и этот пример представляет, как генерировать 13 случайных строк.
<html>
<Название>
Студент стартовая строка www.vevb.com </title>
<тело>
<%
Функция Gen_key (цифры)
'Определение и инициализируйте массив
Dim char_array (80)
'Номер инициализации
Для i = 0 до 9
char_array (i) = cstr (i)
Следующий
'Инициализация прописных букв
Для i = от 10 до 35
char_array (i) = chr (i + 55)
Следующий
'Инициализируйте строчную букву
Для i = 36-61
char_array (i) = chr (i + 61)
Следующий
Рандомизируйте таймер 'инициализировать генератор случайных чисел.
Делать, пока Лен (выход) <цифры
Num = char_aray (int ((62-0 + 1) * rnd + 0))
output = output + num
петля
'Установите возвратное значение
Gen_key = output
Конечная функция
'Вернуть результат в браузер
Ответ. Написайте тринадцать случайных строк, сгенерированной этим экземпляром:
response.write <Center>
response.write geen_key (13)
response.write </center>
%>
</body>
</html>