Dim e As RequestEventArgs = args(0) Dim wb As New weui 'messagebox.Show(e.PlainText) Select e.PlainText Case "www" '发送jason数据 wb.AppendCookie("接收人", "www") e.WriteString("ok") Case "wz" '发送纯文本
wb.AppendCookie("接收人", "wz") messagebox.Show("cookie改变后" & e.cookies("接收人")) e.WriteString("ok") Case Else e.WriteString("false")