Get Original Querystring Values After Decryption

Anyone have a VB function or know how to retrieve original querystring
values after they have been decryted and lie within a string?

For example:
Say I have the querystring "id=99&page=5&value=&info=true" which has
been encrypted, sent as one querystring
"encryptedstring=blahblahblah", and then decrypted back into the
original string "id=99&page=5&value=&info=true". How do I get those
querystring values associated back with the string name like..
<%
id="99"
page="5"
value=""
info="true"
%>

I came up with this function, but of course a variable can't have a
name that is assigned like this..
<%
input = "query=1&this=ds2&again=&another=333"

Function GetQueryValues(strQuery)
aryQuery = split(strQuery, "&") 'Split into Name=Value
For i = 0 to UBound(aryQuery)
subAryQuery = split(aryQuery(i), "=") 'Split name and value into two
variables
subAryQuery(0) = subAryQuery(1)
Next
End Function

GetQueryValues(input)
%>

Suggestions???

William
Mon Sep 15 03:07:29 CDT 2003

spradl wrote:
> Anyone have a VB function or know how to retrieve original querystring
> values after they have been decryted and lie within a string?
>
> For example:
> Say I have the querystring "id=99&page=5&value=&info=true" which has
> been encrypted, sent as one querystring
> "encryptedstring=blahblahblah", and then decrypted back into the
> original string "id=99&page=5&value=&info=true". How do I get those
> querystring values associated back with the string name like..
> <%
> id="99"
> page="5"
> value=""
> info="true"
> %>
>
> I came up with this function, but of course a variable can't have a
> name that is assigned like this..
> <%
> input = "query=1&this=ds2&again=&another=333"
>
> Function GetQueryValues(strQuery)
> aryQuery = split(strQuery, "&") 'Split into Name=Value
> For i = 0 to UBound(aryQuery)
> subAryQuery = split(aryQuery(i), "=") 'Split name and value into two
> variables
> subAryQuery(0) = subAryQuery(1)
> Next
> End Function
>
> GetQueryValues(input)
> %>
>
> Suggestions???

use session variables perhaps?

session (subAryQuery(0)) = subAryQuery(1)

--
William Tasso - http://WilliamTasso.com

Ken
Mon Sep 15 03:12:49 CDT 2003

You could use the Script.Dictionary component

That would give you "keys" named Id, page, etc, and values 99, 5 etc

Cheers
Ken

"spradl" <spradl@hotmail.com> wrote in message
news:745950ab.0309142313.1d4ebe0b@posting.google.com...
: Anyone have a VB function or know how to retrieve original querystring
: values after they have been decryted and lie within a string?
:
: For example:
: Say I have the querystring "id=99&page=5&value=&info=true" which has
: been encrypted, sent as one querystring
: "encryptedstring=blahblahblah", and then decrypted back into the
: original string "id=99&page=5&value=&info=true". How do I get those
: querystring values associated back with the string name like..
: <%
: id="99"
: page="5"
: value=""
: info="true"
: %>
:
: I came up with this function, but of course a variable can't have a
: name that is assigned like this..
: <%
: input = "query=1&this=ds2&again=&another=333"
:
: Function GetQueryValues(strQuery)
: aryQuery = split(strQuery, "&") 'Split into Name=Value
: For i = 0 to UBound(aryQuery)
: subAryQuery = split(aryQuery(i), "=") 'Split name and value into two
: variables
: subAryQuery(0) = subAryQuery(1)
: Next
: End Function
:
: GetQueryValues(input)
: %>
:
: Suggestions???

spradl
Thu Sep 18 07:52:26 CDT 2003

Anyone???