- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 发送模板信息测试咨询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102180)
-- 发布时间：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}}
此主题相关图片如下：111.jpg
此主题相关图片如下：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)
此主题相关图片如下：333.jpg
[此贴子已经被作者于2017/6/14 16:06:21编辑过]
-- 发布时间：2017/6/14 16:14:00
--
1、多了一个【空格】，那个空格实际上就是一个回车符号，你加上即可。
2、事件里面加入msgbox，弹出值看一下。
-- 发布时间：2017/6/14 16:36:00
--
没有弹窗。
此主题相关图片如下：123.jpg
...
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
--
呃.....里面没有弹出，那就在外面加入，弹出值，看为什么没进入。