<%
Wenn Request.Form („Prozess“) <> „zutreffend“ dann
Schwaches vCheck1, vCheck2, vCheck3, vLength
Schwaches vRand1, vRand2, vRand3
'Die Länge des geheimen Wortes erhalten
vLength = Len (rsPersonnel („PrivateWord“))
'Einen Buchstaben nach dem Zufall wählen
Randomisieren
vRand1 = Int (rnd*vLength) +1
'Sicherstellen, dass wir nicht den gleichen Buchstaben zweimal erhalten
Tun
vRand2 = Int (rnd*vLength) +1
Schlingen während vRand2 = vRand1
'Sicherstellen, dass wir nicht den gleichen Buchstaben dreimal erhalten
Tun
vRand3 = Int (rnd*vLength) +1
Schlingen während vRand3 = vRand1 oder vRand3 = vRand2
'Die Buchstaben in den Auftrag am höchsten sortieren, der am niedrigsten ist, für Drop-Down jedes
Wenn (vRand1>vRand2 und vRand1>vRand3) dann vCheck1 = vRand1
ElseIf (vRand1>vRand2 und vRand1vRand3 und vRand1vRand1 und vRand2>vRand3) dann vCheck2 = vRand2
ElseIf (vRand2>vRand1 und vRand2vRand3 und vRand2vRand1 und vRand3>vRand2) dann vCheck3 = vRand3
ElseIf (vRand3>vRand1 und vRand3vRand2 und vRand3
<%
Sub sPopulateDropdown (vStart, vEnd)
'Ein Drop-Down-Feld dynamisch bevölkern
I, sWrite verdunkeln
Für i = vStart vEnd
sWrite = „“
Response.Write sWrite
Zunächst
Enden-Unterseeboot
%> |