Dim e As RequestEventArgs = args(0) '取得会员所在地
e.Resp
Dim wb As New weui
Dim shoujihao As String = e.Cookies("isj") '赋值手机号
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & shoujihao & "'")
Dim zdchengshi As String
Dim jingweidu As String = e.PlainText '如何将(longitude + "|" + latitude)分开及赋值?
Dim jingdu As Double = jingweidu.split("|")(0)
Dim weidu As Double = jingweidu.split("|")(1)
Dim ur As String = "http://api.map.baidu.com/geocoder/v2/?ak=SzsmhchK2OSmg3Q94MGZ1TmRGyBw3SFl&output=json&location=" & jingdu & "," & weidu '因为js弹出了经纬度，这里应该是好的吧？
Dim hc As new HttpClient(ur)
Dim jo = JObject.Parse(hc.GetData)
output.show(jo.Tostring)
If jo("status") = 0 Then '因为jo("status")=空，应该是上面3行的原因了，只是不知道具体是怎么回事
If dr IsNot Nothing Then '已经登录
dr("定位_省份")= jo("result")("addressComponent")("province")
dr("定位_城市")= jo("result")("addressComponent")("city")
dr("定位_区县")= jo("result")("addressComponent")("district")
msgbox(jo("result")("addressComponent")("province"))
msgbox(jo("result")("addressComponent")("city"))
msgbox(jo("result")("formatted_address"))
msgbox(jo("result")("addressComponent")("district"))
zdchengshi = dr("定位_城市")
dr.save
Else '没有登录
zdchengshi = jo("result")("addressComponent")("city")
End If
End If
e.WriteString("OK") '生成网页
加好友 
发短信
Post By：2017/6/6 14:03:00 [只看该作者]
此主题相关图片如下：qq图片2017060617151777.png
