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