一段ASP的HTTP_REFERER判断代码

在这个数字世界中，盗链现象时常发生，但我有一种方法来防止它。我的初衷就是保护我们的网络资源，避免被不正当的链接盗取。

对于所有来自HTTP_REFERER的请求，如果它们并非源于像google或者baidu等特定网站，都会被重定向至不存在的页面，即报错“404 文件未找到”。这是一种简单的代码实现方式：首先获取请求头中的referer信息，然后检查它是否来自特定的网站。如果不是，那么直接返回错误信息，结束响应。这个过程用VBScript编写如下：

```vbscript

Dim OK_URLs, HTTP_REFERER

' 定义允许访问的列表，用 "|" 分隔

OK_URLs = "google.|google.|baidu."

' 将允许访问的列表分割成数组

OK_URLs = Split(OK_URLs, "|")

HTTP_REFERER = Request.ServerVariables("HTTP_REFERER") ' 获取来源信息

If HTTP_REFERER <> "" Then

For Each Referer In HTTP_REFERER

For i = 0 To UBound(OK_URLs) - 1

If InStr(LCase(Referer), LCase(OK_URLs(i))) = 0 Then ' 如果来源不在允许的列表中...

Response.Redirect("404.htm") ' 重定向至不存在的页面

Response.End() ' 结束响应

End If

Next

Next

End If

```

这段代码的逻辑清晰明了：首先检查请求的来源是否合法，如果不合法则直接重定向到错误页面。这是一种有效的防止盗链的方式。通过这种方式，我们可以有效地保护我们的网络资源不被非法利用。我们还可以进一步完善这个策略，比如加入更多的过滤规则或者动态更新允许的列表等。但无论如何，保护我们的网络资源始终是最重要的。希望这个代码能帮助到你，让我们一起努力保护我们的网络环境。