zoukankan      html  css  js  c++  java
  • 判断是否是IE里直接输入地址

    Sub CheckComeUrl()
        Dim ComeUrl, TrueSiteUrl, cUrl
        ComeUrl = Trim(Request.ServerVariables("HTTP_REFERER"))
        TrueSiteUrl = Trim(Request.ServerVariables("HTTP_HOST"))
        If ComeUrl = "" Then
            Response.Write "<br><p align=center><font color='red'>对不起,为了系统安全,不允许直接输入地址访问本系统的后台管理页面。</font></p>"
            Call WriteEntry(1, "", "直接地址输入访问后台")
            Response.End
        Else
            cUrl = Trim("http://" & TrueSiteUrl) & ScriptName
            If LCase(Left(ComeUrl, InStrRev(ComeUrl, "/"))) <> LCase(Left(cUrl, InStrRev(cUrl, "/"))) Then
                Response.Write "<br><p align=center><font color='red'>对不起,为了系统安全,不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
                Call WriteEntry(1, "", "外部链接访问后台")
                Response.End
            End If
        End If
    End Sub
  • 相关阅读:
    php (一)
    php 运算符
    Python 元组
    Python 深拷贝和浅拷贝的区别
    Python 列表
    Python 字符串
    Python 循环控制
    Python 随机数,数学
    bzoj5018 [Snoi2017]英雄联盟
    bzoj5015 [Snoi2017]礼物
  • 原文地址:https://www.cnblogs.com/saimisei/p/1278348.html
Copyright © 2011-2022 走看看