📄 chkadmin.asp
字号:
<!--#include file=dbpath.asp-->
<%
dim sql
dim objrs
dim admin
dim password
admin=replace(trim(request("admin")),"'","‘")
password=replace(trim(Request("password")),"'","‘")
set objrs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and admin='"&admin&"'"
objrs.open sql,objconn,1,1
if not(objrs.bof and objrs.eof) then
if password=objrs("password") then
session("admin")=objrs("admin")
Response.Redirect "admin_index.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <LINK rel='stylesheet' type='text/css' href='../links.css'> "
response.write " <TITLE>Administrator Login</TITLE> "
response.write " <BODY> "
response.write " <BR><BR><BR> "
response.write " <TABLE align='center' width='300' border='1' cellpadding='0' cellspacing='0' bordercolor='#000000' bordercolordark='#FFFFFF'> "
response.write " <TR> "
response.write " <TD colspan='2' height='15' background='../images/background.gif'>"
response.write " <DIV align='center'>登入失败！</DIV> "
response.write " </TD> "
response.write " </TR> "
response.write " <TR> "
response.write " <TD colspan='2' height='23'> "
response.write " <DIV align='center'><BR><BR>密码错误！<BR> "
response.write " <BR><A href='login.asp'>重新登入！</A><BR> "
response.write " <BR> "
response.write " </DIV> "
response.write " </TD> "
response.write " </TR> "
response.write " </TABLE> "
end sub
objrs.close
objconn.close
set objrs=nothing
set objconn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -