📄 login.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/MD5.asp"-->
<!--#include file="../Inc/MsgBox.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/FormChk.asp"-->
<script language="javascript">
<!--
function check_null()
{
if (document.form1.AdminName.value=="")
{
alert(" 请输入帐号");
form1.AdminName.focus()
return false;
}
if (document.form1.PassWord.value=="")
{
alert(" 请输入密码");
form1.PassWord.focus()
return false;
}
if (document.form1.GetCode.value=="")
{
alert(" 请输入验证码");
form1.GetCode.focus()
return false;
}
return true;
}
//-->
</script>
<%
' 验证用户合法性 
IF Trim(Request("Submit"))<>empty THEN 
dim AdminName,PassWord,Strsql,Rs,GetCode,typ
AdminName=Encodestr(Request.Form("AdminName"))
PassWord=MD5(Encodestr(request.Form("PassWord")),32)
GetCode=Encodestr(Request.Form("GetCode"))
IF Cstr(GetCode)<>Cstr(Session("GetCode")) THEN
  Call MsgBox("验证码不正确","Back","")
  Response.End()
END IF
Typ=Encodestr(Request.Form("Typ"))
Strsql="SELECT ID,LoginNum,PassWord,LastLogin,Typ FROM [Admin] WHERE AdminName='"& AdminName &"' and PassWord='"& PassWord &"'"
SET Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open Strsql,conn,1,3
IF NOT Rs.EOF AND NOT Rs.BOF THEN
   IF Rs("PassWord")=PassWord THEN
     Rs("LastLogin")=Now()
     Rs("LoginNum")=Rs("LoginNum")+1
	 session("AdminTyp")=Rs("Typ")   
     Rs.Update
     Rs.Close
     SET Rs=Nothing
     conn.Close
     SET conn=Nothing
	    Rs.Update
     Rs.Close
     SET Rs=Nothing
     conn.Close
     SET conn=Nothing
	 IF Typ="1" THEN
       Response.Redirect "frame.asp"
	 ELSE
	   Response.Redirect "../index.asp"
	 END IF
   ELSE
   rs.close
   set rs=Nothing
   conn.close
   SET conn=Nothing
   Call MsgBox("用户名或密码有误！","Back","None")
   response.end
   END IF
ELSE
Rs.close
SET Rs=Nothing
conn.close
SET conn=Nothing
Call MsgBox("用户名或密码有误！","Back","None")
Response.End
END IF
END IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台登陆</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="page" height="420">
<tr>
    <td><form name="form1" method="post" action="" onSubmit="javascript:return check_null();">
      <table width="300" border="0" align="center" cellpadding="4" cellspacing="4" class="page">
         <tr>
            <td width="272" colspan="2" align="center"><font color="#FF0000"> 
              欢迎来到M135大学校园网后台管理系统</font></td>
        </tr>
        <tr>
          <td width="96"><div align="right">管理帐号：</div></td>
          <td width="176"><input name="AdminName" type="text" class="input2" id="AdminName" size="20"></td>
        </tr>
        <tr>
          <td><div align="right">管理密码：</div></td>
          <td><input name="PassWord" type="password" class="input2" id="PassWord" size="20"></td>
        </tr>
        <tr>
          <td><div align="right">验 证 码：</div></td>
          <td><input name="GetCode" type="text" class="input2" id="GetCode" size="6" style="ime-mode:disabled">&nbsp;<img src="../inc/Code.asp"></td>
        </tr>
<tr>
          <td><div align="right">管理方式：</div></td>
          <td><input name="Typ" type="radio" value="1" checked>
            后台管理</td>
        </tr>
            <tr>
          <td>　</td>
          <td><input type="submit" name="Submit" value="登陆" class=input></td>
        </tr>
      </table>
    </form></td>
  </tr>


</table>


</body>
</html>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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