ASP下载系统防盗链三种方法
第一方法
两个文件，第一个文件（例子中的index.asp）负责产生随机的下载链接，并将密匙写入cookie；第二个文件（例子中的download.asp）根据cookie找到实际下载地址，然后使用response.addheader和server.transfer来重定向地址。为什么不使用response.redirect呢？是因为response.redirect是在客户端的重定向。如果使用response.redirect，那么真实的下载地址还是传给了客户端，这样防盗链的作用就小了很多，用myie等等浏览器或工具都可以轻易的获得真实下载地址。而iis5.0中提供的server.transfer是服务器端的重定向，与客户端无关，这样客户端就无法获得真实的下载地址。
下面是id为1的下载文件ttt.exe的防盗链示例程序，具体内容如下：
＜!---------------index.asp-----------------＞
＜%response.buffer = true%＞
＜html＞
＜head＞
＜/head＞
＜body＞
＜%
response.write "下载地址：＜br＞＜br＞"
randomize
x = int(rnd()*1000)
response.write "＜a href='download.asp?id=" & 1*x & "'＞ttt.exe＜/a＞"
'这里只是简单的运算，呵呵，这已经足够了。
response.cookies("secret") = x
%＞
＜/body＞
＜/html＞
＜!---------------download.asp-----------------＞
＜%
response.buffer = true
if request.cookies("secret") = "" then response.end
if not isnumeric(request.cookies("secret")) then response.end
'这里对传递过来的值没有多加判断，只是为了节省篇幅
secret = clng(request.cookies("secret"))
id = clng(request.querystring("id"))
if id/secret = 1 then
response.addheader "content-type","application/x-msdownload"
response.addheader "content-disposition","attachment;filename=ttt.exe"
server.transfer "ttt.exe"
else
response.write "error!"
end if
%＞
第二方法
打开文件 softdown.asp 在：
if request.querystring("id")="" then
response.write "不能连接或者没有指定下载软件"
response.end
end if
的上面或者是下面加上下列代码
dim strreferer,domain,spldomain,ishttp
ishttp=false
本站下载cn-media.com/i-v/index.shtm＞系统网址列表，不要带上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
本站下载cn-media.com/i-v/index.shtm＞系统网址列表 就是访问你下载频道网址里的域名，比如你的下载频道可以用多个网址来访问，所以这里用逗号隔开.
当然这里的防盗链只是相对的，只要知道了软件存放地址，防盗链就不管用了.
第三方法
用asp实现防盗链技术（带自动返回功能）
源文件代码：
------------------------------------------------------------------------------------------------------------------------
＜%
from_url = cstr(request.servervariables("http_referer"))
serv_url = cstr(request.servervariables("server_name"))
if mid(from_url,8,len(serv_url)) ＜＞ serv_url then
response.write "＜b＞非法链接！＜br＞＜span id=yu＞3＜/span＞＜a href=javascript:countdown＞＜/a＞秒钟后cn-media.com/i-v/index.shtm＞系统将自动返回首页......＜/b＞"
response.write "＜meta http-equiv=refresh content=3;url=index.asp＞"
response.write "＜script＞valignbottom()＜/script＞"
response.write "＜script＞function countdown(secs){yu.innertext=secs;if(--secs＞0)settimeout('countdown('+secs+')',1000);}countdown(3);＜/script＞"
response.end
end if
