📄 check.asp

📁 机票预定系统各个模块的设计-ticket reservation systems detailed design system modules of the design

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="ZXLconfig.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
mem_ifActive=rs("mem_ifActive")
if mem_ifActive="0" then 
   response.write "<script language='Javascript'>alert('帐号尚未激活！\n如想马上激活该帐号，请与"&ZXLCompanyName&"工作人员联系！\n服务热线："&ZXLTelService&"');window.history.back(-1);</script>"
   response.end
end if
   'if CheckUserIfLogin(mem_loginname) then
   'response.write "<script language='Javascript'>alert('该用户已经登录在线！\n如果你上一次退出时忘记“注销”，请在两分钟后重试！');window.history.back(-1);</script>"
   'response.end
  ' end if
   session("mem_name")=mem_loginname
  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="成功登陆！"
'call AddUser(mem_loginname)
 %>
<script language="javascript">
alert('<%=msg%>');
window.location="my_RL/index.asp"
</script>
  <% 
  end if
 else
 msg="没有此用户！"
 end if
%>
<script language="javascript">
alert('<%=msg%>');
window.history.back(-1);
</script>
</body>
</html>
<%
rs.close
sub AddUser(TempUserName)
sql="insert into UserOnline(UserIP,UserID,ActiveTime)values('"&request.ServerVariables("HTTP_HOST")&"','"&TempUserName&"',"&now()&")"
conn.execute sql
end sub

function CheckUserIfLogin(TempUserName)
	sql="select * from UserOnline where UserID='"&TempUserName&"'"
	rs.open sql,conn,3,1
	if rs.eof or rs.bof then
		CheckUserIfLogin=false
	else
		CheckUserIfLogin=true
	end if
end function

set rs=nothing
call conn_close()


%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -