asp关注公众号粉丝信息自动入库

今天一个客户找我写了一个小代码，他想实现用户关注公众号时自动把这个用户的信保存到数据库，就是说当这个用户关注他的公众号时，把这个用户的微信头像，微信名，性别，地区，openid这些信息保存到数据库，做为会员信息来用，考虑了一下，查查微信开发文档，发现并不难，与是花了1个小时，写好了。

关注微信公众号自动保存用户信息入库asp代码：

'获取微信主动发送过来的内容
 Set xmldom = Server.CreateObject("MSXML2.DOMDocument")
            xmldom.load request
            xml = xmldom.documentElement.xml
            'call CreateTextFile(request.QueryString&xml,"a.txt")
			If encrypt_type = "aes" Then
               res =  ToAes(xml,0) 
			   xmldom.loadxml res
            End If
			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=