📄 checkusr.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim username,password,myrs,mysql
username=trim(request("userid"))
password=md5(trim(request("pwd")))
sql="select * from cadre_info where UserID="&username
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,3
if (not (rs.bof and rs.eof)) then
     '添加统计信息
	 mysql="select top 1 * from tongji  where userid="&username&" order by starttime desc"
	 set myrs=server.CreateObject("ADODB.RecordSet")
	 myrs.open mysql,conn,1,3
	 if (not (myrs.bof and myrs.eof)) then
	     if (myrs("online")=1) then
		    myerror("你已经登录！")
		 else
	         myrs.addnew
			 myrs("userid")=rs("UserID")
			 myrs("username")=rs("UserName")
	         myrs("ip")=request.ServerVariables("REMOTE_ADDR")
	         myrs("department")=rs("Department")
	         myrs("office")=rs("Office")
	         myrs("rank")=rs("Rank")
	         myrs("duties")=rs("Duties")
	         myrs("post")=rs("Post")
	         myrs("starttime")=now()
	         myrs("online")=1
			 myrs.update
             if  (password=md5(rs("pwd"))) then
	              Response.Cookies("mystarttime")=now()
                  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
		  end if
		else
		     myrs.addnew
			 myrs("userid")=rs("UserID")
			 myrs("username")=rs("UserName")
	         myrs("ip")=request.ServerVariables("REMOTE_ADDR")
	         myrs("department")=rs("Department")
	         myrs("office")=rs("Office")
	         myrs("rank")=rs("Rank")
	         myrs("duties")=rs("Duties")
	         myrs("post")=rs("Post")
	         myrs("starttime")=now()
	         myrs("online")=1
			 myrs.update
             if  (password=md5(rs("pwd"))) then
	              Response.Cookies("mystarttime")=now()
                  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
		end if
else
      myerror("你不是合法用户!")
end if
'Dim CheckUser
'set CheckUser=Server.CreateObject("iExam.ExamCheckUser")
'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 5.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.userid.value=="")
        {
            alert("用户名不能为空！");
            document.all.userid.focus();
        }
    else
        {
            if (document.all.pwd.value=="")
                {
                    alert("密码不能为空！");
                    document.all.pwd.focus();
                }
            else
                {
                    targeturl="checkusr.asp?userid="+document.all.userid.value+"&pwd="+document.all.pwd.value;
                    document.all.userid.value="";
                    document.all.pwd.value="";
                    window.open(targeturl,"","");
                }
         }
}

if (top.location != self.location)
{
    top.location = self.location;
}
</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" borderco????摴????????ǎlor="#111111" width="50%" id="AutoNumber5">
              <tr>
                <td style="height: 25">　</td>
                <td>　</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="button" onClick="fullwin()" value="登 录" name="B1" class="s02"></td>
              </tr>
              <tr>
                <td style="height: 25">　</td>
                <td> <%=s%></td>
              </tr>
            </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 + -