网站地图 | RSS订阅 老铁博客 - 专业上海SEO上海SEO优化,分享网站优化知识,同时提供上海SEO服务。
你的位置:首页 » ASP程序 » 正文

ASP判断用户/管理员是否登录

2016-1-7 10:24:50 | 作者:老铁SEO | 0个评论 | 人浏览

非通用,此自定义函数代码仅供参考,使用时数据库相关代码请自行修改

<%
'验证用户/管理员登录状态
'参数:返回类型(0弹出信息,1返回值[0登录失败,1登录成功]),登录失败跳转页面
function checklogin(typ,url)
 dim f_return : f_return=0 'false
 dim f_username : f_username=request.cookies("admin")("username")
 dim f_password : f_password=request.cookies("admin")("password")
 if len(f_username)<1 or len(f_password)<1 then
  if typ=0 then call alert("非法登录!","javascript:window.parent.frames.document.location.href='" & url & "';") '未登录
  '因后台大多是框架结构,要实现内页退出到登录页时没有头部和左侧框架,则需用
  'window.parent.frames.document.location.href  父框架页面跳转
  'document.location.href  当前页面跳转
 else
  dim f_rs
  set f_rs=conn.execute("select [password] from [admin] where [username]='" & f_username & "'")
  if f_rs.bof=true or f_rs.eof=true then
   if typ=0 then call alert("用户名或密码错误!","javascript:window.parent.frames.document.location.href='" & url & "';") '用户名错误
  else
   if f_rs(0)<>f_password then
    if typ=0 then call alert("用户名或密码错误!","javascript:window.parent.frames.document.location.href='" & url & "';") '密码错误
   else
    f_return=1
   end if
  end if
  set f_rs=nothing
 end if
 if typ<>0 then checklogin=f_return
end function


sub alert(msg,url)
 response.write("<script type=""text/javascript"">") & vbcrlf
 response.write("<!--//") & vbcrlf
 response.write("window.alert("""& msg &""");") & vbcrlf
 response.write("window.location.href="""& url &""";") & vbcrlf
 response.write("//-->") & vbcrlf
 response.write("</script>") & vbcrlf
 response.end()
end sub
%>

 

调用案例:
1、弹出错误信息并返回登录页面
<% call checklogin(0,"login.asp") %>
2、返回是否登录真假值以方便写其它代码
如果在内页不想出现弹出错误直接让其返回登录页面,则:
<%
if checklogin(1,"")=0 then '未登录或登录失败,返回登录页
 response.redirect("login.asp") : response.end()
end if
%>
如,在登录页面则可加上:
<%
if checklogin(1,"")=1 then '已登录,则跳转到管理中心页
 response.redirect("manage.asp") : response.end()
end if
%>

 

  • 本文来自: 老铁博客,转载请保留出处!欢迎发表您的评论
  • 相关标签:用户登录  ASP教程  
  • 已有0位网友发表了一针见血的评论,你还等什么?

    必填

    选填

    记住我,下次回复时不用重新输入个人信息

    必填,不填不让过哦,嘻嘻。

    ◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。