<%
'ASP menghasilkan string acak (angka + huruf kecil dan rendah) latihan)
'Seorang Huinan berlatih untuk saya, bukan yang saya inginkan
FunctionRandKey (OBJ)
DIMCAR_Array (80)
Dimtemp
Fori = 0to9
char_array (i) = cstr (i)
Berikutnya
Fori = 10to35
char_array (i) = chr (i+55)
Berikutnya
Fori = 36to61
char_array (i) = chr (i+61)
Berikutnya
Mengacak
Fori = 1toobj
Angka acak yang dikembalikan oleh fungsi 'RND adalah antara 0 dan 1, yang bisa sama dengan 0, tetapi tidak 1
'Formula: int ((batas batas atas lebih rendah+1)*rnd+batas bawah) dapat memperoleh angka dari batas bawah ke batas atas, yang dapat sama dengan batas bawah tetapi tidak dapat sama dengan batas atas
temp = temp & char_array (int (62-0+1)*rnd+0)
Berikutnya
randkey = temp
Fungsi endfungsi
Response.write (Randkey (6))
%>