微信公众号发送客服消息asp源码示例

微信公众号发送客服消息asp源码示例有三种，一种是发送纯文本，一种是发送图文信息，一种是发送可以换行并且带链接的效果，如下图效果：

三种效果

下面是asp推送客服消息的代码：
<%
function postHtml(url,body)
Set xh = CreateObject(“Microsoft.XMLHTTP”)
xh.Open “POST”,url,0
xh.setRequestHeader “Content-Length”, Len(body)
xh.setRequestHeader “CONTENT-TYPE”, “application/x-www-form-urlencoded”
xh.Send(body)
Set MyStream=CreateObject(“Adodb.Stream”)
MyStream.Type = 2
MyStream.Open
MyStream.WriteText xh.responseText
MyStream.Position = 0
postHtml=MyStream.ReadText
MyStream.Close
set xh=nothing
end function
%>
<%
body="{"“touser”":"“oM1Gd5huvHV01JzPt5rdBQZiE9CQ”","“msgtype”":"“link”","“link”":{"“title”":""【万达包机—泰国】万达独家大型泰国包机再次起航！"","“description”":"“有人问我出去玩首选出境游国家是哪一个？泰国泰国泰国啊！至于为什么？除了个人偏好，达达觉得以下几个原因是大多数人来泰国走一趟的原因。快看看，有没有哪一条说到你心里去？”","“url”":"“https://mp.weixin.qq.com/s/RgK56uSChRLlpwb1xIxq-A”","“thumb_url”":"“http://www.ftphn.com/kfxx/000.jpg”"}}"
json=postHtml(url,body)
response.Write(json)
'response.End()
%>