利用第三方公众号实现电脑web网站的微信扫码登录，asp写的代码，其他语言也可以转码

我写了一段asp的代码，可以绕过开发平台，借用第三方公众号（也可以用自己的）获取微信资料实现web站点登录，感兴趣的可以看看http://www.kelubo.net/Products/Show-31-751.html
扫码登录机理为借助第三方公众号（如果您自己有已认证的服务号，本系统也提供了服务号平台源码）获取微信会员openid（针对不同的公众号会不同，但对于同一个公众号，会永远不变），下面详细描述整个过程：
1、登录页（login.asp）显示带有服务端链接和本站参数的二维码图片，供手机扫码，手机扫码后立即携带参数回传数据到本系统采集页（wx.asp）录入微信openid、头像和微信名；
2、登录页（login.asp）监控手机是否已经扫码，如果有扫码参数传过来，就立即跳转到微信登录页（auto_login.asp），在这里将进行一次判断，如果第一次扫码，就将微信资料写入会员数据库并同时将登录信息写入浏览器缓存实现登录，如果会员库已经有该会员微信资料，就跳过写入会员直接登录。
<%@LANGUAGE=“VBSCRIPT” CODEPAGE=“65001”%>

<% ip=request.ServerVariables("REMOTE_ADDR")'获取当前ip set rs=server.CreateObject("ADODB.RecordSet") sql="select * from smlogin where ip='"&ip&"'" rs.open sql,conn,1,3 if rs.eof and rs.bof then '判断当前ip是否已经写入暂存数据库表，如果没有就跳转至扫码登录页 Response.Redirect("login.asp")'这个网址修改成你实际登录页路径 end if '如果暂存数据库存在本机ip，就读取手机扫码后写入的微信会员资料 openid=rs("openid") wxname=rs("wxname") wxpic=rs("wxpic") set rs1=server.createobject("adodb.recordset") sql="select * from [user] where openid='"&openid&"'" rs1.open sql,conn,1,3 if rs1.eof then'判断会员表内是否已经存在该会员，如果不存在就写入。这里可以根据您实际需求选择，比如我这个是写入了会员表，您也可以建个临时会员表，以便下一步绑定正式会员，也可以不写入数据库直接让会员登录 conn.execute("insert into [user] (openid,wxname,wxpic,sh) values ('"&openID&"','"&wxname&"','"&wxpic&"','1')")'写入会员表 End If'如果已经存在该会员了，就直接把登录信息写入session，下面我还加了写入cookies的语句，根据实际情况选用 %> <%set rs2=conn.execute("select * from user where openid='"&openid&"'")%> <% 'Response.Cookies("ancotocnc")("wxusername")=rs2("id") 这两句是用的cookies，根据您实际情况选择使用session还是cookies 'Response.Cookies("ancotocnc").expires=dateadd("d",1,now())'给cookies一天的保存 session("wxusername")=rs2("id")'为保证与网站原始登录一致，下面6句最好写成跟您原网站统一的session和登录记录 session("key")=rs2("key")'下面这两条（4行）记录数据是记录登录次数和时间的，您不一定需要，可以删除或者修改成您的实际 sql="update [user] set dlcs=dlcs+1 where id="&rs2("id") '登陆次数+1 conn.execute(sql) sql="update [user] set dldata=#"&now&"# where id="&rs2("id") '记录登陆时间 conn.execute(sql) conn.execute("Delete from smlogin where ip='"&ip&"'")'删掉IP扫码缓存记录，以便下次扫码 Response.Redirect("user.asp")'完成登录，进入会员中心 rs1.close Set rs1=nothing conn.close set conn=nothing rs.close set rs=nothing %>