userlogin.asp

这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己的网站

<%
b1=request.form("b1")
b2=request.form("b2")
if b2="注册" then  response.redirect  "login.asp"
NAME=request.form("NAME")
PAS=request.form("PAS")
%>
<!--#include file="filetou.asp"-->
<!--#include file="../fuN.asp"-->
<%
MYIP=REQUEST.SERVERVARIABLES("REMOTE_ADDR")
IPLIST=READTEXT("IP.INI")
IF INSTR(IPLIST,MYIP)<>0 THEN
  SET CONN=NOTHING
   response.redirect  "../ever.asp?lr=对不起,用户无法激活"
END IF
naps=name&pas
if instr(naps,"'")<>0 or instr(naps,"=")<>0 or instr(naps,";")<>0  or instr(naps," ")<>0 or instr(naps,",")<>0 then
    set conn=nothing
    response.redirect  "../ever.asp?lr=对不起,你的用户名或密码中有非法字符"
end if
sql="SELECT *  FROM USER1 WHERE user='"&NAME&"'  and 状态='已' and pas='"&PAS&"'" 
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
if rs.eof then
    rs.close
    set conn=nothing
    response.redirect  "../ever.asp?lr=对不起,你的用户名或密码中有误"
else
  if rs("审核状态")="未" then
      rs.close
      set conn=nothing
      response.redirect  "../../ever.asp?lr=对不起,您的用户尚未审核开通，请等待管理员开通您的帐号"
  end if
   if instr( application("userlist"),",")=0 then
      application("userlist")=","&application("userlist")&rs("user")&","
   else
      if instr(application("userlist"),","&rs("user")&",")=0 then      
        application("userlist")=application("userlist")&rs("user")&","
      end if
   end if
   session("userdqx3")=rs("浏览级别")  
   session("userdqx1")=rs("权限")  
   session("username")=rs("user")
   session("userid")=rs("id")
   session("userbm_name")=rs("所属网点")
   session("userDSF")=RS("身份")
   rs("登录次数")=rs("登录次数")+1
   response.cookies("usercs")=rs("登录次数")+1
   RESPONSE.COOKIES("USERCS").EXPIRES=DATE()+30
   rs("IP")=REQUEST.SERVERVARIABLES("REMOTE_ADDR")
   response.cookies("username")=rs("user")
   RESPONSE.COOKIES("USERname").EXPIRES=date+rs("cookies")-3

   
   rs.update
    rs.close
    set conn=nothing
'    response.redirect  "../ever.asp?lr=登录成功&urla=../index.asp"
    response.redirect  "../../index.asp"
end if

%>