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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]COOKIE  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115469)

--  作者：OKK
--  发布时间：2018/3/7 16:49:00
--  [求助]COOKIE

<script type=\'text/javascript\'>
function seer() {
document.cookie = name = \'ok\'
}
</script>

这个代码，在HTML中使用正常...

但在狐表使用，修改成这样时就不行，messagebox提示是空：

sb.AppendLine("<script type=\'text/javascript\'>")
sb.AppendLine("function seer() {")

sb.AppendLine("document.cookie = name = \'ok\' ")

dim oop as string = e.Cookies(name)
messagebox.show(oop)

sb.AppendLine("}")

sb.AppendLine("</script>")

请问为什么messagebox提示是空的？

--  作者：浙江仔
--  发布时间：2018/3/7 16:57:00
--
是不是e.Cookies("name")

--  作者：OKK
--  发布时间：2018/3/7 17:09:00
--
加 “” 也不行

--  作者：有点甜
--  发布时间：2018/3/7 18:03:00
--

这样测试代码

Select Case e.Path
    Case "","test.htm"
        Dim sb As new stringbuilder
        sb.AppendLine("<script type=\'text/javascript\'>")
        sb.AppendLine("function seer() {")
        sb.AppendLine("document.cookie = \'name = ok\'")
        sb.AppendLine("alert(123)")
        sb.AppendLine("}")
        sb.AppendLine("seer();")
        sb.AppendLine("</script>")

        Dim oop As String = e.Cookies("name")
        messagebox.show(oop)

        e.WriteString(sb.tostring)

End Select

--  作者：OKK
--  发布时间：2018/3/8 12:33:00
--
OK！谢谢

--  作者：OKK
--  发布时间：2018/3/11 21:18:00
--

这样测试代码

Select Case e.Path
Case "","test.htm"
Dim sb As new stringbuilder
sb.AppendLine("")

Dim oop As String = e.Cookies("name")
messagebox.show(oop)

e.WriteString(sb.tostring)
End Select

把上面代码的COOKIE修改为中文字符后

在手机浏览器打开时，获取的COOKIE是空的

已在多台手机上测试过（包括苹果、安卓）

请问如何修改？

--  作者：有点甜
--  发布时间：2018/3/11 22:03:00
--

Select Case e.Path
    Case "","test.htm"
Dim sb As new stringbuilder
        sb.AppendLine("<script type=\'text/javascript\'>")
        sb.AppendLine("function seer() {")
        sb.AppendLine("document.cookie = \'name = " & UrlEncode("abc123中文") & "\'")
        sb.AppendLine("alert(123)")
        sb.AppendLine("}")
        sb.AppendLine("seer();")
        sb.AppendLine("</script>")

        Dim oop As String = e.Cookies("name")
        messagebox.show(oop)

        e.WriteString(sb.tostring)
End Select

http://www.foxtable.com/mobilehelp/scr/0241.htm

--  作者：OKK
--  发布时间：2018/3/11 22:53:00
--
!!!!........谢谢！！！