I have declared an object like this:
dim oTest
oTest = CreateObject("Scripting.Dictionary")
oTest.Add ("a", "Red")
oTest.Add ("b", "Blue")
and I want to pass this information to another page like this:
response.redirect ("nextpage.aspx?username=fred¶mstring=" & oTest)
but I'm getting this error:
Operator '&' is not defined for string "nextpage.aspx?username=fred" and type 'Dictionary'.
Can anyone help?
Functions to (de)serialize a Dictionary:
Option Explicit
Const csSD1 = "&"
Const csSD2 = "="
' make dictionary from string containing serialized dictionary (key-csSD2-value-csSD1-...)
Function s2d(s)
Dim d : Set d = CreateObject("Scripting.Dictionary")
Dim e, p
For Each e In Split(s, csSD1)
p = Split(e, csSD2)
d(p(0)) = p(1)
Next
Set s2d = d
End Function
' serialize dictionary to string (key-csSD2-value-csSD1-...)
Function d2s(d)
Dim a : a = d.Keys
Dim i
For i = 0 To UBound(a)
a(i) = Join(Array(a(i), d(a(i))), csSD2)
Next
d2s = Join(a, csSD1)
End Function
Dim s : s = "a=red&b=blue"
Dim d : Set d = s2d(s)
If s = d2s(d) Then WScript.Echo "ok"
s2d may return incorrect key-value pairs.The Scripting.Dictionary has two methods that might be helpful.
.Keys() - Returns an Array of the keys.Items() - Returns anArray` of the itemsUsing the two Arrays you could iterate through them and build up a String. Something like this should work.
<%
Dim DirTest
Dim DirKeys, DirItems
Dim Index, NumOfKeys, Params
Set DirTest = Server.CreateObject("Scripting.Dictionary")
With DirTest
Call .Add("a", "Red")
Call .Add("b", "Blue")
DirKeys = .Keys()
DirItems = .Items()
End With
If IsArray(DirKeys) Then
Params = ""
NumOfKeys = UBound(DirKeys)
For Index = 0 To NumOfKeys
Params = Params & DirKeys(Index) & "=" & DirItems(Index) & "&"
Next
'Trim the last Ampersand
Params = Left(Params, Len(Params) - 1)
Response.Write Params
End If
%>
Output:
a=Red&b=Blue
oTestcannot be pass directly toStringvariables, VBScript / Classic ASP doesn't support serialising objects you have to do that yourself using the various functions / methods available to you in VBScript.nextpage.aspxandaspxis an asp.net extension. 2- in VBScript your code cannot not compile due to errorMicrosoft VBScript compilation error: Cannot use parentheses when calling a Subby addressingoTest.Add (lines. 3-oTest = CreateObject("..is not a valid object assignment inVBScript, it should beSet oTest = CreateObject("... More evidence? And yes, you can store the object in Session, it works for both ASP Classic and ASP.Net.