今天一位网友想实现一个功能,他的微信公众号现有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 %>