<% Call Main() Sub Main() strFileName = Request("strFileName") If strFileName = "" Then Call RedirFail() Exit Sub Else Call RedirectFile(strFileName) End If End Sub Sub RedirectFile(strFileName) '¼­¹ö¿¡ ÀúÀåµÉ ÆÄÀÏÀÇ À§Ä¡¿Í À̸§ strFilePath = Server.MapPath(".") + "\files\" & strFileName Set objFSO = Server.CreateObject("SiteGalaxyUpload.FileSystemObject") Set objFile = objFSO.OpenBinaryFile(strFilePath, 1, False) Response.Clear Response.ContentType = "application/octet-stream" Response.AddHeader "Content-disposition", "attachment; filename=" & strFileName Response.BinaryWrite objFile.ReadAll Response.End Set objFile = Nothing Set objFSO = Nothing End Sub Sub RedirFail() Response.Redirect("./boardlist.asp") End Sub %>