📄 chkadmin1.asp
字号:
<!--#include file=conn.asp-->
<%
dim sql
dim rs
dim user
dim password
user=replace(trim(request("user")),"'","‘")
password=replace(trim(Request("password")),"'","‘")
set rs=server.createobject("adodb.recordset")
sql="select * from user where password='"&password&"' and user='"&user&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("user")=rs("user")
'session("flag")=rs("flag")
Response.Redirect "index.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <LINK rel='stylesheet' type='text/css' href='style.css'> "
response.write " <TITLE>确认身份失败！</TITLE> "
response.write " <BODY bgcolor='#468ea3'> "
response.write " <BR><BR><BR> "
response.write " <TABLE align='center' width='300' cellpadding='1' cellspacing='1'> "
response.write " <TR bgcolor='#CCCCCC'> "
response.write " <TD colspan='2' height='15' bgcolor='#145f74'> "
response.write " <DIV align='center'><FONT color='#FFFFFF'>操作：确认身份失败！</FONT></DIV> "
response.write " </TD> "
response.write " </TR> "
response.write " <TR> "
response.write " <TD colspan='2' height='23' bgcolor='#a5d0dc'> "
response.write " <DIV align='center'><BR><BR>非法登陆，您的操作已经被记录！！！<BR> "
response.write " <BR><A href='admin1.asp'>再次登录！</A><BR> "
response.write " <BR> "
response.write " </DIV> "
response.write " </TD> "
response.write " </TR> "
response.write " </TABLE> "
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -