rothen ecotronics Bern: ASP-Skript "ASP Kontrollstrukturen: Passwort generieren"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

'*****************************************************************
'Variablendeklaration und -initialisierung
Dim intcounter
Dim arrPw(4,2)
Dim item

Randomize()

'*****************************************************************
'Lokale Prozeduren und Funktionen

'Erzeugt einen zufälligen Buchstaben in Gross- oder Kleinschrift
Function funStrBuchstabe()
  Dim intstartklein
  intstartklein = asc("a")
  Dim intendeklein
  intendeklein = asc("z")
  Dim strbuchstabe

  strBuchstabe = Chr(Fix(Rnd() * (intendeklein - intstartklein + 1)) _
    + intstartklein)
  If Rnd() > 0.5 Then
    strbuchstabe = UCase(strbuchstabe)
  End If
  funStrBuchstabe = strbuchstabe
End Function

'Erzeugt ein zufälliges Passwort mit Gross- und Kleinbuchstaben
Function funStrPw(intlength)
  Dim intcounter
  Dim strpw

  For intcounter = 1 to intlength
    strpw = strpw & funStrBuchstabe()
  Next
  funStrPw = strpw
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ASP Kontrollstrukturen: Passwort generieren</title>
<meta name="description" content="" />
<meta name="keywords" content="" /></head>
<body>
<%
  '*****************************************************************
  'Code innerhalb der HTML-Seite
  For intcounter = 0 To 3
    arrPw(intcounter, 0) = Fix(rnd() * 10) + 1
    arrPw(intcounter, 1) = funStrPw(5)
  Next

  Response.Write("<table border=""1"">" & vbCrLf)

  For intcounter = 0 To UBound(arrPw) - 1
    Response.Write("<tr>" & vbCrLf)
    Response.Write("<td>" & vbCrLf)
    Response.Write(arrPw(intcounter, 0) & vbCrLf)
    Response.Write("</td>" & vbCrLf)

    Response.Write("<td>" & vbCrLf)
    Response.Write(arrPw(intcounter, 1) & vbCrLf)
    Response.Write("</td>" & vbCrLf)
    Response.Write("</tr>" & vbCrLf)
  Next
  Response.Write("</table>" & vbCrLf)
%>

</body>
</html>

Demo: uebungen/uebung2_4.asp

Letzter Update: 26.12.2021 17:48

Zurück zur Liste mit ASP-Übungen auf www.ecotronics.ch