ASPインスタンスチュートリアルこの記事では、ランダム文字列を生成する方法を紹介します。この例では、13のランダム文字列を生成する方法を紹介します。
<html>
<title>
学生の開始文字列www.vevb.com </title>
<body>
<％
関数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）
次
ランダム化タイマー「乱数ジェネレーターを初期化」します。
len（output）<桁を実行します
num = char_aray（int（（62-0 + 1） * rnd + 0））
出力=出力 + num
ループ
'返品値を設定します
gen_key = output
エンド関数
'結果をブラウザに返します
response.writeこのインスタンスによって生成された13のランダムな文字列は次のとおりです。
Response.Write <Center>
Response.writegeen_key（13）
Response.Write </center>
％>
</body>
</html>