3044am姘稿埄(闆嗗洟)绉戞妧鏈夐檺鍏�鍙� - 鐧惧害鐧剧��

asp根据公中号接口给关注用户发送消息

代码如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%

    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("失败")&"
"

response.Write  s_res&"
"&Application("Access_Token")

    End If

    Set a = Nothing

%>

这个已经成功测试完成 注意Access_Token不要重复获取

要用公用的Access_Token 这样才能不至于冲突 而导致发送消息失败！也就是说Access_Token只能调取一次 各个页面公用！