📄 login.asp
字号:
<!--#include file="getabcd.asp"-->
<!--#include file="md5.asp"-->
<%
u_account=trim(request.form("u_account"))
u_pwd=trim(request.form("u_pwd"))
if u_account="" or u_pwd="" then
errmsg="帐号或密码不能为空，请重新登录！"
return_url="default.htm"
elseif instr(u_account,"'")<>0 or instr(u_account,"or")<>0 then
errmsg="帐号或密码错误，请重新登录！"
return_url="default.htm"
else
sql="select * from user_info where u_account='"&u_account&"'"
rs.open sql,conn,0,1
if not rs.eof then
if trim(rs("u_pwd"))=md5(u_pwd) then
errmsg="登录成功！正在进入系统..."
session("u_account")=trim(rs("u_account"))
session("u_level")=trim(rs("u_level"))
session("u_name")=trim(rs("u_name"))
return_url="main.asp"
else
errmsg="帐号或密码错误，请重新登录！"
return_url="default.htm"
end if
else
errmsg="帐号或密码错误，请重新登录！"
return_url="default.htm"
end if
call DBConnEnd()
end if
%>
<html>
<head>
<title>北华航天工业学院 设备合同管理系统</title>
<META HTTP-EQUIV=REFRESH CONTENT='1; URL=<%=return_url%>'>
<link href="global.css" rel="stylesheet" type="text/css">
</head>
<body>
<br><br><br><br><br><br><br><br><br><br><br>
<center><%=errmsg%></center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -