ACTIVE SERVER PAGE

ADODB.Stream 객체를 이용하여 파일 다운로드를 구현해 보자.
 

fname	= request("fname")
	fpath	= request("fpath")

	Response.Clear
	Response.ContentType = "application/octet-stream"
	Response.AddHeader "Content-Disposition", "attachment;filename=" & fname
	Response.AddHeader "Content-Transfer-Encoding", "binary"
	Response.AddHeader "Preagma", "no-cache"
	Response.AddHeader "Expires", "0"

	Dim phyFilePath, objFs, objStream, strFile

	DOWN_DIR = "/file_data/"&FNAME

	phyFilePath = Server.MapPath(DOWN_DIR)   

	Set objFs = Server.CreateObject("scripting.FileSystemObject")

	If Not objFs.FileExists(phyFilePath) Then
		Response.Write "파일이 존재하지 않습니다."
		Response.end
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		objStream.Type=1
		objStream.LoadFromFile phyFilePath
		strFile = objStream.Read
		Response.BinaryWrite strFile
	End If

	Set strFile = Nothing
	Set objStream = Nothing
	Set objFs = Nothing

위와 같은 형식으로 생성할 수 있습니다.