gpt4 book ai didi

一段ASP的HTTP_REFERER判断代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 27 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章一段ASP的HTTP_REFERER判断代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

只要不是HTTP_REFERER来源于(google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com)这些网址来源的请求,就通通转发至404 。

复制代码代码如下

<%  Dim a, reg  a = Request.ServerVariables("HTTP_REFERER").Item  Set reg = New RegExp  reg.Pattern = "^http://(?:[^.]*\.)?(?:google\.com|google\.cn|baidu\.com)(/|$)"  reg.IgnoreCase = True  If Not reg.Test(a) Then  Set reg = Nothing  Response.Status = "404 File Not Found."  Response.End  End If  Set reg = Nothing  ' .... 继续  %> 。

  。

复制代码代码如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <%Dim OK_URL,URL,HTTP_REFERER  '自定义需要过滤的字串,用 "|" 分隔  OK_URL= "google.com|google.cn|baidu.com"'排除信息  OK_URL= split(OK_URL,"|") '分割排除信息  URL="404.htm" '设定指向页面  HTTP_REFERER=Request.ServerVariables("HTTP_REFERER")'获取来源网址  If HTTP_REFERER<>"" Then  For Each REFERER In HTTP_REFERER  For i=0 To Ubound(OK_URL)  If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Then'如果来源网址不是以上排除项的话,那就直接返回所指向的网页!  Response.Redirect(URL):Response.End()  End if  Next  Next  End If%>  。

最后此篇关于一段ASP的HTTP_REFERER判断代码的文章就讲到这里了,如果你想了解更多关于一段ASP的HTTP_REFERER判断代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com