Quellcode-Beispiel

 


 

Hinweis:
Der Quelltext wurde so erstellt, dass er direkt per kopieren und einfügen in Ihre Anwendung übernohmen werden kann.

 

<% @Page Language="VB" %>
<script runat="server">

'ALLGEMEINE HINWEISE:
'=================================================================================================================================================
'• Achten Sie darauf, dass die DLL im Ordner "bin" (auf der obersten Ebene Ihrer Site) liegt.
'• Ein telefonischer Support für unsere Freeware-Produkte ist nicht möglich.
'• Dieses Produkt wurde von der Firma "click the web" - Güstrower Chaussee 16 in 19406 Witzin (Germany) erstellt.
'• Weitere Informationen zum Erwerb dieses Produkts finden Sie unter http://www.ASP-TOOLS.de
'=================================================================================================================================================



Public Meldung as String = "" 'Enthält die Meldung an den USER.

Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

   'BEGINN VARIABLEN-DEKLARATION:
   Const AppName as String = "CheckCount" 'Enthält den Namen für die Application-Variable.
   Const MaxCount as Byte = 3 'Legt fest, nach wievielen Aufrufen dieser Funktion "True" zurückgegeben werden soll.
   Const DelAppName as Integer = 5 'Legt fest, nach wievielen Minuten die Application-Variable wieder gelöscht werden soll.

    If DE.CTW.CheckCountLogIn.Check(AppName, MaxCount, DelAppName) = True Then
      subStart.disabled = True
      Meldung &= "Um Missbrauch zu vermeiden ist die Anzahl der Versuche "
      Meldung &= "auf maximal "& MaxCount &" Versuche festgelegt.\n"
      Meldung &= "Der Zugang wurde für "& DelAppName &" Minuten gesperrt.\n\n"
      Meldung &= "Zum Schutze unserer Kunden bitten wir Sie daher um Ihr Verständnis."
      Exit Sub
   End If
End Sub
</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<form runat="server">
Geben Sie bitte hier zu Testzwecken irgend welche Daten ein.<br>
Nachdem Sie 3x das Formular abgesendet haben, wird dieses automatisch gesperrt.
<table>
<tr><td>Benutzer-Name</td><td><input type="text" id="txtBenutzername" size="35" runat="server"></td></tr>
<tr><td>Kennwort</td><td><input type="password" id="txtKennwort" size="35" runat="server"></td></tr>
</table>

<table><tr><td align="center"><input type="submit" id="subStart" value="S T A R T" runat="server"></td></tr></table>
</form>
<script>var M="<%= Meldung %>";if(M!=''){alert(M)}</script>
</body>
</html>