精选优质文档-倾情为你奉上JobDone数据处理源代码# JobDone处理web中间件传回的数据 同时操作本地sql数据库Sub JobDone (Job As HttpJob) Log(JobName = & Job.JobName & , Success = & Job.Success) If Job.Success = True Then Select Job.JobName Case Job1 print the result to the logs Log(Job.GetString)Dim JSON As JSONParser Dim Map1 As Map JSON.Initialize(Job.GetString)Map1 = JSON.NextObjectDim m1 As StringDim m As Map helper map for naviga