alogin.asp

来自「online sales system of texttile mill was」· ASP 代码 · 共 29 行

ASP
29
字号
<!-- #include file="conn.asp" -->
<html>
<head>
</head>
<body>
<%
count = 0
total_cost = 0
id = request.form("id")
pass = request.form("pass")
Set oRs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from users where UserName='"&id&"' and password='"&pass&"'"
Set oRs = Objcon.execute(SQL)
if oRs.EOF then
	oRs.close

	Set oRs = nothing
	response.redirect "administrator.asp?invalid=1"
'incorrect values for email or password, do processin
else
	oRs.close

	Set oRs = nothing
	session("admin") = id
	response.redirect "reminder.asp"
end if
%>
</body>
</html>

⌨️ 快捷键说明

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