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

Dim strbenutzerid
Dim intartnr 
Dim strsql 
Dim strtitle

strbenutzerid = "srothen_bern"
intartnr = 493 
strsql = ""

strtitle = ""
If Request.Querystring <> "" Then
  strtitle = " - QueryString: " & Request.Querystring
End If
%>

<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Statusverwaltung: Parameter schreiben und lesen<%=strtitle%></title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
'Beim ersten Aufruf der Seite wird ein Link mit 2 Parametern erstellt
If Request.QueryString = "" then
  Response.Write("<a href=""050parameter.asp?id=" & _
    Server.URLEncode(strbenutzerid) & "&artnr=" & _
    Server.URLEncode(intartnr) & """>Link mit Parametern</a>"
)
Else
'Beim zweiten Aufruf der Seite werden die Parameter wieder ausgelesen
  Response.Write("ID: " & _
    Request.QueryString("id") & "<br />" & vbCrLf)    
  strsql = "SELECT * FROM artikel WHERE artnr = " & _
    Request.QueryString("artnr"
  Response.Write(strsql & "<br />" & vbCrLf) 
End if
%>

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

Letzter Update: 26.12.2021 16:48

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