网页服务器隐藏真实目录,Asp隐藏真实路径实现防盗链_方案总结篇 - YangJunwei

复制down.asp到根目录，编辑down.asp文件，按照内部注释修改

以下是 down.asp 文件的代码:

'━━━━━━━━━━━━━━━━━━━━━━━━━━

'【文件名】down.asp

'【功  能】实现文件隐藏真实路径下载

'【日  期】2007年9月12日

'━━━━━━━━━━━━━━━━━━━━━━━━━━

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 "" '设置盗链跳转页面

'也可用这一句   response.redirect "此处输入你防盗链的地址(网址和图片都可以，演示本论坛有)"

response.end

end if

Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp

while instr(longname,"/")

longname = right(longname,len(longname)-1)

wend

GetFileName = longname

End Function

Dim Stream