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_chaoji.asp")
else
%>
<script language="vbscript">
alert("用户名密码不正确登记!")
window.navigate("adminlogin.asp")
</script>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?