checkusr.asp

这是个考试系统哦 想学的人可以看看哦

<!--#include file="conn.inc"-->
<!--#include file="char.asp"-->
<%
userid=checkstr(request("userid"))
pwd=checkstr(request("pwd"))
kind=request("kind")
sql="select * from cadre_info where username='"&userid&"'"
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("pwd") = pwd Then 
	  userid=rs("userid")
	  username=rs("username")
	  department=rs("department")
	  office=rs("office")
	  duties=rs("duties")
	  post=rs("post")
	  rank=rs("rank")
	  spower=rs("spower")
	  rs.close  
	Else 
		response.redirect "loginleftframe.asp?temp=error"
	    rs.close  
	End If 
end if
if kind="A"  then
  tempstr=instr(spower,"A")
    if tempstr<>0 then
    Response.Cookies("logok")="yes"
    Response.Cookies("userid")=userid
    Response.Cookies("username")=username
    Response.Cookies("pwd")=pwd
    Response.Cookies("department")=department
    Response.Cookies("office")=office
    Response.Cookies("duties")=duties
    Response.Cookies("POST")=post
    Response.Cookies("rank")=rank  
    Response.Cookies("spower")=spower
    response.redirect "admindefault.asp"
    else
    response.redirect "loginleftframe.asp?temp=nota"
    end if   
else
    Response.Cookies("logok")="yes"
    Response.Cookies("userid")=userid
    Response.Cookies("username")=username
    Response.Cookies("pwd")=pwd
    Response.Cookies("department")=department
    'Response.Cookies("office")=office
    'Response.Cookies("duties")=duties
    'Response.Cookies("POST")=post
    'Response.Cookies("rank")=rank  
    response.redirect "default.asp"
end if
%>