ASP实例教程,ASP完成防盜链的方式

ASP实例教程,ASP完成防盜链的方式文中来源于: 发布 入录:ASP防盜链针对广告宣传建立网站的朋友来讲一直是块头疼的难题,盗链比较严重危害了网络服务器及网站的一切正常运作,放盗链变的十分必须了,今日一起來看一下一个ASP防盜链的完成方式吧。

  假如大家了解一个静态数据文档的具体相对路径如:download/webjx.pdf,假如网络服务器沒有作非常的限定设定,大家便可以绝不费劲的把它免费下载出来!当网站出示webjx.pdf免费下载时,如何样才可以让免费下载者没法获得他的具体相对路径呢!文中就来详细介绍怎样应用Asp来掩藏文档的具体免费下载相对路径。

大家在管理方法网站文档时,能够把拓展名一样的文档放到同一个文件目录下,起一个较为非常姓名,比如放pdf文档文件目录为the_pdf_file_s,把下边编码另存为down.asp,他的在网上相对路径为down.asp,大家便可以用down.asp?FileName=webjx.pdf来免费下载这一文档了,并且免费下载者没法见到这一文档具体免费下载相对路径的!在down.asp中大家还能够设定免费下载文档是不是必须登录,分辨免费下载的来源于页是不是为外界网站,进而能够保证避免文档失窃链。


Serv_url then
response.write "不法连接!" ''避免盗链
response.end
end if
if Request.Cookies("Logined")="" then
response.redirect "/login.asp" ''必须登录!
end if
Function GetFileName(longname)''/folder1/=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "失效文档名!"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "不法实际操作!"
Response.End
End select
Response.Clear
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" ''对图象文档出不来现免费下载会话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.createObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
if lcase(right(FileName,3))="pdf" then ''设定pdf种类文档文件目录
TrueFileName = "/the_pdf_file_s/"&FileName
end if
if lcase(right(FileName,3))="doc" then ''设定DOC种类文档文件目录
TrueFileName = "/my_D_O_C_file/"&FileName
end if
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
TrueFileName = "/all_images_/"&FileName ''设定图象文档文件目录
end if
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>


联络0 
网站标识:福州市企业网站建设 福州市互联网企业 福州市微信小程序开发设计 福州市网站SEO提升 福州市APP开发设计

相关阅读