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