Sub Handle(req As ServletRequest, resp As ServletResponse)
resp.ContentType = "application/json"
resp.SetHeader("Access-Control-Allow-Origin","*")
resMap.Initialize
Try
' Dim body As TextReader
' body.Initialize(req.InputStream)
' Log("xx:"&body.ReadAll)
Dim data() As Byte = Bit.InputStreamToBytes(req.InputStream)
Dim text As String = BytesToString(data, 0, data.Length, "UTF8") '
Dim parser As JSONParser
Log(text)
End Sub
Dim su As StringUtils
Log(su.DecodeUrl("%7B%22data1%22%3A%22VIP00001%22%2C%22data2%22%3A%22VIP00001%22%2C%22data3%22%3A%2215%2F02%2F2018%22%2C%22data4%22%3A%22127.0.0.1%22%7D", "utf8"))