您所在的位置:小祥子 » 编程 » ASP » 正文

ASP用户登录实例代码

时间:2015-02-14 编辑:本站 来源:本站原创

连接数据库操作以及md5方法本站的其他文章有说明,见文章下面的相关文章也可以。为了方便大家阅读,后面都带注释。

<!--#include file="conn.ASP"-->
<!-- #include file="MD5.asp" -->
<!--conn.asp是数据库,md5.asp是MD5加密函数-->
<%if request("action")="login" then
    user_name=trim(request("user_name")) '获取提交的用户名
    user_pass=md5(request("user_pass")) '获取提交的密码并加密
    comurl=request("comurl") '获取来路URL,方便登录成功后又跳转回去让用户继续操作
    if comurl="" then
        comurl="index.asp" '来路为空则跳转到首页
    end if
    if request("user_name")="" or request("user_pass")="" then '不允许用户名或密码为空,为空的话清除cookie
    response.Write "<script LANGUAGE='javascript'>alert('登录名和密码为空!');history.go(-1);</script>"
        Request.Cookies("DiyCookieName")("user_name")=""
       Request.Cookies("DiyCookieName")("user_type")=""
  Request.Cookies("DiyCookieName")("user_name")=""
  Response.Cookies("DiyCookieName")("user_type")=""
    else
    sql="select * from [user] where username='"&user_name&"' and userpass='"&user_pass&"'" '如果不为空就可以到数据库里进行查询
    rs.open sql,conn,3,3
    if rs.eof then '没有对应的数据时提示
    response.Write "<script LANGUAGE='javascript'>alert('登录名和密码不匹配!');history.go(-1);</script>"
        Request.Cookies("DiyCookieName")("user_name")=""
       Request.Cookies("DiyCookieName")("user_type")=""
  Request.Cookies("DiyCookieName")("user_name")=""
  Response.Cookies("DiyCookieName")("user_type")=""
  rs.close
    else '登录成功时设置cookie,保持用户的登录状态,并且将用户登录的时间、地址以及登录次数记录下来
  Response.Cookies("DiyCookieName")("user_name")=rs("username")
  Response.Cookies("DiyCookieName")("user_type")=rs("user_type")
  rs("landtime")=now()
        rs("user_lastip")=request.servervariables("remote_addr")
        rs("degree")=rs("degree")+1
        rs.update
        rs.close    
        response.redirect comurl '跳转回来路页面
    end if
    end if
else
 if Request.Cookies("DiyCookieName")("user_name")<>"" then
 user_name=Request.Cookies("DiyCookieName")("user_name")%>
          <tr>
            <td colspan="4" height="45" valign="bottom"><p style="margin-left: 35px"><b>提示:</b><%=user_name%>您好,您已经登录成功,如果您不是<%=user_name%>,请<a href="quit.asp">退出重新登录</a>!</td>
          </tr>
          <tr>
            <td align="center" colspan="4"><hr color="#C0C0C0" size="1" width="90%"></td>
          </tr>
          <tr>
            <td align="center" height="45" colspan="4"><A href="reg.asp"><IMG src="img/loginreg.gif" border=0></A> </td>
          </tr>
          <%else%>
          <form method="POST" name="form1" action="login.asp?action=login">
            <tr>
              <td colspan="4" height="45" valign="bottom"><p style="margin-left: 35px"><b>用户登录: </b>您还没有登录或登录超时,请重新登录</td>
            </tr>
            <tr>
              <td align="center" colspan="4"><hr color="#C0C0C0" size="1" width="90%"></td>
            </tr>
            <tr>
              <td align="right" height="45">用 户 名:</td>
              <td height="45"><input name="user_name" type="text" class=input style="FONT-SIZE: 12px; WIDTH: 110px"></td>
              <td rowspan="2"><input type=image src="img/button_login.gif" name="login"></td>
              <td height="90" rowspan="2"><A href="reg.asp"><IMG src="img/loginreg.gif" border=0></A> </td>
            </tr>
            <tr>
              <td align="right" height="45">用户密码:</td>
              <td height="45"><input style="FONT-SIZE: 12px; WIDTH: 110px" type="password" name="user_pass" class=input size="12"></td>
            </tr>
            <tr>
              <td colspan="4" align="center" height="45"></td>
            </tr>
          </form>
          <%end if%>
    

<%end if%>

关键词:登录 代码 数据库 MD5