<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next
Dim dattimeofday
%>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Kontrollstrukturen: Select Case
</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
Response.Write("Die aktuelle Zeit: " & _
time() & "<br />"&vbCrLf)
'Wandelt die aktuelle Tageszeit in 0 vor 8, 1 vor Mittag,
'2 vor 18:00 oder 3 um
dattimeofday = Int(CSng(Time())*4)
Response.Write("Variable dattimeofday: " & _
dattimeofday & "<br />" & vbCrLf)
'Mehrfachverzweigung mit Select Case
Select Case dattimeofday
Case 0
Response.Write("So früh oder so spät?<br />" & vbCrLf)
Case 1
Response.Write("Guten Morgen<br />" & vbCrLf)
Case 2
Response.Write("Guten Nachmittag<br />" & vbCrLf)
Case Else
Response.Write("Noch so spät?<br />" & vbCrLf)
End Select
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: beispiele/020selectcase.asp
Letzter Update:
26.12.2021 17:48
Zurück zur
Liste mit ASP-Beispielen auf
www.ecotronics.ch