Aflæse Querystrings navne og værdier
Jeg fandt følgende i et spørgsmål på ekspertenog har ændret strTekst til andet eksempel
( http://www.eksperten.dk/spm/276531 )
<%
Dim strTekst, intStart, intSlut, intSidste
strTekst = "http://www.server.dk/test.asp?Name=Mads&city=Greve&phone=12345678"
do
t = t + 1
intStart = InStr(1, strTekst, "=") + 1
intSlut = InStr(intStart, strTekst, "&")
intSidste = int(len(strTekst) + 1)
If intSlut > 0 Then
Response.Write "<b>ID" & t & " : </b>" & Mid(strTekst, intStart, intSlut-intStart) & "<BR>"
Else
Response.Write "<b>ID" & t & " : </b>" & Mid(strTekst, intStart, intSidste-intStart) & "<BR>"
Exit do
End If
strTekst = Mid(strTekst, intSlut +1 , intSidste)
loop
%>
Det er i og for sig ogsåp fint nok .. den udskriver så
ID1 : Mads
ID2 : Greve
ID3 : 12345678
Det jeg ville høre jer eksperter om er, om man på samme måde, og i samme script kan udskrive navnene i stedet for bare ID1,ID2 osv ? altså eksempel
name : Mads
city : Greve
phone : 12345678
grunden er, at jeg aldrig ved hvilke navne og værdier en querystring har, ellers havde det jo været nemt nok ;o)
