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
%>