코드 사본은 다음과 같습니다.
<%
'시스템은 임의 암호를 할당합니다
functioncreatePass ()
Dimran, I, Lengthnum
longthnum = 6
createpass = ""
fori = 1tolengthnum
무작위 화
RAN = CINT (RND*2)
무작위 화
ifran = 0then
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
다음
최종 기능 장애
응답 .writeCreatePass ()
%>