Hide file path with ASP, realize anti-theft chain

Source: Internet
Author: User
Tags servervariables
Anti-Theft chain | anti-theft chain with ASP hidden file path to achieve anti-theft chain


If we know the actual path of a static file such as: Http://www.xx.com/download/51windows.pdf, if the server does not have a special limit set, we can download it effortlessly! When the site provides 51windows.pdf download, how to let the download can not get his actual path it! This article describes how to use ASP to hide the actual download path of a file.

When we manage Web site files, we can put the same file name extension under the same directory, a more special names, such as the PDF file directory for the_pdf_file_s, save the following code as down.asp, his online path is http://www.xx.com/ Down.asp, can we use http://www.xx.com/down.asp? Filename=51windows.pdf to download this file, and the download can not see the actual download path of this file! In down.asp we can also set whether the download file need to log in, to determine whether the source page of the download is an external site, so you can prevent files from being hotlinking.

Sample code:
<%
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 "Illegal link! "' Prevent hotlinking
response.end
End If
If Request.Cookies ("logined") = "" Then
response.redirect "/login.asp" needs landing!
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
Dim Contents
Dim FileName
Dim Truefilename
Dim Fileext
Const adTypeBinary = 1
filename = request.querystring ("filename")
If FileName = "" Then
response.write "Invalid/webpage/asp/041101/24.htm! "
response.end
End If

Fileext = Mid (filename, InStrRev (filename, ".") + 1)
Select case UCase (Fileext)
case "ASP", "ASA", "ASPX", "ASAX", "MDB"
response.write "Illegal operation! "
response.end
End Select

Response.Clear

If LCase (filename,3) = "gif" or LCase (right (filename,3) = "jpg" or LCase (right (filename,3)) = "png" Then
response.contenttype = "image/*" does not appear on the image File Download dialog box
Else
response.contenttype = "Application/ms-download"
End If

Response.AddHeader "Content-disposition", "attachment"; 200497141230.htm= "& GetFileName (Request.QueryString (" FileName "))
Set Stream = server. CreateObject ("ADODB.") Stream ")
Stream.type = adTypeBinary
Stream.open
If LCase (right (filename,3) = "PDF" then "set PDF type file directory
truefilename = "/the_pdf_file_s/" &filename
End If
If LCase (right (filename,3) = "Doc" then "Set Doc type file directory
truefilename = "/my_d_o_c_file/" &filename
End If
If LCase (filename,3) = "gif" or LCase (right (filename,3) = "jpg" or LCase (right (filename,3)) = "png" Then
truefilename = "/all_images_/" &filename set image file directory
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
%>




Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.