Subversion Repositories DevTools

Rev

Rev 3959 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3959 Rev 4253
Line 1... Line -...
1
<%
-
 
2
'June 2013 - Version 1.1 by Gerrit van Kuipers
1
'June 2013 - Version 1.1 by Gerrit van Kuipers
3
Class aspJSON
2
Class aspJSON
4
	Public data
3
	Public data
5
	Private p_JSONstring
4
	Private p_JSONstring
6
	Private p_datatype
5
	Private p_datatype
Line 67... Line 66...
67
			End If
66
			End If
68
		Next
67
		Next
69
	End Function
68
	End Function
70
 
69
 
71
	Public Function Collection()
70
	Public Function Collection()
72
		set Collection = Server.CreateObject("Scripting.Dictionary")
71
		set Collection = CreateObject("Scripting.Dictionary")
73
	End Function
72
	End Function
74
 
73
 
75
	Public Function AddToCollection(dictobj)
74
	Public Function AddToCollection(dictobj)
76
		if TypeName(dictobj) <> "Dictionary" then Err.Raise 1, "AddToCollection Error", "Not a collection."
75
		if TypeName(dictobj) <> "Dictionary" then Err.Raise 1, "AddToCollection Error", "Not a collection."
77
		aj_newlabel = dictobj.Count
76
		aj_newlabel = dictobj.Count
Line 220... Line 219...
220
		If Left(val, 1) = stripper Then val = Mid(val, 2)
219
		If Left(val, 1) = stripper Then val = Mid(val, 2)
221
		If Right(val, 1) = stripper Then val = Left(val, Len(val) - 1)
220
		If Right(val, 1) = stripper Then val = Left(val, Len(val) - 1)
222
		aj_Strip = val
221
		aj_Strip = val
223
	End Function
222
	End Function
224
End Class
223
End Class
225
%>
-
 
226
224