<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
'on error resume next
Dim intzahl, strtext
intzahl = 5
strtext = "text"
Function funquadriere (ByVal varwert)
Dim intresultat
intresultat = 0
If IsNumeric(varwert) then
intresultat = varwert * varwert
End If
funquadriere = intresultat
End Function
%>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Kontrollstrukturen: Benutzerdefinierte Funktion
</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
Response.Write(intzahl & " * " & intzahl & " = " & _
funquadriere(intzahl) & "<br />" & vbCrLf)
Response.Write(strtext & " * " & strtext & " = " & _
funquadriere(strtext) & "<br />" & vbCrLf)
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: beispiele/020vbsfuncdefinition.asp
Letzter Update:
26.12.2021 17:48
Zurück zur
Liste mit ASP-Beispielen auf
www.ecotronics.ch