rothen ecotronics Bern: ASP-Skript "ASP Prozeduren und Funktionen: Array summieren (mit #include)"

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


<%
'*****************************************************************
'Variablendeklarationen
Dim arrzahlen
Dim arrtexte

'*****************************************************************
'Variableninitialisierung
arrzahlen = Array(3,2,4,7)
arrtexte = Array("Müller","Meier","Huber")

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

'*****************************************************************
'Anfang Code

'*****************************************************************
'Anfang <html>
%>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>ASP Prozeduren und Funktionen: Array summieren (mit #include)</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />
  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
'Aufruf der eingeschlossenen Funktion
Response.Write("Summe des Zahlenarrays: " & funsngarraysumme(arrzahlen) & "<br />" & vbCrLf)
Response.Write("Summe des Textarrays: " & funsngarraysumme(arrtexte) & "<br />" & vbCrLf)

'Aufruf der eingeschlossenen Prozedur
call procwritenachspann("Silvia", "Rothen")
%>

</body>
</html>

Demo: uebungen/uebung3_5.asp

Letzter Update: 26.12.2021 17:48

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