📄 logincheck.asp

📁 企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。

💻 ASP

字号:

<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="Connections/auto.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>LogingCheck</title>

</head>

<body>

<% 
Lname = Trim(request.form("uid"))
Lpwb = Trim(request.Form("pwd"))
%>

<%
set RS = server.CreateObject("ADODB.Recordset")
Sname = "select * from Login where ID='" & Lname & "' and PWD='" & Lpwb &"'"
RS.open Sname , CN
%>
<% 
if not RS.eof  then
  	 	 session("Rname")=Lname
		 session("Part")=RS("Part")
	     sql="select * from Message where ID='" & Lname &"'" 
	     set rs1=CN.execute(sql)
		 session("position")=rs1("Position")
		 session("Uname")=rs1("Name")
		 rs1.close
		 RS.close
		 set RS=nothing	
		 CN.close
		 set CN=nothing
		 
		 response.Redirect("LeftCheck.asp")
		 	 
else
%>
   <script language="vbscript"> 
    alert("用户名密码不正确登记!")
    window.navigate("login.asp")  
   </script> 

 
<%
 
end if
%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -