브라우저에서 열리는 대신 PDF 및 기타 파일을 다운로드하려면 클릭하십시오.

<%

딤 스트림

희미한 내용

희미한 파일 이름

Dim FileExt

const adtypebinary = 1

filename = request.querystring ( "filename")

filename = ""라면

response.write "invfort 파일 이름".

응답. 엔드

끝 If

'아래는 다운로드하고 싶지 않은 파일입니다.

filext = mid (filename, instrev (filename, ".") 1)

CASE UCASE (FILEEXT) 선택

"ASP", "ASA", "ASPX", "ASAX", "MDB"

Response.write "보호 파일, 다운로드 할 수 없습니다".

응답. 엔드

종료 선택

'이 파일을 다운로드하십시오

응답

응답 .ContentType = "Application/Octet-stream"

response.addheader "content-disposition", "첨부 파일; filename ="& filename

set stame = server.createobject ( "adodb.stream")

stream.type = adtypebinary

스트림

stream.loadfromfile server.mappath (filename)

stream.eos가 아닙니다

Response.binaryWrite Stream.Read (1024 * 64)

향하게 하다

stream.close

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

응답. 플러시

응답. 엔드

%>

사용 : 다운로드 다운로드? filename =/files/my.doc

루트 디렉토리 파일에 문서 파일을 넣으면 다른 곳에 넣을 수도 있습니다.