Sub TopViewed
Dim m As Map = UTILS.apiTokenMap
m.Put("count",1)
m.Put("total_price",1)
' If IsViewing = True Then
m.Put("viewed", 1)
' End If
Dim params As String
params = UTILS.convertJson(m)
Dim jobVerif As HttpJob
jobVerif.Initialize("", Me)
jobVerif.PostString(Main.apiSetting.url & "Shop/SumCountViewed",params)
jobVerif.GetRequest.SetContentType("application/json")
Wait For (jobVerif) JobDone(Job As HttpJob)
' Log(Job.GetString)
If jobVerif.Success Then
Dim parser As JSONParser
parser.Initialize(Job.GetString)
Dim rRoot As Map = parser.NextObject
total_price =rRoot.Get("total_price")
NonViewed = rRoot.Get("viewed")
count = rRoot.Get("count")
End If
jobVerif.Release
End Sub