有效的下载网站防盗链的ASP代码

　 打开文件 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