sql_check.asp

后台地址：login.asp 管理员 帐户：admin 密码：admin 数据库 Data/#23mn.cn.asp (电视电台数据) Data/Data_Admin.asp (管理信

<%
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
%>