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编辑过]
加好友 
发短信
Post By：2021/4/6 21:53:00 [显示全部帖子]
