?? admin_gb.asp
字號:
<!--#include file="CONFIG.ASP" -->
<!--#include file="CONN.ASP" -->
<!--#include file="FORMAT.ASP" -->
<!--#include file="error.ASP" -->
<!--#include file="lib/gbadminlogin.asp" -->
<!--#include file="lib/gbfooter.asp" -->
<link rel="stylesheet" href="<%=themepath%>/gbstyle.css" type="text/css">
<%
dim founderr,errmsg
founderr=false
errmsg=""
if request("login")<>"yes" then
call admin_login()
else
if trim(replace(request.form("adminname"),"'",""))="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你沒有填寫管理員名稱。"
end if
if trim(replace(request.form("adminpwd"),"'",""))="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你沒有填寫管理員密碼。"
end if
if founderr then
call diserror()
response.end
else
opengb
sql="select * from admin"
set rs=conn.execute(sql)
if trim(replace(request.form("adminname"),"'",""))=rs("admin_name") and trim(replace(request.form("adminpwd"),"'",""))=rs("admin_password") then
response.cookies("NGB")("adminname")=rs("admin_name")
response.cookies("NGB")("adminpwd")=rs("admin_password")
response.redirect "guestbook.asp"
rs.close
set rs=nothing
else
errmsg=errmsg+"<br>"+"<li>管理員名稱或密碼錯誤。"
call diserror()
response.end
end if
end if
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -