<%function XCL_suiji()RandomizeDo While Len(XCL_suiji)<12 '随机密码位数num1=CStr(Chr((57-48)*rnd+48)) '0~9num2=CStr(Chr((90-65)*rnd+65)) 'A~Znum3=CStr(Chr((122-97)*rnd+97)) 'a~zXCL_suiji=XCL_suiji&num1&num2&num3loopend function%><%=XCL_suiji%>