check.asp
来自「机票预定系统 各个模块的设计-ticket reservation system」· ASP 代码 · 共 55 行
ASP
55 行
<!--#include file="../manager/function/conn.asp"-->
<!--#include file="../../config.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>检验登陆</title>
</head>
<body>
<%
mem_loginname=trim(request("mem_loginname"))
mem_loginpasd=trim(request("mem_loginpasd"))
msg=""
mem_loginname=replace(mem_loginname,"'","")
set rs=server.CreateObject("adodb.recordset")
sql="select * from tmember where mem_loginname = '"&mem_loginname&"'"
rs.open sql,conn,3,1
if not rs.eof then
password=rs("mem_loginpasd")
if trim(password)<>trim(mem_loginpasd) then
msg="用户密码错误!"
else
response.cookies("mem_safe")="@#^*#@@#3%@@324"
response.cookies("mem_login")=mem_loginname
response.cookies("mem_grade")=rs("mem_grade")
mem_power_bak=rs("mem_power")
if isnull(mem_power_bak) or isempty(mem_power_bak) then mem_power_bak="0"
response.cookies("mem_power")=mem_power_bak
response.cookies("mem_safe").expires=date()+1
response.cookies("mem_name").expires=date()+1
response.cookies("mem_grade").expires=date()+1
response.cookies("mem_power").expires=date()+1
msg="成功登陆!"
%>
<script language="javascript">
alert('<%=msg%>');
window.location="my_fla/index.asp"
</script>
<%
end if
else
msg="没有此用户!"
end if
%>
<script language="javascript">
alert('<%=msg%>');
window.history.back(-1);
</script>
</body>
</html>
<%
rs.close
set rs=nothing
call conn_close()
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?