你的位置: Kiyo'Space首页 ASP 阅读文章 欢迎留下您的足迹

两种防盗链方法

[ ASP ] 分享

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>


欢迎在此留下您的脚步






评论内容 (*必填):
(Ctrl + Enter 快速提交)