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

asp写的，微信公众号发送客服消息源码，支持文字发送，图文发送，带链接的文字发送等，比模板消息更灵活，适合很多应用场景，费话不说，上源码：
<%
Call Wx.C_A(“wx_token”)'调用函数，如果当前的token有效则不动，否则重新获取并写入缓存

Wx.Echo “Token：”&Application(“wx_token”)(0)'输出当前的token
Wx.Echo “有效期：”&Application(“wx_token”)(1)'输出token时效时间
%>




<%
fff = Application(“wx_token”)(0)
response.Write(fff)
%>



下面是tk的时间




<%
ccc = Application(“wx_token”)(1)
response.Write(ccc)

%>




<%
yyy=DateDiff(“s”,Now,ccc)'看看时效还剩余多少秒
response.Write(yyy)
%>
<%
'作者微信：18611436777
'转载请保留，尊重一下码农
url=“https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token=”&fff
body="{"“touser”":"“oOZeU0umT1gk9S3bGl50cc4qC0xU”","“msgtype”":"“text”","“text”":{"“content”":"“新询价消息\n\n询价单位：<a href=”“http://baidu.com”">张先生（北京）\n询价时间：<a href="“http://baidu.com”">"&now()&"\n产品名称：<a href="“http://baidu.com”">求购一台锅炉要求安装保修\n需求数量：<a href="“http://baidu.com”">1台\n\n<a href="“http://baidu.com”">如果不想接收此询盘信息，请点击进入后，注意底部“信息开关”进入关闭接收询盘信息即可。""}}"
'发送纯文字body="{"“touser”":"“oOZeU0umT1gk9S3bGl50cc4qC0xU”","“msgtype”":"“text”","“text”":{"“content”":"“本次登录的动态密码为：”&pwd&"（2分钟内有效）""}}"
'发送图文消息body="{"“touser”":"“oOZeU0umT1gk9S3bGl50cc4qC0xU”","“msgtype”":"“link”","“link”":{"“title”":"“中国联通”","“description”":"“中国电信”","“url”":"“http://wx.tmwcd.com”","“thumb_url”":"“http://wx.tmwcd.com/images/card.jpg”"}}"
json=postHtml(url,body)
response.Write(json)
'response.End()
%>