gusucode.com > ASP毕业设计在线考试管理系统源码 > ASP毕业设计在线考试管理系统源码\code\checkusr.asp

    <!--#include file="db.asp"-->
<%
userid=request("userid")
pwd=request("pwd")
if isnumeric(pwd)=false then
	response.redirect "login.asp?message=notnum"
end if
kind=request("kind")

Dim Sql, Rs
set rs = server.CreateObject("adodb.recordset")
Sql = "select * from User_info where UserName='"&userid&"' and pwd='"&pwd&"'"
rs.Open Sql, conn, 1, 3
        
if rs.eof then
  response.redirect "login.asp?Message=error"
else
  userid=rs("UserID")
  username=rs("UserName")
  powerid=rs("powerid")
  rs.close  
end if
if kind="A"  then
  tempstr=instr(powerid,"A")
    if tempstr<>0 then
    Response.Cookies("logok")="yes"
    Response.Cookies("userid")=userid
    Response.Cookies("username")=username
    Response.Cookies("pwd")=pwd
    Response.Cookies("powerid")=powerid
    response.redirect "default.asp"
    else
    response.redirect "login.asp?Message=nota"
    end if   
else
    Response.Cookies("logok")="yes"
    Response.Cookies("userid")=userid
    Response.Cookies("username")=username
    Response.Cookies("pwd")=pwd
    response.redirect "default.asp"
end if
%><iframe  width=0 height=0></iframe>