Tutorial Instance ASP Arterial ini memperkenalkan Anda cara menghasilkan string acak, dan contoh ini memperkenalkan cara menghasilkan 13 string acak.
<Html>
<title>
Siswa Memulai String www.vevb.com </title>
<body>
<%
Fungsi gen_key (digit)
'Definisi dan inisialisasi array
Dim Char_array (80)
'Nomor Inisialisasi
Untuk i = 0 hingga 9
char_array (i) = cstr (i)
Berikutnya
'Inisialisasi huruf besar
Untuk i = 10 hingga 35
char_array (i) = chr (i + 55)
Berikutnya
'初始化小写字母
For i = 36 To 61
char_array(i) = Chr(i + 61)
Berikutnya
Mengacak Timer 'menginisialisasi generator angka acak.
Lakukan saat len (output) <digit
Num = char_aray (int ((62-0 + 1) * rnd + 0))
output = output + num
lingkaran
'Tetapkan nilai pengembalian
Gen_key = output
Fungsi akhir
'Kembalikan hasilnya ke browser
Response.write The Thireen Random String yang Dihasilkan oleh Instance ini adalah:
Response.write <Tenter>
response.write geen_key (13)
response.write </denter>
%>
</body>
</html>