Foxtable(狐表) → 用户栏目 → 专家坐堂 → 主页跳转问题


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

主题：主页跳转问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/26 11:10:00 [只看该作者]

getopenid函数代码？

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


加好友 发短信
等级：四尾狐 帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00 		getopenid  发帖心情 Post By：2024/1/26 11:15:00 [只看该作者]

以下内容是专门发给有点蓝浏览
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/26 11:44:00 [只看该作者]

调试

……
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
MsgBox("code is " & e.GetValues.ContainsKey("code"))
If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的OpenID
……
Else
    OpenId = e.Cookies("openid") '否则从cookie中提取openid
End If
MsgBox("openid= " & openid)
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/1/26 11:56:00 [只看该作者]

第一个提示：code is false
第二个提示：openid=
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/26 13:36:00 [只看该作者]

到getopenid函数调试下面代码弹出什么内容

Dim url As String = e.Request.URL.Tostring
messagebox.Show("初始url：" & url)
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/1/26 13:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：2024-01-26_135202.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/26 14:32:00 [只看该作者]

getopenid函数

Dim ul2 As String = UrlEncode(url)
改为
Dim ul2 As String = UrlEncode(e.Request.URL.Tostring)
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/1/26 14:45:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim url As String = e.Request.URL.Tostring
messagebox.Show("初始url：" & url)
url = url.Replace(":8003/default.htm", "/") '此处将8003去掉，只服务器设置了nginx时需要这样做
'messagebox.Show("改变后url：" & url)
Dim url As String = "http://cbjg.740700.xyz/"

Dim OpenID As String

这两句留哪个？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107702 积分：547831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/26 14:47:00 [只看该作者]

第一个

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


加好友 发短信
等级：四尾狐 帖子：983 积分：7049 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/1/26 14:49:00 [只看该作者]

1
图片点击可在新窗口打开查看此主题相关图片如下：2023121119555143278.png
图片点击可在新窗口打开查看
 回到顶部
总数 38 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 5 次数据查询