checkusr.asp

是一个电子商务网站的功能介绍

<!--#include file="conn.asp"-->
<%
username=trim(request("username"))
pwd=trim(request("pwd"))
kind=request("kind")




if kind="A"  then
   
   
   '管理员
   '----------------------------------
sql="select * from tbadmin  where username='"&username&"' and pwd='"&pwd&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2


if rs.eof then
  response.redirect "loginleftframe.asp?temp=notadmin"
else
  adminid=rs("adminid")
  username=rs("username")
 
  email=rs("email")
  tname=rs("tname")
   session("power")=rs("power")
   Session.Timeout = 60
   session("isadmin")="1"

     Response.Cookies("logok")="yes"
    Response.Cookies("adminid")=adminid
    Response.Cookies("username")=username
    Response.Cookies("pwd")=pwd
    
    session("adminname")=username

    
    Response.Cookies("email")=email
    
    Response.Cookies("tname")=tname  

    response.redirect "admindefault.asp"
    
  rs.close  
end if
   
   '-------------------------------
 
'是用户
else

'-------------------
sql="select * from tbuser where username='"&username&"' and pwd='"&pwd&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2


if rs.eof then
  response.redirect "loginleftframe.asp?temp=error"
else
   
   if rs("isopen")=0 then
   response.redirect "loginleftframe.asp?temp=error1"
   else
   userid=rs("userid")
  username=rs("username")
  nianji=rs("nianji")
  banji=rs("banji")
  email=rs("email")
   tname=rs("tname")
   
    session("isadmin")="0"
    Session.Timeout = 60
    Response.Cookies("logok")="yes"
    Response.Cookies("userid")=userid
    Response.Cookies("username")=username
    Response.Cookies("pwd")=pwd
    Response.Cookies("nianji")=nianji
    Response.Cookies("banji")=banji
    Response.Cookies("email")=email
    session("username")=username

    Response.Cookies("tname")=tname  
    response.redirect "cover2.asp"
   end if
  
    
    
  rs.close  
end if

'-------------------------

end if
%>