최초등록

2.asp

@@ -0,0 +1,60 @@
+<%@ 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
+
+
+
+%>