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