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

Dim strbtnlblmult
strbtnlblmult = "Multiplizieren"
%>

<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Formularverarbeitung: Unterschied POST und GET</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
Post: <form action="030formularpostget.asp" method="post">
  <input type="Text" name="frmfldtext1" /> * <input type="text" name="frmfldtext2" />
  <input type="submit" value="<%=strbtnlblmult%>" name="btnsubmit">
</form>
Get: <form action="030formularpostget.asp" method="get">
  <input type="Text" name="frmfldtext1" /> * <input type="text" name="frmfldtext2" />
  <input type="submit" value="<%=strbtnlblmult%>" name="btnsubmit" />
</form>
<%
'Response.Write("<p>" & Request.Form & "</p>" & vbCrLf)
if Request.Form("btnsubmit") = strbtnlblmult then
  Response.Write("<p>" & Request.Form("frmfldtext1") & _
    " * " & Request.Form("frmfldtext2") & " = " & _
    Request.Form("frmfldtext1") * Request.Form("frmfldtext2") & _
    "</p>" & vbCrLf)

  'ohne .Form
  Response.Write("<p>ohne .Form: " & _
    Request("frmfldtext1") * Request("frmfldtext2") & _
    "</p>" & vbCrLf)
end if

if Request.Querystring("btnsubmit") = strbtnlblmult then
  Response.Write("<p>" & Request.Querystring("frmfldtext1") & " * " & _
    Request.Querystring("frmfldtext2") & " = " & _
    Request.Querystring("frmfldtext1") * Request.Querystring("frmfldtext2") & _
    "</p>" & vbCrLf)

  'ohne .Querystring
  Response.Write("<p>ohne .Querystring: " & _
    Request("frmfldtext1") * Request("frmfldtext2") & _
    "</p>" & vbCrLf)
end if
%>

<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: beispiele/030formularpostget.asp

Letzter Update: 26.12.2021 16:48

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