access.asp

来自「树型ASP论坛下载」· ASP 代码 · 共 50 行

<!--#include file="opendb.asp" -->
<%
'userid=cstr(request("userid"))
nickname=trim(request("username"))
password=trim(request("password"))
'url=request("url")
'if url="" then
'  url="/"
'end if

   set rs=server.createobject("ADODB.Recordset")
   sql="select * from users where nickname='"&nickname&"'"
   rs.open sql,conn,1,3
   if rs.recordcount=0 then

    %>
  <script language="javascript"> 
  alert("没有这个用户名！");
  history.go(-1);
  </script> 
 <%   'message="<font color=ff0000>没有这个用户名!</font>"
     rs.close
   else
     if rs("password")<>password then%>
    <script language="javascript">
	 alert("密码错误！");
	history.go(-1);
	</script>   
	 <%'  message="<font color=ff0000>密码错误!</font>"
       rs.close
     else '登录成功
       session("nickname")=rs("nickname")
	   session("userid")=rs("userid")
	   session("level")=rs("level")
	  '//每登录一次，给用户增加积分begin
	   jiafen="update users set fenshu=fenshu+1 where userid="&rs("userid") '登录一次加一分经验值
       conn.execute(jiafen)
	  '//记录登录时间
	   logon="update users set lasttime='"&now()&"' where userid="&rs("userid") 
       conn.execute(logon)	 
	  '//记录登录IP
	  ip="update users set lastip='"&Request.ServerVariables("REMOTE_ADDR")&"' where userid="&rs("userid") 
       conn.execute(ip)	 
	 'response.write Request("url")
     'response.end    	  
      response.redirect Request("url")
	  rs.close
     end if
   end if
%>