sp1000je
60 lines
1.5 KiB
Plaintext
60 lines
1.5 KiB
Plaintext
<%@ codepage = 65001%>
|
|
<% session.codepage = 65001 %>
|
|
<%Response.CharSet = "UTF-8"%>
|
|
<%
|
|
|
|
fileName = "test.zip"
|
|
filepath = "D:\www\company\aspmssqlwa.nninc.co.kr\data\board\board_2\"&fileName
|
|
|
|
' Dim objFS, objF
|
|
' Dim objStream, strFile
|
|
' Response.Clear
|
|
' Response.ContentType="application/octect-stream name= " & fileName
|
|
'
|
|
' Response.AddHeader "Content-Disposition", "attachment;filename="&fileName &"" '파일명
|
|
' Response.AddHeader "Content-Transfer-Encoding", "binary"
|
|
' Response.AddHeader "Pragma", "no-cache"
|
|
' Response.AddHeader "Expires", "0"
|
|
'
|
|
' ' 스트림을 선언
|
|
' Set objStream = Server.CreateObject("ADODB.Stream")
|
|
' objStream.Open
|
|
' objStream.Type = 1
|
|
' objStream.LoadFromFile filepath '다운받을경로(파일명포함)
|
|
' strFile = objStream.Read
|
|
' Response.BinaryWrite strFile
|
|
' Set objStream = Nothing
|
|
|
|
|
|
|
|
|
|
'Response.Buffer = TRUE
|
|
Response.Clear
|
|
Response.Expires = 0
|
|
Response.ContentType = "application/smnet"
|
|
Const adTypeBinary = 1
|
|
Const adTypeText = 2
|
|
Response.AddHeader "Content-Disposition","attachment;filename=" & fileName
|
|
Set objStream = Server.CreateObject("ADODB.Stream")
|
|
objStream.Type = adTypeBinary
|
|
objStream.Open
|
|
objStream.LoadFromFile(filepath)
|
|
'추가시작
|
|
Response.Buffer=false
|
|
Dim buff
|
|
do
|
|
buff=objStream.Read(102400)
|
|
Response.BinaryWrite buff
|
|
On Error Resume Next
|
|
loop while(len(buff)>0)
|
|
|
|
|
|
' Response.BinaryWrite objStream.Read(objStream.Size)
|
|
set buff = nothing
|
|
objStream.Close
|
|
Set objStream = Nothing
|
|
Response.Flush
|
|
|
|
|
|
|
|
%> |