亚洲中文久久精品无码1_亚洲中文字幕久久无码_中文字幕精品亚洲无线码一区_国产亚洲欧美日韩亚洲中文色

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