access.asp

树型ASP论坛下载

<!--#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
   'response.write rs.recordcount
   'response.end  
    %>
  <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.redirect "main.asp" '从哪里来回哪里去
	  rs.close
     end if
   end if
%>