Foxtable(狐表)用户栏目专家坐堂 → 为什么用安卓手机的微信浏览器打开网页会自动打开两次


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

主题:为什么用安卓手机的微信浏览器打开网页会自动打开两次

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


加好友 发短信
等级:童狐 帖子:248 积分:3079 威望:0 精华:0 注册:2012/5/13 14:59:00
为什么用安卓手机的微信浏览器打开网页会自动打开两次  发帖心情 Post By:2018/12/19 18:24:00 [只看该作者]

为什么用安卓手机的微信浏览器打开网页会自动打开两次,但用苹果手机或者台式电脑的微信浏览器打开网页只打开一次,我是通过打开网页反馈e.request.UserAgent的信息,安卓手机会反馈两次,而其他只反馈一次

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 18:52:00 [只看该作者]

 

你httprequest代码怎么写的?弹出msgbox(e.path)弹出什么?

 

 

 

 


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


加好友 发短信
等级:童狐 帖子:248 积分:3079 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2018/12/20 14:05:00 [只看该作者]

我是通过微信转发的链接打开,没有带参数,我试过,用电脑、苹果手机的微信打开网页都没有问题,但用安卓手机就会出现这种现象

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


加好友 发短信
等级:童狐 帖子:248 积分:3079 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2018/12/20 14:07:00 [只看该作者]

我试过存储登录信息,安卓手机每打开一个网页存储两次,而其他打开只储存一次,显示的登录信息是:
Mozilla/5.0 (Linux; Android 8.1; ARE-AL00 Build/HONORARE-AL00; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/57.0.2987.132 MQQBrowser/6.2 TBS/044405 Mobile Safari/537.36 MMWEBID/4824 MicroMessenger/6.7.3.1360(0x2607033C) NetType/4G Language/zh_CN Process/tools

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


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

mark

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


加好友 发短信
等级:童狐 帖子:248 积分:3079 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2018/12/20 14:12:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.C
Dim agent As String = e.request.UserAgent
msgbox(agent )
Dim fl As String = web目录 & e.path
'将部分规定外的文件拒绝返回
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return "ok" '这里必须返回
    End Select
End If
Select Case  e.Path
    Case "wxxt.htm"
        '检验是否微信转过来
        If e.GetValues.ContainsKey("code") '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的微信代号\
            Dim ul As String  = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
            ul = CExp(ul,AppId,AppCode,e.GetValues("code"))
            Dim hc As new HttpClient(ul)
            Dim jo As JObject = JObject.Parse(hc.GetData)
            If jo("openid") IsNot Nothing Then
                Dim 微信代号 As String = jo("openid")
                Functions.Execute("网页微信系统之登录验证",e,微信代号)
            End If           
        End If
End Select

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 14:42:00 [只看该作者]

我测试没有你说的问题。

 

关键看msgbox(123)弹出多少次

 

msgbox(e.path)
Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar",".jpeg" '这里加上了js扩展名
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
msgbox(123)
Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddButtonGroup("","bng2",True)
            .Add("btn1","Dialog1").Attribute = """
        End With
        e.WriteString(wb.Build) '生成网页
End Select


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


加好友 发短信
等级:童狐 帖子:248 积分:3079 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2018/12/20 15:17:00 [只看该作者]

我测试了。msgbox(123)弹出来两次

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


加好友 发短信
等级:童狐 帖子:248 积分:3079 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2018/12/20 15:23:00 [只看该作者]

我是用异步方式生成网页,网页是通过安卓手机的微信进行访问,而采用苹果手机和普通台式电脑的微信去访问不存在这个问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 15:33:00 [只看该作者]

直接测试7楼代码。不是在你原来程序那里测试。

 回到顶部
总数 34 1 2 3 4 下一页