<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
on error resume next
%>
<!-- Hier stehen Include-Anweisungen für einzuschliessende Dateien -->
<%
'***************************************************************************
'Variablendeklaration und -initialisierung
Dim intanzversuche
Dim strbegruessung
'***************************************************************************
'Lokale Prozeduren und Funktionen
'***************************************************************************
'Hier steht Code, der vor dem Seitenkopf stehen muss, z.B. Response.Redirect
If Request("anzversuche") <> "" Then
intanzversuche = Request("anzversuche") + 1
If Request("fldbenutzername") = "gast" And Request("fldpasswort") = "gast" Then
strbegruessung = "Hallo " & Request("fldbenutzername")
ElseIf intanzversuche >= 3 Then
Response.Redirect "uebung4_4login2.asp"
End If
Else
intanzversuche = 0
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<title>ASP Weitere Objekte: Loginformular mit Redirect 1
</title>
<meta name="description" content="" />
<meta name="keywords" content="" />
</head>
<body>
<h1>Login
</h1>
<%
If intanzversuche < 3 And strbegruessung = "" Then
%>
<form method="POST" action="uebung4_4login1.asp">
<table border="1" style="border-collapse: collapse" id="table1">
<tr>
<td>Benutzername:
</td>
<td><input type="text" name="fldbenutzername" size="20" />
<input type="hidden" name="anzversuche" value="<%=intanzversuche%>" />
</td>
</tr>
<tr>
<td>Passwort:
</td>
<td><input type="password" name="fldpasswort" size="20" /></td>
</tr>
</table>
<input type="submit" value="Login" name="btnsubmit">
</form>
<%
Else
%>
<p><%=strbegruessung%></p>
<%
End If
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: uebungen/uebung4_4login1.asp
Letzter Update:
26.12.2021 16:48
Zurück zur
Liste mit ASP-Übungen auf
www.ecotronics.ch