<％
'ASPはランダムな文字列（数 +小文字と小文字）の演習を生成します
「私が望むものではなく、私のためにhuinanの実践
functionrandkey（obj）
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））
％>