ASP는 숨겨진 다운로드 주소와 방지 방지를 구현합니다

<% 함수 downloadfile (strfile)

strfilename = strfile

응답 .buffer = true

응답

set s = server.createobject (adodb.stream)

S. OPEN

s.type = 1

다음에 오류가 재개됩니다

set fso = server.createobject (scripting.filesystemobject)

fso.fileexists (strfilename)가 아닌 경우

from_url = cstr (request.servervariables (http_referer))

serv_url = cstr (request.servervariables (server_name))

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

응답. 쓰기 该文件不存在或者已经删除.

응답. 엔드

끝 If

Response.Sredirect request.servervariables (http_referer)

응답. 엔드

끝 If

fileExt = mid (strfilename, instrev (strfilename,.)+1)

CASE UCASE (FILEEXT) 선택

CASE ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA

from_url = cstr (request.servervariables (http_referer))

serv_url = cstr (request.servervariables (server_name))

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

응답. 쓰기 该文件不存在或者已经删除.

응답. 엔드

끝 If

Response.Sredirect request.servervariables (http_referer)

응답. 엔드

종료 선택

f = fso.getfile (strfilename)

intfilelength = F.size

s.loadfromfile (strfilename)

그렇다면

from_url = cstr (request.servervariables (http_referer))

serv_url = cstr (request.servervariables (server_name))

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

응답. 쓰기 该文件数据不完整或许已损坏.

응답. 엔드

끝 If

Response.Sredirect request.servervariables (http_referer)

응답. 엔드

끝 If

업로드 설정 = Server.createObject (persits.upload)

업로드가 아무것도 없다면

응답. AddHeader 컨텐츠 예측, 첨부 파일; filename = & f.name

response.addheader 컨텐츠 길이, intfilelenger

응답. charset = utf-8

응답 .ContentType = 응용 프로그램/x 다운로드

응답 .BinaryWrite S.Read

응답. 플러시

s.close

s = 아무것도 설정하지 않습니다

또 다른

upload.sendbinary strfilename, true, application/x download, false

끝 If

엔드 기능

%>