asp获取所有微信粉丝信息入库,所有微信关注者信息入库

今天一位网友想实现一个功能，他的微信公众号现有3000多位粉丝了，想做一个会员系统所有微信粉丝都想让成为会员，并且要给粉丝推送模板消息，提示他们成为会员了，而且还要赠送他们每人1000的会员充值，让我给想想办法，能不能让这3000个粉丝进他数据库，把他们的微信名，微信头像和性别，地区，openid等信息保存到数据库，我查了查微信开发文档，觉得很好搞，就花了半小时帮他写了一段，现发网上，我觉得会有人用到，asp源码写的，数据库是mdb的。

代码功能：
asp一键获取所有微信公众号粉丝信息入库，利用asp把所有微信公众号关注者信息保存进数据库，可以取到：微信名，微信头像和性别，地区，openid等信息

代码如下：

<%
openid = ""
set Rs = SqlHelper("Select top 1 openid From [wxUser] Order by id desc","")
If Not Rs.Eof Then
  openid = Rs(0)
End If
Res = Wx.Get_userlist(openid)(0)
j = 0
If isArray(Res) Then
  For i = 0 To Ubound(Res)
    Result = UserInfo(Res(i))
    sql = "Insert Into [wxUser](nickName,sex,headimgUrl,country,province,city,subscribeTime,openid) Values(?,?,?,?,?,?,?,?)"
    Call SqlHelper(sql,Array(Result(0),Result(1),Result(2),Result(3),Result(4),Result(5),DatAdd("s",Rsult(6),"1970-01-01 08:00:00"),Res(i)))
    j = j + 1
  Next
End If

Response.Write "入库粉丝数:" & j
%>