Numerieke parameters opvragen
Numerieke parameters die zijn doorgegeven via de url of gepost door een formulier kunnen met de onderstaande functie worden opgevraagd.
Bijvoorbeeld: /pagina.asp?categorie=450. Hier wordt een parameter 'categorie' met de waarde 450 doorgegeven. De onderstaande functie controleert of er inderdaad een getal wordt doorgegeven, of deze positief is en geeft dan het getal als resultaat.
Afhankelijk van de toepassing kunt u meer controles toevoegen. Wanneer de waarde in een database word opgeslagen kunt u bijvoorbeeld een controle toevoegen waarmee te grote waarden worden voorkomen.
<%
Function BepaalParameter(ParameterNaam)
'--------------------------------------------------------------------------------------------------------------------
' Een parameter opvragen, controleren of het is opgegeven. De parameter moet
' een getal zijn. 0 terug geven bij fout cq niet opgegeven.
'--------------------------------------------------------------------------------------------------------------------
Dim checkDNP, lngDNP
On Error Resume Next
'// De doorgegeven parameter, zoals artikel=8839.
checkDNP = Trim(Request(ParameterNaam))
If checkDNP = "" Then
'// Geen parameter opgegeven, dan 0 teruggeven ter fout-indicatie.
lngDNP = 0
Else
'// Controleren of het inderdaad een getal is.
If Not IsNumeric(checkDNP) Then
'// Ongeldige parameter opgegeven.
lngDNP = 0
Else
'// We willen alleen absolute waarden.
lngDNP = Abs(checkDNP)
End If
End If
'// Parameter retourneren.
BepaalParameter = lngDNP
End Function
%>
<html>
<head>
<title>Practical Active Server Pages : Numerieke Parameters Bepalen</title>
<!-- Practical ASP wordt u aangeboden door Nedcomp Hosting -->
</head>
<body>
<hr size="1" color="#008080">
<!-- Doorgegeven parameter in de pagina weergeven. -->
<p><%= BepaalParameter("categorie") %></p>
<p><%= BepaalParameter("artikel") %></p>
<hr size="1" color="#008080">
<!--
Opmerking: parameters combineren is mogelijk met de ampersand.
Voorbeeld: /pagina.asp?categorie=405&artikel=36
-->
</body>
</html>
|