微信扫码自动登录页
<%
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
%>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
