autologin.asp

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

<!--#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.cookies("username")=""
   response.redirect  "../ever.asp?lr=对不起,用户无法激活&urla=../index.asp"
END IF

usna=REQUEST.COOKIES("USERname")
sql="SELECT *  FROM USER1 WHERE user='"&USNA&"' and 状态='已' " 
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 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
   response.cookies("username")=rs("user")
   RESPONSE.COOKIES("USERname").EXPIRES=date+rs("cookies")-3
   rs("IP")=REQUEST.SERVERVARIABLES("REMOTE_ADDR")

   
   rs.update
    rs.close
    set conn=nothing
    urla=request("urla")
    if urla="" then
    response.redirect  "../../index.asp"
    else
    response.redirect  urla
    end if
end if

%>