check_login.0.asp

来自「ASPSQL企业网络管理系统」· ASP 代码 · 共 38 行

ASP
38
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
str = "select id,login_name from member where login_name = '" & trim(Request.Form("login_name")) & "' and password = '" & trim(Request.Form("password")) & "'"
with session("rs")
  .open str,session("conn")
  if .eof then
%>
<script language="JavaScript" type="text/JavaScript">
window.alert("您的账号、密码输入不正确!");
history.back();
</script>
<%
  else
  	session("login_name") = .Fields("login_name")
		session("member_id") = .Fields("id")
  	'application(session("login_name")) = "online"
%>
<script language="JavaScript" type="text/JavaScript">
window.alert("登录成功!");
</script>
<%
  	.close
  end if
end with
Server.Execute("../include/check_session.asp")
Response.Redirect("../index/index.asp")
%>
</body>
</html>

⌨️ 快捷键说明

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