%@ Language="VBScript" %>
<%
Option Explicit
dim objStream
dim strFile
dim Location
dim FileName
dim FilePath
dim file1,file2
Response.Buffer = true
Dim refer_url
refer_url = request("refer_url")
if refer_url <> "edu" Then
response.write ""
response.End
END IF
FileName =request("filename")
FilePath = left(FileName,instrrev(FileName,"\"))
'ÆÄÀÏÀ§Ä¡¸¦ Àý´ë°ªÀ¸·Î ÀÔ·Â
Location = server.mappath(".\")
FileName = right(FileName,len(FileName) - instrrev(FileName,"\"))
'ÆÄÀÏŸÀÔÀ» ¸ð¸£´Â Çü½ÄÀ¸·Î Á¤ÀÇ
Response.ContentType = "application/unknown"
'ÆÄÀÏÇü½ÄÀ» ÷ºÎ Çü½ÄÀ¸·Î Á¤ÀÇ
Response.AddHeader "Content-Disposition","attachment;filename=" & FileName
Response.Charset = "UTF-8"
Response.AddHeader "Pragma", "No-Cache"
Response.Expires = 0
Response.CacheControl = "Private"
'ADO.Stream °³Ã¼¸¦ »ç¿ëÇÏ¿© ½ºÆ®¸²(2Áø)Çü½ÄÀ¸·Î ÆÄÀÏÀ» ÀÐÀ½
set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Location & FilePath&"\"&FileName
strFile = objStream.Read
set objStream = Nothing
'ÆÄÀÏÀ» ÀÌÁøÇü½ÄÀ¸·Î ¿¬°á
Response.BinaryWrite strFile
%>