<
%
function XCL_suiji()
Randomize
Do While Len (XCL_suiji) < 12 ' 随机密码位数
num1 = CStr ( Chr (( 57 - 48 ) * rnd + 48 )) ' 0~9
num2 = CStr ( Chr (( 90 - 65 ) * rnd + 65 )) ' A~Z
num3 = CStr ( Chr (( 122 - 97 ) * rnd + 97 )) ' a~z
XCL_suiji = XCL_suiji & num1 & num2 & num3
loop
end function
% >
< % = XCL_suiji% >
function XCL_suiji()
Randomize
Do While Len (XCL_suiji) < 12 ' 随机密码位数
num1 = CStr ( Chr (( 57 - 48 ) * rnd + 48 )) ' 0~9
num2 = CStr ( Chr (( 90 - 65 ) * rnd + 65 )) ' A~Z
num3 = CStr ( Chr (( 122 - 97 ) * rnd + 97 )) ' a~z
XCL_suiji = XCL_suiji & num1 & num2 & num3
loop
end function
% >
< % = XCL_suiji% >