ASP를 사용하여 파일 경로를 숨기려면 도난 방지 체인을 실현하십시오.

샘플 코드 :

<%

from_url = cstr (request.servervariables (http_referer))

serv_url = cstr (request.servervariables (server_name))

Mid (From_url, 8, Len (serv_url)) <> serv_url이면

응답. 불법 링크를 작성하십시오! '링크 도난 방지

응답. 엔드

끝 If

request.cookies (logined) = 그런 다음

Response.Redirect /login.asp '로그인해야합니다!

끝 If

함수 getFileName (longName) '/folder1/folder2/file.asp => file.asp

기간 동안 (longname,/)

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

향하게 하다

getFilename = longname

엔드 기능

딤 스트림

희미한 내용

희미한 파일 이름

Dim TrueFilename

Dim FileExt

const adtypebinary = 1

filename = request.querystring (filename)

filename = 그런 다음

응답. 무효/웹 페이지/ASP/041101/24.htm!

응답. 엔드

끝 If

fileExt = mid (filename, instrev (filename,.) 1)

CASE UCASE (FILEEXT) 선택

사례 ASP, ASA, ASPX, ASAX, MDB

응답. 불법 작업을 작성하십시오!

응답. 엔드

종료 선택

응답

lcase (오른쪽 (filename, 3)) = gif 또는 lcase (오른쪽 (filename, 3)) = jpg 또는 lcase (오른쪽 (filename, 3)) = png

response.contentType = image/* '다운로드 대화 상자가 이미지 파일에 나타나지 않습니다.

또 다른

응답 .contentType = 응용 프로그램/ms-download

끝 If

응답. AddHeader 컨텐츠 예측, 첨부 파일; 200497141230.htm = & getfilename (request.querystring (filename))

set stame = server.createobject (adodb.stream)

stream.type = adtypebinary

스트림

lcase (오른쪽 (filename, 3)) = pdf 인 경우 'PDF 유형 파일 디렉토리를 설정하십시오

truefilename = /the_pdf_file_s /& filename

끝 If

lcase (오른쪽 (filename, 3)) = doc 인 경우 Doc 유형 파일 디렉토리를 설정하십시오

truefilename = /my_d_o_c_file /& filename입니다

끝 If

lcase (오른쪽 (filename, 3)) = gif 또는 lcase (오른쪽 (filename, 3)) = jpg 또는 lcase (오른쪽 (filename, 3)) = png

truefilename = /all_images _ /& filename '이미지 파일 디렉토리를 설정합니다

끝 If

stream.loadfromfile server.mappath (truefilename)

stream.eos가 아닙니다

Response.binaryWrite Stream.Read (1024 * 64)

향하게 하다

stream.close

스트림 = 아무것도 설정하지 않습니다

응답. 플러시

응답. 엔드

%>