📄 chklogin.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="../inc/md5.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="Author" contect="hayden">
<title>学生集成管理系统</title>
<link href="../images/css.css" type="text/css" rel="stylesheet" />
<link href="../images/user_style.css" type="text/css" rel="stylesheet" />
<Script Language="JavaScript" type="text/JavaScript" src="inc/login.js"></script>
</head>
<body>
<%
a_UserId=che(request("username"))
a_PassWord=che(Request("password"))
CheckCode=che(Request("CheckCode"))
if a_UserId="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
end if
if a_PassWord="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>"
end if
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>验证码不能为空！</li>"
end if
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li><a href='login.asp'>你的登录等待时间过长，请返回登录页面重新登录</a></li>"
end if
if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致，请重新输入</li>"
end if
if FoundErr<>True then
a_PassWord=md5(md5(a_PassWord))
set rs=conn.execute("select ID,a_UserName,a_Power from Admin_User where a_PassWord='"&a_PassWord&"' and a_UserId='"&a_UserId&"'")
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！"&md5(md5(1))&"</li>"
else
set rs1=conn.execute("update Admin_User set a_lastdate='"&now()&"',a_loads=a_loads+1 where a_PassWord='"&a_PassWord&"' and a_UserId='"&a_UserId&"'")
cooks=request("cooks")
admin25175s=rs(0)&"||"&a_UserId&"||"&rs(1)&"||"&rs(2)&"||"&Now()&"||"&cooks
If cooks=1 Then
session("25175_xx")=admin25175s
Else
response.cookies("25175_xx")=admin25175s
response.cookies("25175_info")=md5(admin25175s&"||25175")
End If
session("admin_id")=rs(0)
Response.Redirect "admin_index.asp"
end if
set rs=nothing
end if
if founderr=true Then call errormsg(ErrMsg)
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -