主题：关于简单的微信的客服系统

    Case "192.168.100.7","127.0.0.1","wechat.foxtable.com"

        Select Case e.Path

            Case "FoxTest"

                Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx506f113977c3a8a3")

                Dim ret = wechatServ.ProcessMessage(e.Request,"ProcessRequestMsg")

                e.WriteString(ret)

        End Select

End Select

蓝老师 这部分代码怎么改

我改到如下形式 服务器报错

  ElseIf e.Request.HttpMethod = "Post"

                    Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(e.PlainText)

                    Dim st As New Date(1970,1,1,8,0,0)

                    Select Case xo("MsgType")

                        Case "text","image","voice","video","shortvideo" '为了简单,这里只保存文本?图片?语音和视频消息.

                             Functions.Execute("ProcessRequestMsg",e.Request)

                    End Select

End If