asp群发微信公众号客服消息代码

asp群发微信公众号客服消息代码，这是客服消息，微信公众号客服消息不受模版消息的限制，可以自由发送，但是接收者必须是24小时内与这个公众号有过互动的用户，每个用户每天收到的信息不能超过20条。
<%
'转载请保留作者信息：18611436777
Call Wx.C_A(“wx_token”)
Wx.Echo “Token：”&Application(“wx_token”)(0)
Wx.Echo “有效期：”&Application(“wx_token”)(1)
kf_text = Trim(Request.Form(“kf_text”))
set rs17=server.CreateObject(“adodb.recordset”)
sql17=“select * from tuan where dyid=”&admin_id&" order by id desc"
rs17.open sql17,conn,1,1
for i= 1 to rs17.recordcount
'这里就可以去发客服消息了
Openid = trim(rs17(“openid”))
url=“https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token=”&fff
body="{"“touser”":"""&Openid&""","“msgtype”":"“text”","“text”":{"“content”":"""&kf_text&"""}}"
json=postHtml(url,body)
'群发end
rs17.movenext
next
rs17.close
set rs17=nothing

conn.close
set conn=nothing
Call infomsg(""&json&"，推送"&i&“条”,“index.asp”)
'Response.Write(i)
'Response.End()
%>