Admin.asp 追梦翔飞数字报静态生成版 7.0 体验版码程序 - ASP源码程序

www.gusucode.com > 追梦翔飞数字报静态生成版 7.0 体验版码程序 > admin/Admin.asp

    <%
dim ComeUrl
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
  Response.Write "<html><title>系统安全警告</title><body leftmargin=""60"" topmargin=""30""><font style=""font-size:16px;font-weight:bolder;color:blue;""><li>不允许从外部链接地址访问本系统的后台管理页面</li></font><font style=""font-size:14px;font-weight:bolder;color:red;""><br><li>您的数据已经被记录!</li><br><li>您的IP："&Request.ServerVariables("Remote_Addr")&"</li><br><li>操作日期："&Now&"</li></font></body></html>"
  Response.End
end if
%>