randompassword.aspxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
<%
Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword
genPassword = \”\”
Randomize
‘ ç¨Randomizeçæéæºç§å.
For i = 1 to 7
‘ 循ç¯7次ï¼å³å建7ä½éæºå¯ç .
intNum = Int(10 * Rnd + 48)
‘ 0-9çASCIIç èå´æ¯48-57.
intUpper = Int(26 * Rnd + 65)
‘ A-ZçASCIIç èå´æ¯65-90.
intLower = Int(26 * Rnd + 97)
‘ a-zçASCIIç èå´æ¯97-123.
intRand = Int(3 * Rnd + 1)
‘ 对Int(3 * Rnd + 1)åæ´å¾å°intRand,ä¼æ3ç§ç»æ,ç¨select caseå¤æå½åçintRandå¼æ¯1,2è¿æ¯3.å¦ææ¯1æ¾ç¤ºæ°å,æ¯2æ¾ç¤ºå¤§åå符,æ¯3åæ¾ç¤ºå°åå符.
Select Case intRand
Case 1
strPartPass = Chr(intNum)
‘ ç¨Chræ¹æ³æ¢ç®å°å¯¹åºçASCIIå¼.
Case 2
strPartPass = Chr(intUpper)
Case 3
strPartPass = Chr(intLower)
End Select
genPassword = genPassword & strPartPass
Next
randomPassword = genPassword
‘ å°å建çå¯ç ä¿åå¨åérandomPasswordä¸.
%>
<%=\”请ä¿å好ï¼æ¨çå¯ç æ¯ï¼\” & randomPassword%>
Â
[1]