Asp를 사용하여 핫 링크를 방지하기 위해 파일 경로 숨기기

http://www.xx.com/download/51windows.pdf 와 같은 정적 파일의 실제 경로를 알고 있고 서버가 특별한 제한을 설정하지 않은 경우 쉽게 다운로드할 수 있습니다! 웹사이트에서 다운로드용 51windows.pdf를 제공하는 경우 다운로더가 실제 경로를 얻지 못하게 하려면 어떻게 해야 합니까? 이 기사에서는 Asp를 사용하여 파일의 실제 다운로드 경로를 숨기는 방법을 소개합니다.

웹 사이트 파일을 관리할 때 동일한 확장자를 가진 파일을 동일한 디렉터리에 넣고 특별한 이름을 지정할 수 있습니다. 예를 들어 pdf 파일이 있는 디렉터리는 the_pdf_file_s이고 다음 코드는 down.asp로 저장됩니다. 온라인 경로는 http://www.xx.com/down.asp입니다. http://www.xx.com/down.asp?FileName=51windows.pdf를 사용하여 이 파일을 다운로드할 수 있습니다. 이 파일을 볼 수 없습니다. 실제 다운로드 경로입니다! down.asp에서는 파일 다운로드에 로그인이 필요한지 여부를 설정할 수도 있고, 다운로드한 소스 페이지가 외부 웹사이트인지 여부를 확인하여 파일이 연결되지 않도록 할 수도 있습니다.

샘플 코드:

<% 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.end end if Request.Cookies("Logined")="" then response.redirect "/login.asp" '로그인 필요! 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 "잘못된 파일 이름!" Response.End End if FileExt = Mid(FileName, InStrRev) (FileName, ".") + 1) 케이스 선택 UCase(FileExt) 케이스 "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write "잘못된 조작!" .Clear if lcase(right(FileName,3))="gif" 또는 lcase(right(FileName,3))="jpg" 또는 lcase(right(FileName,3))="png" then Response.ContentType = " image/*" '이미지 파일에 대한 다운로드 대화 상자가 나타나지 않습니다. else Response.ContentType = "application/ms-download" end if Response.AddHeader "content-disposition", "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 " 또는 lcase(right(FileName,3))="jpg" 또는 lcase(right(FileName,3))="png" then TrueFileName = "/all_images_/"&FileName ' Stream.LoadFromFile Server인 경우 이미지 파일 디렉터리 끝을 설정합니다. . MapPath(TrueFileName) Stream이 아닌 동안.EOS Response.BinaryWrite Stream.Read(1024 * 64) Wend Stream.Close Set Stream = Nothing Response.Flush Response.End %>