コードコピーは次のとおりです。
<％
'システムはランダムなパスワードを割り当てます
functionCreatepass（）
Dimran、I、Lengthnum
andnum = 6
createpass = ""
fori = 1tolengthnum
ランダム化
ran = cint（rnd*2）
ランダム化
ifran = 0 -then
ran = cint（rnd*25）+97
createpass = createpass＆ucase（chr（ran））
elseifran = 1then
ran = cint（rnd*9）
createpass = createpass＆ran
elseifran = 2then
ran = cint（rnd*25）+97
createpass = createpass＆chr（ran）
endif
次
エンド機能
respons.writecreatepass（）
％>