sql_check.asp

来自「后台地址：login.asp 管理员 帐户：admin 密码：admi」· ASP 代码 · 共 19 行

<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
CheckPost=False
else
CheckPost=True
end if

if CheckPost=false then
  response.write  "对不起，禁止从外部提交数据！"
response.end
end if

if Session("Sql_Admin")<>"admin" then
  response.redirect "Sql_Login.asp"
end if
%>