<% '============================================================ ' Deffiniera lösenord. '============================================================ CorrectPassword = "dd" '============================================================ ' Räknar hur många gånger en använadre försök att loggain. ' Antalet försök kontrolleras på inlogningssidan, ' efter ett antal misslyckade försök stopas användaren. '============================================================ Session("LoginTries") = Session("LoginTries") + 1 %>

Intranet - For more fun

 

<% '============================================================ ' Kontrollera inmatad lösenord '============================================================ If Request.Form("Login") = CorrectPassword Then ' Skapa Session Session("AlreadyIn") = "True" Session("Login") = "True" %>

Du är nu inloggad

Ändra i gästboken

 

Logga ut <% Else Session("AlreadyIn") = "" ' Om inte första inloggningsförsöket If Request.QueryString("what") = "login" Then %>

Felaktigt lösenord

Försök igen

<% End If If Session("LoginTries") =>4 Then %>

Du har försökt <% =Session("LoginTries")-1 %> gånger
Logga ut

<% Else %>

 


Lösenord: 

<% End If End If %>