本文主要是介绍asp源码开发微信公众号关注自动获取粉丝信息入库,取消关注自删除粉丝信息代码,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
昨天一个朋友让帮忙写一个asp的源码,需求是当用户关注他的公众号时,把该用户的微信头像,微信名,openid,地区等信息获取到并保存到他的mdb数据库中,如果该用户取消关注了,则自动从数据库中把该用户删掉。朋友相托,当然要当大事办,昨天晚上一通折腾,各种坑走完,写好了,今天发给朋友测试,把他高兴坏了,非要请我吃龙虾,晚上约起吧!我觉得这种需求会有很多人需要,现在把代码奉献,有需要的直接用吧
ToUserName=xmldom.getelementsbytagname(“ToUserName”).item(0).text '接收者微信账号。即我们的公众平台账号。
FromUserName=xmldom.getelementsbytagname(“FromUserName”).item(0).text '发送者微信账号Openid
CreateTime=xmldom.getelementsbytagname(“CreateTime”).item(0).text
MsgType=xmldom.getelementsbytagname(“MsgType”).item(0).text
if (MsgType=“event”) then
strEventType=xmldom.getelementsbytagname(“Event”).item(0).text '微信事件
if strEventType=“subscribe” then ‘表示订阅微信公众平台
EventKey=xmldom.getelementsbytagname(“EventKey”).item(0).text
Content=“感谢关注”
if EventKey<>"" then
EventKey=replace(EventKey,“qrscene_”,"")
Content = “你的上线ID:”&EventKey
Else
EventKey= 0
Content = “http://ly.ftphn.com”
end if
Call Login(EventKey,FromUserName)
Call Return_Text(Content)
ElseIf strEventType=“unsubscribe” Then’取消关注
Content=“取消关注”
‘Call Return_Text(Content)
Conn.ExeCute("delete from [Wx_user] where openid=’"&FromUserName&"’")
end if
这篇关于asp源码开发微信公众号关注自动获取粉丝信息入库,取消关注自删除粉丝信息代码的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!