<%@ Language=VBScript %>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Weitere Objekte: Dictionaries erzeugen und anzeigen
</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
Dim objcapitals, objcapital
Set objcapitals = Server.CreateObject("Scripting.Dictionary")
objcapitals.Add "England", "London"
objcapitals.Add "Frankreich", "Paris"
objcapitals.Add "Schweiz", "Bern"
Response.Write("<p>" & objcapitals.Item("Frankreich") & "</p>" & vbCrLf)
Response.Write("<p>" & objcapitals.count & _
" Hauptstädte eingetragen</p>" & vbCrLf)
For Each objcapital In objcapitals
Response.Write(objcapital & ": Die Hauptstadt ist " & _
objcapitals.Item(objcapital) & "<br />" & vbCrLf)
Next
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: beispiele/040dictionary.asp
Letzter Update:
26.12.2021 16:48
Zurück zur
Liste mit ASP-Beispielen auf
www.ecotronics.ch