[求助]GetValues显示不出来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]GetValues显示不出来

共有3838人关注过本帖树形打印复制链接主题：[求助]GetValues显示不出来

fczhaobo

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

加好友

发短信

等级：小狐帖子：396 积分：4086 威望：0 精华：0 注册：2017/3/24 15:10:00

[求助]GetValues显示不出来 发帖心情

Post By：2021/4/6 21:53:00 [只看该作者]

GetValues就是显示不出来

*********/tuanbao.htm?jsbh=yfsh0083

Dim e As RequestEventArgs = args(0)

Dim wb As new weui

If e.GetValues.ContainsKey("jsbh") Then

'调试用弹出对话框

wb.AppendHTML("<script> alert(' ""一 " & e.GetValues("jsbh") & " + " & e.Cookies("openid") & " ');</script>")

wb.AppendCookie("jsbh",e.GetValues("jsbh")) '标记储存出教师编号

Else

With wb.AddMsgPage("","msgpage","非正常来源的网页链接,失效","如有疑问请联系逸飞书画学校!")

.icon = "Warn" '改变图标

.AddButton("btn1","请关闭网页").Attribute = ""

End With

e.WriteString(wb.Build)

Return "" '必须返回

End If

[此贴子已经被作者于2021/4/6 21:53:46编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110498 积分：562374 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/6 22:07:00 [只看该作者]

这种问题到开发者工具里调试看看就知道了

wb.AppendHTML("<script> alert('一 " & e.GetValues("jsbh") & " + " & e.Cookies("openid") & " ');</script>")

fczhaobo

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

加好友

发短信

等级：小狐帖子：396 积分：4086 威望：0 精华：0 注册：2017/3/24 15:10:00

Post By：2021/4/6 22:09:00 [只看该作者]

还是不行，怎么着就是出不来呢，还请您细说一下吧，现在找开发工具来不及的图片点击可在新窗口打开查看

有点蓝

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

加好友

发短信

等级：超级版主帖子：110498 积分：562374 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/6 22:15:00 [只看该作者]

https://www.baidu.com/baidu?word=%E6%B5%8F%E8%A7%88%E5%99%A8%E5%BC%80%E5%8F%91%E8%80%85%E5%B7%A5%E5%85%B7

fczhaobo

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

加好友

发短信

等级：小狐帖子：396 积分：4086 威望：0 精华：0 注册：2017/3/24 15:10:00

Post By：2021/4/7 6:58:00 [只看该作者]

现在的问题是，安卓的手机没有任何问题，个别苹果的手机不行，就是提不出getvalues来

有点蓝

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

加好友

发短信

等级：超级版主帖子：110498 积分：562374 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/7 8:41:00 [只看该作者]

调试看看

Dim e As RequestEventArgs = args(0)

msgbox(e.Request.URL.ToString)

Dim wb As new weui

msgbox(e.GetValues.ContainsKey("jsbh"))

If e.GetValues.ContainsKey("jsbh") Then

msgbox(e.GetValues("jsbh"))

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

主题：[求助]GetValues显示不出来