Foxtable(狐表) → 用户栏目 → 专家坐堂 → 扫码带参数如何做


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

主题：扫码带参数如何做
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 13:32:00 [显示全部帖子]

把加了调试代码的全部完整代码发上来

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 14:41:00 [显示全部帖子]

抄帮助的代码没有任何意义！！想解决问题麻烦发自己真实的代码！把敏感数据改改即可

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 15:31:00 [显示全部帖子]

调试这个位置，下面红色能不能弹出，弹出什么内容？

……
Else
    UserName = e.Cookies("username") '从cookie获取用户名和openid
    OpenID = e.Cookies("openid")
MsgBox("OpenID=" & OpenID & ",UserName=" & UserName) 
    Dim dr As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行
MsgBox("dr = " & （dr Is Nothing）)
    If dr Is Nothing OrElse UserName = "" OrElse OpenId = "" Then '空 
        Dim url As String = e.Request.URL.ToString
        MsgBox(url)
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx................&redirect_uri=" & UrlEncode(url) & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
        sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
End If
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 16:49:00 [显示全部帖子]

怎么可能未声明？

        Dim url As String = e.Request.URL.ToString
        MsgBox(url)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 20:31:00 [显示全部帖子]

系统繁忙是因为后台弹出许多msgbox，测试的时候如果msgbox关闭的慢，会导致前端超时。把前面所有MsgBox取消掉，只保留MsgBox(url)，看弹出什么内容？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 20:35:00 [显示全部帖子]

这样看看分别弹出什么

If e.GetValues.ContainsKey("code") Then '如果是通过授权链接跳转而来,就从链接重提取code来获取openid
MsgBox(e.Request.URL.ToString) 
    Dim ul As String = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
……
……
Else
    UserName = e.Cookies("username") '从cookie获取用户名和openid
    OpenID = e.Cookies("openid")
    Dim dr As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行
    If dr Is Nothing OrElse UserName = "" OrElse OpenId = "" Then '空 
        Dim url As String = e.Request.URL.ToString
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx................&redirect_uri=" & UrlEncode(url) & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
MsgBox(ul) 
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 20:44:00 [显示全部帖子]

看37楼

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/17 21:50:00 [显示全部帖子]

那是网页授权取消了自定义参数，改为这样
……
            dr = DataTables("客户").AddNew()
            msgbox("增行后", 64, "提示")
            Dim nms() As String = {"openid", "nickname", "headimgurl", "性别"} '"", "客户住址_县市", "country", "客户住址_省市"} '""
            For Each nm As String In nms
                dr(nm) = jo(nm)      
                 msgbox("提取数据", 64, "提示")
            Next
            If e.GetValues.ContainsKey("state") Then
                msgbox("写入推荐人: " & e.GetValues("state"), 64, "提示")
                dr("客户来源_KHID") = e.GetValues("state")  
                msgbox("保存", 64, "提示")
                dr.Save
            End If
        End If
……
Else
    UserName = e.Cookies("username") '从cookie获取用户名和openid
    OpenID = e.Cookies("openid")
    Dim dr As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行
    If (dr Is Nothing OrElse UserName = "" OrElse OpenId = "") andalso e.GetValues.ContainsKey("tjr") Then '空 
        Dim url As String = e.Request.URL.ToString
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx................&redirect_uri=" & UrlEncode(url) &         "&response_type=code&scope=snsapi_userinfo&state=" & UrlEncode(e.GetValues("tjr")) & "#wechat_redirect"
        sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/18 8:14:00 [显示全部帖子]

系统繁忙的原因看34楼。

这样调试看看
OpenID = e.Cookies("openid")
        Dim dr As DataRow = DataTables("雇主").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行
               MsgBox("tjr= " & （e.GetValues.ContainsKey("tjr")）) '-----------------------------------------------------------------------------
        If (dr Is Nothing OrElse UserName = "" OrElse OpenID = "") andalso e.GetValues.ContainsKey("tjr") Then '空 
            Dim url As String = e.Request.URL.ToString
            '            MsgBox(url) '--------------------------------------------------------------------------------------------            
            '            msgbox("判断名 openid 行 空", 64, "提示")
            Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=w.................&redirect_uri=http%3a%2f%2fwww.123.com&response_type=code&scope=snsapi_userinfo&state=" & UrlEncode(e.GetValues("tjr")) & "#wechat_redirect"
            MsgBox(ul ) '-------------------------------------------------------------------------------------------- 
            sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
            e.WriteString(sb.ToString)
            '             msgbox("跳转授权链接", 64, "提示")
            Return
        End If
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/18 8:53:00 [显示全部帖子]

把完整代码放到记事本，重新发上来看看

 回到顶部
总数 28 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询