?? chkadmin.asp
字號:
<link rel="stylesheet" href="../style.css" type="text/css">
<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
sql="select username,password,flag from admin where password='"&password&"' and username='"&username&"'"
set rs = conn.execute(sql)
if not(rs.bof and rs.eof) then
if password=rs(1) then
session("admin")=rs(0)
session("flag")=rs(2)
Response.Redirect "main.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='1' cellpadding='2' cellspacing='0' bordercolor='#ffffff'>"
response.write " <tr bgcolor='#ffffff'> "
response.write " <td colspan='2' height='15'> "
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'> "
response.write " <div align='center'><br><br>"
response.write " 警告:用戶名或密碼錯誤!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'><<<返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -