admincheck.asp

来自「企业信息化管理系统:针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 41 行

ASP
41
字号
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="../Connections/auto.asp"-->
<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 admin where username='" & Lname & "' and pwd='" & Lpwb &"'"
RS.open Sname , CN
%>
<% 
if not RS.eof  then
  	response.Redirect("main_admin1.asp")
		 	 
else
%>
   <script language="vbscript"> 
    alert("用户名密码不正确登记!")
    window.navigate("admin_index.asp")  
   </script> 

 
<%
 
end if
%>

</body>
</html>

⌨️ 快捷键说明

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