<%
Jeżeli Request.Form ("proces") <> "prawdziwy" Wtedy
Ciemnawy vCheck1, vCheck2, vCheck3, vLength
Ciemnawy vRand1, vRand2, vRand3
'Dostawać the długość the tajny słowo
vLength = Len (rsPersonnel ("PrivateWord"))
'Przypadkowo wybierać charakter
Randomizować
vRand1 = Int (rnd*vLength) +1
'Upewniać się my dostawać the ten sam charakter dwa razy
vRand2 = Int (rnd*vLength) +1
Zapętlać Podczas Gdy vRand2 = vRand1
'Upewniać się my dostawać the ten sam charakter ten sam
vRand3 = Int (rnd*vLength) +1
Zapętlać Podczas Gdy vRand3 = vRand1 Lub vRand3 = vRand2
'Sortować the charakter w rozkaz, niski wysoki, dla wysoki wysoki
Jeżeli (vRand1>vRand2 I vRand1>vRand3) Wtedy vCheck1 = vRand1
ElseIf (vRand1>vRand2 I vRand1vRand3 I vRand1vRand1 I vRand2>vRand3) Wtedy vCheck2 = vRand2
ElseIf (vRand2>vRand1 I vRand2vRand3 I vRand2vRand1 I vRand3>vRand2) Wtedy vCheck3 = vRand3
ElseIf (vRand3>vRand1 I vRand3vRand2 I vRand3
<%
Okręt podwodny sPopulateDropdown (vStart, vEnd)
'Pole zaludniać pole pole
Ćmić i, sWrite
Dla i = vStart vEnd
sWrite = ""
Response.Write sWrite
Następnie
Końcówka Okręt podwodny
%> |