两种防盗链方法

Kiyo • • ASP • 30 阅读

ASP下载系统防盗链方法

--------------------------------------------------------------------------------

作者：小张 时间：2003-05-10 类别：网站建设 总浏览/今日：49/3 字体：大 中 小

以动感下载系统为例:

打开文件 SoftDown.Asp 在：
if request.QueryString("ID")="" then
response.write "不能连接或者没有指定下载软件"
response.end
end if
的上面或者是下面加上下列代码

dim strReferer,domain,splDomain,isHttp
isHttp=false

'本站下载系统网址列表，不要带上http://
domain="sron.net,61.156.14.223,61.156.14.227"

splDomain=split(domain,",")
strReferer=Request.ServerVariables("HTTP_REFERER")
for iii = 0 to ubound(splDomain)
if instr(strReferer,trim(splDomain(iii)))>0 then isHttp=True
next
if isnull(strReferer) or isHttp=false then
Response.Write "下载链接来自其他网站，这是不允许的，<a href=""./"">请进入本站页面后再进行下载。</a>"
CloseDatabase
response.end
end if

本站下载系统网址列表 就是访问你下载频道网址里的域名，比如你的下载频道可以用多个网址来访问，所以这里用逗号隔开.

_____________________________________________________________

最简单的用Active Server Pages防站外提交表单、跨站提交表单、防盗链……

方法：Request.SeverVariables("HTTP_REFERER")
解释：当某人通过链接到达当前页，HTTP_REFERER 就保存了这个用户的来源（来路）

举个例子，这个例子很简单，只是抛砖引玉而已，大家可以增加更多的功能。
如下，只有首先从“ http://www.kingbbs.net/index.asp ”登陆才能看到文件内容。

源码：index.asp
-----------------------------------------------------------
<html>
<head><title>最简单的用asp防盗链</title></head>
<body>
<%
Option.Explicit
Response.Buffer=Ture
%>

<%
CheckUrl("http://www.kingbbs.net/index.asp";)
%>

<%
Function CheckUrl(url)
  Dim Where:Where=Request.SeverVariables("HTTP_REFERER")
  If Where=url Then
    Call main()
  Else
    Response.write("很抱歉，您必须从"&url&"访问才能进来！")
  End if
End Function
%>

<%
Sub main()
  Response.write("这儿是你要显示的网页内容")
End sub
%>
</body>
</html>

版权声明：
作者：Kiyo
链接：https://www.wkiyo.cn/html/2008-01/i159.html
来源：Kiyo's space
文章版权归作者所有，未经允许请勿转载。

THE END
分享
二维码
< <上一篇
下一篇>>