[Resolvido] remover um item da querystring

[xanburzum 169]

Esta função irá remover um item da seqüência de consulta e retornar a querystring querystring novo.

 

 

Function Removeitemq(ByVal OriginalQS, ByVal RemoveItem)
    If OriginalQS = "" Then Exit Function
    If RemoveItem = "" Then Exit Function
    Dim newQS: newQS = ""
    tmpQS = Split(OriginalQS ,"&")
    For i=0 To UBound(tmpQS)
    tmpPair = Split(tmpQS(i),"=")
    If Trim(tmpPair(0)) <> Trim(RemoveItem) Then
    If Trim(newQS) <> "" Then newQS = newQS &"&"
    newQS = newQS & tmpPair(0) &"="& tmpPair(1)
    End If
    Next
    Removeitemq= newQS
    End Function

 

 

 

Exemplo:

 

querystring = "x=2&y=3&z=4&w=5"
    novaquerystring  = Removeitemq(querystring ,"z")
    response.write novaquerystring  
    resultado: a=2&b=3&d=5