利用cookie 账号密码 如何实现网站自动登录
知道自己网站的后台登陆地址,利用火狐取到cookie,我想实现在ie浏览器输入一网址就自动登录(即不用输入账号密码,就可以直接自动登录了)网上有的说可以利用登录地址和co...
知道自己网站的后台登陆地址,利用火狐取到cookie,我想实现在ie浏览器输入一网址就自动登录(即不用输入账号密码,就可以直接自动登录了)
网上有的说可以利用登录地址和cookie的拼接,但是不知道怎么拼接。
还有没有其他方式可以登录。(例如利用 账号 密码 登陆地址 cookie等的组合,实现输入网址自动登录) 展开
网上有的说可以利用登录地址和cookie的拼接,但是不知道怎么拼接。
还有没有其他方式可以登录。(例如利用 账号 密码 登陆地址 cookie等的组合,实现输入网址自动登录) 展开
2个回答
展开全部
<%
'==================================
'=函 数 名:UserLogin(url)
'=功 能:会员登陆判断并自动登陆
'==================================
Sub UserLogin(url)
If Session("User_data")="" Then '判断是否已经登陆
s_CookiesName = check_Cookies("会员名称",Request.Cookies("Scs_Login_Info")("user_name")) '读取cookies 帐号
s_CookiesPassed = check_Cookies("会员密码",Request.Cookies("Scs_Login_Info")("user_passed"))'读取cookies 密码,经过md5加密的
If s_CookiesName<>"" And s_CookiesPassed<>"" Then
sql="Select * From [Scs_user] Where name='"&s_CookiesName&"' and password='"&s_CookiesPassed&"'"
Set Rs=Server.Createobject("adodb.recordset")
Rs.open Sql,Conn,1,1
If Rs.Eof And Rs.Bof Then '登陆失败
Response.Cookies("Scs_Login_Info")("user_name")=Empty
Response.Cookies("Scs_Login_Info")("user_passed")=Empty
Session("User_data")=""
Response.Redirect(url) '跳转到登陆页
Else '登陆成功
Session("User_data")=Rs("user_id")&"||"&s_CookiesName
End If
Rs.Close:Set Rs=Nothing
Else
Response.Redirect(url)'跳转到登陆页
End If
End If
End Sub
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询