📄 login.asp

📁 实验教学系统很好用有学生老师管理等模块便于学校使用
💻 ASP
字号:
<%
'**********************************************
'如果已经登录，则直接引导到结账页面，否则要进行登录
'**********************************************
If Session("UserID")<>"" Then
	'直接引导到结账页面
	Response.Redirect "checkout.asp"
End If
%>
<!--#INCLUDE FILE="odbc_connection.asp"-->
<html>
<head>
<title>注册登录系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
		<script language="JAVASCRIPT">
		<!--
		function check_Null(){
			if (document.form1.UserId.value==""){
				alert("用户名不能为空!");
				return false;
			}
			if (document.form1.Password.value==""){
				alert("密码不能为空!");
				return false;
			}
			return true;
		}
		// -->
		</script>
</head>

<body>
	<center>
<br>
	<table width="90%" border="0">
		<tr> 
			<td height="40" align="center"><h3><font color="#AB0000">用户登录</font></h3></td>
		</tr>
		<tr>
			<td height="30" align="center">注意：您还没有登录，请先登录，新用户需先注册
				<hr size="1" noshade>
			</td>
		</tr>
	</table>

	<FORM name=form1 onsubmit="javascript: return check_Null();" action="" method="post">
	<TABLE width="66%" border=0 cellpadding="4" cellspacing="1" bgcolor="#999999">
		<TR bgcolor="#FFFFFF"> 
			<TD width="40%" height="25" align=right>用户名</TD>
			<TD width="60%"><INPUT size=15 name="UserId" class="inputbox">*</TD>
		</TR>
		<TR bgcolor="#FFFFFF"> 
			<TD height="25" align=right>密&nbsp&nbsp码</TD>
			<TD><INPUT type=Password size=15 name="Password" class="inputbox">* </TD>
		</TR>
	</table>
	<br>
	<input type=submit value=" 确 定 " name=submit  class="inputbutton">&nbsp&nbsp
	<!--注释：因为这里和首页的注册共用一套注册系统，所以要加上一个flag，cart表示从这里传过去"-->
	<input type="button" value=" 注 册 " name="loginbutton" class="inputbutton" OnClick="window.open('log/register1.asp?flag=cart','_self')">
	</FORM>

   <br>
	<%
	If Request("UserId")<>"" then
		'查有无该用户
		strSql="select UserId,UserType FROM users Where UserId='" & Request("UserId") & "' And Password='" & Request("Password") & "'"
		SET rs=db.Execute(strSql)
		If Not rs.eof And Not rs.bof Then
			'如果有记录，表示有该用户，则将用户名和用户类型保存到Session中，然后重定向到首页index.asp
			session("UserId")=rs("UserId")
			session("UserType")=rs("UserType")
			Response.redirect "checkout.asp"
		Else
			'如果没有记录，表示没有该用户，请给出提示信息
			response.write "对不起，用户名或密码有误，请重新登录"
		End If
	End If 
	%>
	</center>
</body>
</html>
⌨️ 快捷键说明

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