📄 checkusr.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim userkind,username,password
userkind=trim(request("userkind"))
username=trim(request.Form("userid"))
password=md5(trim(request.Form("pwd")))
sql="select * from cadre_info where UserID="&username&" and Rank='"&userkind&"'"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,3
if (not (rs.bof and rs.eof)) then
     if  (password=md5(rs("pwd"))) then
         Response.Cookies("myuserid")=rs("UserID")
         Response.Cookies("myusername")=rs("UserName")
         Response.Cookies("mypwd")=""
         Response.Cookies("mydepartment")=rs("Department")
         Response.Cookies("myoffice")=rs("Office")
         Response.Cookies("myduties")=rs("Duties")
         Response.Cookies("myPOST")=rs("Post")
         Response.Cookies("myrank")=rs("Rank")
		 Response.Cookies("mySpower")=rs("Spower")
		 response.Redirect("default.asp")
	 else
	      myerror("密码错误！")
	 end if
else
      myerror("你不是"&userkind)
end if
'Dim CheckUser
'set CheckUser=Server.CreateObject("iExam.AdminCheckUser")
'CheckUser.I_Init uid,pwd,database
sub  myerror(s)
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<script language="JavaScript">
function fullwin(){
if (document.all.userkind.value=="")
  {
    alert("请选择用户类别！");
    document.all.userkind.focus();
    return false;
  }
else
  {
    if (document.all.userid.value=="")
      {
        alert("用户名不能为空！");
        document.all.userid.focus();
        return false;
      }
    else
      {
        if (document.all.pwd.value=="")
        {
          alert("密码不能为空！");
          document.all.pwd.focus();
          return false;
        }
        else
          {
		return true;
          }
      }
  }
}

if (top.location != self.location)
  {
     top.location = self.location;
  }
function InitSync()
{
   if( "object" == typeof( top.deeptree ) && "unknown" == typeof( top.deeptree.Sync ) )
     {
       top.deeptree.Sync();
     }
}
</script>
<script language="JavaScript1.2" src="../js/lock.js"></script>
<link rel="stylesheet" type="text/css" href="../default.css">
</head>
<body background="../images/lbg.gif" oncontextmenu="self.event.returnValue=false" bgcolor="#FFFFFF">
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" width="375" id="AutoNumber1" height="326" background="../images/BG.gif">
    <tr>
      <td width="100%">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="375" id="AutoNumber4" height="326">
        <tr>
          <td width="100%" style="height: 70">　</td>
        </tr>
        <tr>
          <td width="100%">
          <div align="center">
            <center>
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber5">
                  <form method="POST" action="checkusr.asp">
              <tr>
                <td style="height: 25">　
                </td>
                <td><select size="1" name="userkind">
                  <option selected value="<%=request("userkind")%>"><%=request("userkind")%></option>
                </select></td>
              </tr>
              <tr>
                <td style="height: 25">用户名：</td>
                <td>
                <input type="text" name="userid" size="13" onkeyup="if(isNaN(this.value)) this.value='10';" onblur="if(isNaN(this.value)) this.value='10';" style="border-style: solid; border-width: 1"></td>
              </tr>
              <tr>
                <td style="height: 25">密&nbsp; 码：</td> 
                <td>
                <input type="password" name="pwd" size="13" style="border-style: solid; border-width: 1">
                <input type="submit" value="登 录" name="B1" class="s02" onClick="return  fullwin()"></td>
              </tr>
              <tr>
                <td style="height: 25">　</td>
                <td>&nbsp;<%=s%></td>
              </tr>
                  </form>
            </table>
            </center>
          </div>
          </td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>
<p align="center"><img border="0" src="../images/attention.gif"> 
在登陆前请确认你机器的cookie已经打开！否则将出现无法登陆的现象。</p> 
</body>

</html>
<%
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -