asp发模板消息代码asp写的,主要⽤于对已经⼊库的会员发模板消息
<%
'=发模板信息=转载请保留作者信息:186********========
If Request(“act”) = “sendmsg” Then
openids = Split(Request.Form(“openids”),",")
For i = 0 to Ubound(openids)
'这⾥就可以去发模板消息了
Openid = trim(openids(i))
istoxcx = False '是否跳转到⼩程序
x_appid = “” '如果 istoxcx = True,则此项必填
x_path = “” '如果 istoxcx = True,则此项必填
Url = “” '点详情后跳转的地址,⼩程序优先
Color = “#1E9FFF” '字体颜⾊
Template_ID = “M2SCKM1bjpH0dvzfsd54RpkLib8ewIDeNEeoBsMPpr4”
'以下内容为模板字段和内容
Wx.setParameter “first”, wxmb_title
Wx.setParameter “keyword1”, wxmb_oen
Wx.setParameter “keyword2”, wxmb_two
Wx.setParameter “keyword3”, wxmb_three
Wx.setParameter “remark”, wxmb_text
Res = Wx.Send_Template_Message(Openid,Template_ID,Url,istoxcx,x_appid,x_path,Color)
'If Res = “ok” Then
怎么发信息’ Wx.Echo “发送成功”
'End If
'发模板end
Next
Response.Write(i)
Response.End()
End If
'=发模板信息结束=========
%>
发布评论