企业微信授权访问遇到难题了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 企业微信授权访问遇到难题了

共有2422人关注过本帖树形打印复制链接主题：企业微信授权访问遇到难题了

yellow

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：257 积分：2891 威望：0 精华：0 注册：2014/12/24 9:51:00

企业微信授权访问遇到难题了 发帖心情

Post By：2019/4/23 11:56:00 [只看该作者]

按照教程实现了企业微信授权访问，能正常运行。但有些时候，通过超链接的访问需要访问两次才会成功。怎样才能一次就成功访问到指定记录？

访问的超链接示例如下：

http://www.gongwen.com/list.htm?k=1&v=3

HTTPRequest 代码如下：

If Functions.Execute("Permit",e,"xxxxxxxxxxxxx","http://www.gongwen.com/","123") = False Then '授权访问

Dim sb As New StringBuilder

sb.AppendLine("你无权访问本系统")

e.WriteString(sb.ToString)

Else

Select Case e.Path

Case "home.htm"

'默认页面

Functions.Execute("home",e)

Case "addnew.htm"

'递交新的公文

Functions.Execute("addnew",e)

Case "list.htm"

'公文详情

Functions.Execute("list",e)

Case Else

Dim sb As New StringBuilder

sb.AppendLine("有异常情况!请重新再打开一次")

e.WriteString(sb.ToString)

End Select

Permit等函数也是抄教程代码的。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/23 12:05:00 [只看该作者]

加入比如红色代码

Functions.Execute("list",e)

return

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/23 12:08:00 [只看该作者]

通过超链接访问后，跳转到了哪里？如何重新访问后正常？请具体说明。

yellow

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：257 积分：2891 威望：0 精华：0 注册：2014/12/24 9:51:00

Post By：2019/4/23 15:31:00 [只看该作者]

以 http://www.gongwen.com/list.htm?k=1&v=3 为例，一般是访问到list函数所设计的页面，根据k、v两个参数确定显示哪条记录。现在的问题是，一些人收到超链接，点击访问后，第一次是访问到 http://www.gongwen.com/ 。再次点击链接才能访问到list.htm页面。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/23 16:26:00 [只看该作者]

你跳转的代码有问题。请动态合成需要跳转过去的地址

msgbox(UrlEncode(e.Request.URL.ToString))

Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxd0106a49b1e546b4&redirect_uri=" & UrlEncode(e.Request.URL.ToString) & "&response_type=code&scope=snsapi_base&state=123#wechat_redirect"

yellow

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：257 积分：2891 威望：0 精华：0 注册：2014/12/24 9:51:00

Post By：2019/4/23 17:00:00 [只看该作者]

好的，谢谢！

下一主题 >> << 上一主题

主题：企业微信授权访问遇到难题了