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只能調取一次 各個頁面公用！