XXXXX微信里获取用户地理位置，有没有比较好的贴子，推荐下，谢了！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、js里面 getLocation(); 已经自动执行了代码，不需要额外再写代码。

2、如果你js里面没有写，你可以在你的httprequest事件写触发的代码。

3、

Dim 经纬度 As String = e.PlainText

Dim 纬度 As Double = 经纬度.split("|")(1)
Dim 经度 As Double = 经纬度.split("|")(0)

内部函数index：（105~112行，调用js：getLocation()，不成功）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:index.txt

getplace.js：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:getplace.txt

截图：

此主题相关图片如下：qq图片2017060210045999.png

[此贴子已经被作者于2017/6/2 10:25:27编辑过]

js里面的getLocation();可以去掉

代码那里，下面的代码，必须写在前面去，不能写在后面

wb.AppendHTML("<script src='./lib/getplace.js'></script>")

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

百度地图Api

参考文档 http://developer.baidu.com/map/index.php?title=webapi/guide/webservice-geocoding

执行图片：

此主题相关图片如下：qq图片2017060213512777.jpg

此主题相关图片如下：qq图片2017060213513444.jpg

[此贴子已经被作者于2017/6/2 14:31:44编辑过]

Dim 纬度 As Double = 29.144444
Dim 经度 As Double = 121.02823

Dim ur As String = "http://api.map.baidu.com/geocoder/v2/?ak=hAaa2NLELKdAIfMhMjnuEgi1&output=json&location=" & 纬度 & "," & 经度
Dim hc As new HttpClient(ur)
Dim jo = JObject.Parse(hc.GetData)
output.show(jo.Tostring)
If jo("status") = 0 Then
    msgbox(jo("result")("addressComponent")("province"))
    msgbox(jo("result")("addressComponent")("city"))
    msgbox(jo("result")("addressComponent")("district"))
    msgbox(jo("result")("formatted_address"))
End If

如果将“城市”的值，用下面的方式将城市值传递到index.htm

wb.InsertHTML("<me-ta http-equiv='Refresh' con-tent='0; url=/index.htm?chengshi=" & shengfen & "'>")

在index.htm，将城市值保存为静态变量，之后用户每次进入index.htm，使用这个变量，判断需要进入的城市，可行吗？

[此贴子已经被作者于2017/6/2 21:23:21编辑过]

不如把城市保存到用户表

静态变量可以使用字典记录

目的：会员下次或者过几天后，再次进入index.htm，取城市值后进入相应的城市页面。

因为会员下次进入index.htm,可能没有登录，保存到城市会员表，不一定有用

方法：1.用cookie|静态变量，或者有还有什么其他的好办法么？

2.如果用cookie，会员重启手机会丢失吗？最长可以保存cookie多长时间，1个月，可以？

cookie关闭浏览器就没有了

如果不需要登录的可以获取用户ip记录下来。不过如果是微信浏览器就不行了，微信获取到的都是微信的服务器ip，而且是动态的。

不然还是登录后再处理吧

主题：XXXXX微信里获取用户地理位置，有没有比较好的贴子，推荐下，谢了！