有效的下載網站防盜鏈的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