蓝雨论坛 简单防盗链及防展区下载功能

蓝雨

打开viewfile.asp文件在
第1个
<% 下边添加
From_url = Cstr(Request.ServerVariables(\"HTTP_REFERER\"))
Serv_url = Cstr(Request.ServerVariables(\"SERVER_NAME\"))
if instr(request.servervariables(\"http_referer\"),\"http://www.lanyu8.cn/dispbbs.asp"&request.servervariables("host\") )<1 then
response.write \"您下载的软件蓝雨论坛，3秒后将直接进入主页下载，谢谢
\" \'防止盗链
response.write \"蓝雨论坛 http://www.lanyu8.cn/>\" \'防止盗链
response.write \"\"
response.end
end if
Dim Str后边加上,From_url,Serv_url
即
Dim Str,From_url,Serv_url