asp根据公中号接口给关注用户发送消息
代码如下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Lib/TmplMsg.asp"-->
<%
Dim a
Set a = New TmplMsg
Dim openid, template_id, url, first_data, first_color, keyword1_data, keyword1_color, keyword2_data, keyword2_color, keyword3_data, keyword3_color, keyword4_data, keyword4_color, keyword5_data, keyword5_color, remark_data, remark_color
openid = "opSHYjnZAnqPh8Cy9LIOEQXnlA90" '接收者openid
template_id = "atfaINoGHQmDNQ01Lx3jmokln5TT5X1YMStpCTjBZSg" '模板ID
url = "http://wwww.schoolgz.com/zwqt_view.asp?id=123" '模板跳转链接(海外帐号没有跳转能力)
first_data = "您刚刚成功发布了一个新职位,赶紧推广一下吧!" '
first_color = "#000000" '字体颜色
keyword1_data = "JAVA开发工程师"
keyword1_color = "#000000"
keyword2_data = "上海"
keyword2_color = "#000000"
keyword3_data = "50-80万/年"
keyword3_color = "#000000"
keyword4_data = "2014-08-07 16:11"
keyword4_color = "#000000"
remark_data = "点击详情后立即推广职位"
remark_color = "#000000"
Dim s_res
s_res = a.Send_TmplMsg(openid, template_id, url, first_data, first_color, keyword1_data, keyword1_color, keyword2_data, keyword2_color, keyword3_data, keyword3_color, keyword4_data, keyword4_color, remark_data, remark_color)
If split(split(s_res,",")(0),":")(1) = 0 Then
Response.Write("成功")
Else
Response.Write("失败")&"<br>"
response.Write s_res&"<br>"&Application("Access_Token")
End If
Set a = Nothing
%>
这个已经成功测试完成 注意Access_Token不要重复获取
要用公用的Access_Token 这样才能不至于冲突 而导致发送消息失败!也就是说Access_Token只能调取一次 各个页面公用!