Foxtable(狐表)用户栏目专家坐堂 → XXXXX微信里获取用户地理位置,有没有比较好的贴子,推荐下,谢了!


  共有8209人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点色
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/6 9:15:00 [只看该作者]

1、没有执行的问题,因为你return了

 

2、代码改一下

 

 function onSuccess(position){
               //返回用户位置
               //经度
               var longitude =position.coords.longitude;
               //纬度
               var latitude = position.coords.latitude;
               alert("成功");
               alert(longitude + "   " + latitude);
               var result = sendAjaxText(longitude + "|" + latitude,"getplace.htm","",false);
  if (result){
      window.location.href= "/index.htm?zdchengshi=" + result;
  }
           }


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/6/6 9:44:00 [只看该作者]


以下内容是专门发给有点色,有点蓝,狐狸爸爸浏览

27楼代码
按楼上2层改后
在微信公众号链接浏览器、2345浏览器测试getplace.htm的msgbox1245执行了

js执行情况见下面粉色部分
           function getLocation(){
               var options={
                   enableHighAccuracy:true, 
                   maximumAge:1000
               }
               if(navigator.geolocation){
                   //浏览器支持geolocation
                   navigator.geolocation.getCurrentPosition(onSuccess,onError,options);
                   
               }else{
                   //浏览器不支持geolocation
               }
           }

           function onSuccess(position){
               //返回用户位置
               //经度
               var longitude =position.coords.longitude;
               //纬度
               var latitude = position.coords.latitude;
               alert("成功");  '这里执行了
               alert(longitude + "   " + latitude); ’这里执行了
               var result = sendAjaxText(longitude + "|" + latitude,"getplace.htm","",false);
if (result){
window.location.href= "/index.htm?zdchengshi=" + result;
                alert("ok1"); ’这里没有执行,浏览器链接没有跳转
}
               alert("ok2"); ’这里没有执行
           }
 
           //失败时
           function onError(error){
               switch(error.code){
                   case 1:
                   alert("位置服务被拒绝");
                   break;
                   case 2:
                   alert("暂时获取不到位置信息");
                   break;
                   case 3:
                   alert("获取信息超时");
                   break;
                   case 4:
                    alert("未知错误");
                   break;
               }
           }
[此贴子已经被作者于2017/6/6 9:52:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/6 9:51:00 [只看该作者]

 在前面就已经到别的网页了啊,还怎么执行?

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/6/6 10:00:00 [只看该作者]

www.langwowang.com/index.htm 
可以手机或电脑浏览器测试 我已经把getplace.htm的msgbox注释了

           function onSuccess(position){
               //返回用户位置
               //经度
               var longitude =position.coords.longitude;
               //纬度
               var latitude = position.coords.latitude;
               alert("成功");  '这里执行了
               alert(longitude + "   " + latitude); ’这里执行了
               var result = sendAjaxText(longitude + "|" + latitude,"getplace.htm","",false);
if (result){
                        alert("ok1"); ’改到这里,还是没有执行,浏览器链接没有跳转 window.location.href= "/index.htm?zdchengshi=" + result;
}
               alert("ok2"); ’这里没有执行
           }
[此贴子已经被作者于2017/6/6 10:00:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/6 10:05:00 [只看该作者]

 改服务器代码

 

msgbox(5)
'wb.InsertHTML("<meta http-equiv='Refresh' con-tent='0; u-rl=/index.htm?zdchengshi=" & zdchengshi & "'>")
e.WriteString("OK") '生成网页

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/6/6 11:00:00 [只看该作者]

If jo("status") = 0 Then
    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("定位_城市")
        'msgbox(3)
        dr.save
    Else '没有登录
        zdchengshi = jo("result")("addressComponent")("city")
        msgbox(zdchengshi) ’这里每次都执行,但是服务器弹出值为空
    End If
End If
e.WriteString("OK") ’此行不注释,js的ok1、ok2都执行,但是进入ok1、ok2循环(服务器当前注释此行)
e.WriteString(zdchengshi) ’此行不注释,当中断服务器时,居然跳转到=/index.htm?zdchengshi=空

空值显示图片:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片2017060610475222.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片2017060611063888.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/6/6 11:07:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/6 11:09:00 [只看该作者]

循环的问题:你进入index.htm的时候,要加入判断才行的,不能每次都执行同样的代码,不然会死循环。当然,你也可以跳转到别的网页去。

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/6/6 11:49:00 [只看该作者]

getplace.htm页面,当执行msgbox(jo("result")("addressComponent")("city"))时,服务器弹出值为空

js返回值不成功

图片点击可在新窗口打开查看此主题相关图片如下:qq图片2017060611063888.png
图片点击可在新窗口打开查看

index.htm页面代码调整了,不重复执行了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:index代码.txt

getplace.htm代码:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:getplace代码.txt

js代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:js代码.txt


[此贴子已经被作者于2017/6/6 11:55:51编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/6 11:56:00 [只看该作者]

设置后cookie的值

 

If e.cookies("位置") = "" Then

    '执行获取坐标的代码

ElseIf e.cookies("xxx") = "" then

 

Else

    '正常的显示代码

End If


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/6/6 12:40:00 [只看该作者]

之前的代码
位置一直都可以正常获取
因为js能弹出经度、纬度值

1.以下代码中:
If jo("status") = 0 Then
    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("定位_城市")
        'msgbox(3)
        dr.save
    Else '没有登录
        zdchengshi = jo("result")("addressComponent")("city")
        msgbox(zdchengshi) ’这里每次都执行,但是服务器弹出值为空
        msgbox(jo("result")("addressComponent")("city")’这样执行,服务器弹出值同样为空
    End If
2.楼上代码用在index.htm?

 回到顶部
总数 55 上一页 1 2 3 4 5 6 下一页