| 다음은 코드 조각입니다. <% 딤 스트림 희미한 내용 희미한 파일 이름 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 루트 디렉토리 파일에 문서 파일을 넣으면 다른 곳에 넣을 수도 있습니다. |
<a href = "d