12楼代码,按楼上处理,成功调用
下面是getplace.htm代码:
Dim e As RequestEventArgs = args(0) '取得会员所在地
e.Resp
Dim wb As New weui
Dim jingweidu As String = e.PlainText '如何将(longitude + "|" + latitude)分开及赋值?
Dim jingdu As Double = jingweidu.split("|")(0)
msgbox("经度:" & jingdu) ’显示:121.02823
Dim weidu As Double = jingweidu.split("|")(1)
msgbox("纬度:" & weidu) ’显示:29.144444
Dim ur As String = "http://api.map.baidu.com/geocoder/v2/?ak=取得ak,并已经输入&output=json&location=" & jingdu & "," & weidu
msgbox(1)
Dim hc As new HttpClient(ur)
msgbox(2)
Dim jo = JObject.Parse(hc.GetData)
msgbox(3)
msgbox(jo.Tostring)
msgbox(jo("status"))
msgbox(jo("result")("formatted_address"))
地址处理:’怎么样处理收到的坐标,处理成地址并保存?
Dim shoujihao As String = e.Cookies("isj") '赋值手机号
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & shoujihao & "'")
If dr IsNot Nothing Then '如果编号为空,保存地址信息
dr(“详细地址”)= “详细地址”
dr(“省份”)= “某省”
dr(“城市”)= “城市”
dr(“区县”)= “区县”
End If
执行图片:
![dvubb](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq图片2017060213512777.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2017-6/20176213521071940.jpg)
![dvubb](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq图片2017060213513444.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2017-6/20176213522599556.jpg)
[此贴子已经被作者于2017/6/2 14:31:44编辑过]