以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 发送模板信息测试咨询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102180) |
-- 作者:qwz405 -- 发布时间:2017/6/14 15:33:00 -- 发送模板信息测试咨询 http://www.foxtable.com/mobilehelp/index.htm?page=0188.htm 1.使用帮助中代码,和帮助中效果不一样。 您好,您已购买成功。商品:{{name.DATA}}购买数量:{{number.DATA}}有效期:{{expDate.DATA}}{{remark.DATA}} 此主题相关图片如下:222.jpg 2.我的Foxtable没有找到“长整数”,我改用整数 .....这个问题找到原因了,因为我用的是内部表,我改用sql表,就有“长整数”了。 经测试,没有触发这个事件: Case "TEMPLATESENDJOBFINISH" \'接收模版消息发送完成事件\' msgbox(1) Dim dr As DataRow = DataTables("TemplateMessage").Find("MsgID = " & xo("MsgID").ToString) If dr Is Nothing Then dr = DataTables("TemplateMessage").AddNew() dr("MsgID") = xo("MsgID") \'动态生成的消息ID,每个消息都不同 dr("OpenID") = xo("FromUserName")\'接收方OpenID msgbox(2) End If dr("Status") = xo("Status") \'记录发送状态 dr.Save() msgbox(3) [此贴子已经被作者于2017/6/14 16:06:21编辑过]
|
-- 作者:有点色 -- 发布时间:2017/6/14 16:14:00 -- 1、多了一个【空格】,那个空格实际上就是一个回车符号,你加上即可。
2、事件里面加入msgbox,弹出值看一下。 |
-- 作者:qwz405 -- 发布时间:2017/6/14 16:36:00 -- 没有弹窗。 ... ElseIf e.Request.HttpMethod = "Post" Dim xo As XObject = XObject.Parse(e.PlainText) Dim st As New Date(1970,1,1,8,0,0) S e l e c t Case xo("MsgType") Case "text","image","voice","video","shortvideo" \'保存和自动回复收到的消息 ... Case "event" \'如果是事件 S e l e ct Case xo("Event") Case "subscribe" \'关注事件 ... Case "unsubscribe" \'取消关注事件 ... Case "TEMPLATESENDJOBFINISH" \'接收模版消息发送完成事件\' msgbox(1) Dim dr As DataRow = DataTables("TemplateMessage").Find("MsgID = " & xo("MsgID").ToString) If dr Is Nothing Then dr = DataTables("TemplateMessage").AddNew() dr("MsgID") = xo("MsgID") \'动态生成的消息ID,每个消息都不同 dr("OpenID") = xo("FromUserName")\'接收方OpenID msgbox(2) End If dr("Status") = xo("Status") \'记录发送状态 dr.Save() msgbox(3) End S e l e c t End S e l e c t End If [此贴子已经被作者于2017/6/14 16:37:35编辑过]
|
-- 作者:有点色 -- 发布时间:2017/6/14 16:38:00 -- 呃.....里面没有弹出,那就在外面加入,弹出值,看为什么没进入。 |