rothen ecotronics Bern: ASP-Skript "ASP Statusverwaltung: Parameter schreiben und lesen<%=strtitle%>"

<%@ 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
%>

<html>
<head>
<title>ASP Statusverwaltung: Parameter schreiben und lesen<%=strtitle%></title>

</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
%>

</body>
</html>
Demo: beispiele/050parameter.asp

Letzter Update: 26.12.2021 17:48

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