<% de l'id= " codeSnippet802477 " de >
de Request.Form (« processus ») « vrai » puis
Faible vCheck1, vCheck2, vCheck3, vLength
Faible vRand1, vRand2, vRand3
'Obtenir la longueur du mot secret
vLength = Len (rsPersonnel (« PrivateWord »))
'Choisir aléatoirement un caractère
Randomiser
vRand1 = international (rnd*vLength) +1
'S'assurer que nous n'obtenons pas le même caractère deux fois
Faire
vRand2 = international (rnd*vLength) +1
Faire une boucle tandis que vRand2 = vRand1
'S'assurer que nous n'obtenons pas le même caractère trois fois
Faire
vRand3 = international (rnd*vLength) +1
Faire une boucle tandis que vRand3 = vRand1 ou vRand3 = vRand2
'Assortir les caractères dans l'ordre, plus bas le plus haut, pour chacun dropdown
Si (vRand1>vRand2 et vRand1>vRand3) puis vCheck1 = vRand1
ElseIf (vRand1>vRand2 et vRand1vRand3 et vRand1vRand1 et vRand2>vRand3) puis vCheck2 = vRand2
ElseIf (vRand2>vRand1 et vRand2vRand3 et vRand2vRand1 et vRand3>vRand2) puis vCheck3 = vRand3
ElseIf (vRand3>vRand1 et vRand3vRand2 et vRand3
<%
Substrater le sPopulateDropdown (le vStart, vEnd)
'Peupler dynamiquement un champ dropdown
Obscurcir I, sWrite
Pour I = vStart à vEnd
sWrite = « value= de »
sWrite de Response.Write
Après
Sous-marin d'extrémité
le class= >