asp源码开发微信公众号关注自动获取粉丝信息入库，取消关注自删除粉丝信息代码-优快云博客

本文链接：https://blog.youkuaiyun.com/tocnc/article/details/106541556

本文分享了一个ASP源码，用于在用户关注公众号时自动获取其微信头像、微信名、openid、地区等信息，并保存至mdb数据库；若用户取消关注，将自动从数据库删除相关信息。代码已通过实际测试，适用于需要类似功能的开发者。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

昨天一个朋友让帮忙写一个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