잡다한 일상사 WebJoy.kr :: 강제 다운로드

강제 다운로드

WEB/ASP / DotNet 2007/06/07 17:58 by 아쿠아바다

<%
2
3	call downloadFile(replace(replace(Request("file"),"\",""),"/",""))
4
5	Function downloadFile(strFile)
6	' make sure you are on the latest MDAC version for this to work
7	' -------------------------------------------------------------
8
9
10	' get full path of specified file
11	strFilename = server.MapPath(strFile)
12
13
14	' clear the buffer
15	Response.Buffer = True
16	Response.Clear
17
18	' create stream
19	Set s = Server.CreateObject("ADODB.Stream")
20	s.Open
21
22	' Set as binary
23	s.Type = 1
24
25	' load in the file
26	on error resume next
27
28
29	' check the file exists
30	Set fso = Server.CreateObject("Scripting.FileSystemObject")
31	if not fso.FileExists(strFilename) then
32	Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
33	Response.End
34	end if
35
36
37	' get length of file
38	Set f = fso.GetFile(strFilename)
39	intFilelength = f.size
40
41
42	s.LoadFromFile(strFilename)
43	if err then
44	Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
45	Response.End
46	end if
47
48	' send the headers to the users browser
49	Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
50	Response.AddHeader "Content-Length", intFilelength
51	Response.CharSet = "UTF-8"
52	Response.ContentType = "application/octet-stream"
53
54	' output the file to the browser
55	Response.BinaryWrite s.Read
56	Response.Flush
57
58
59	' tidy up
60	s.Close
61	Set s = Nothing
62
63
64	End Function
65
66	%>

<%
Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=파일명"
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open
objStream.Type = 1

objStream.LoadFromFile Server.MapPath("/경로/")&"\파일명"

download = objStream.Read
Response.BinaryWrite download

Set objstream = nothing
%>

'WEB > ASP / DotNet' 카테고리의 다른 글

블로그 XML RSS 구현 (WINDOWS+IIS+ASP환경) (0)	2007/06/07
회원별 가상주소 발급의 구현 (WINDOWS+IIS+ASP 환경) (0)	2007/06/07
강제 다운로드 (0)	2007/06/07
FSO 파일 이름 그냥 바꾸기 (0)	2007/06/07
ASP 시간함수 (0)	2007/06/07
제가 가끔 쓰는 ASP 문자열함수+ 디버깅함수 (0)	2007/06/07