336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

1. 첨부파일 링크주소

<a href="/inc/download.asp?filesavename=<%=Server.URLEncode(GetDataFile(2,i))%>&filename=<%=Server.URLEncode(GetDataFile(1,i))%>&filepath=<%=PhysicalDocUrl%>" onfocus="this.blur();"><%=GetDataFile(1,i) %></a><Br>



2. download.asp

<%

    fileName = Request("filename")

    fileSaveName = Request("filesavename")

    filePath = Request("filepath")


'    Response.Write fileName&"<br/>"

'    Response.Write fileSaveName&"<br/>"

'    Response.Write filePath

'    Response.End



'    Response.Expires = 0

'    Response.Buffer = True

'    Response.Clear

'

'    Set fs = Server.CreateObject("Scripting.FileSystemObject")

'

'         '파일이 있을경우 파일을 스트림 형태로 열어 보낸다.

'         Response.ContentType = "application/octet-stream"

'         Response.CacheControl = "public"

'         Response.AddHeader "Content-Disposition","attachment;filename=" & filename

'

'        Set Stream=Server.CreateObject("ADODB.Stream")

'         Stream.Open

'         Stream.Type=1

'         Stream.LoadFromFile filepath & fileSaveName

'         Response.BinaryWrite Stream.Read

'         Stream.close

'         Set Stream = nothing

'     

'     Set fs = Nothing


    Response.ContentType = "application/unknown"

    Response.AddHeader "Content-Disposition","attachment; filename=" & Server.URLPathEncode(fileName)    

'Server.URLPathEncode 처리를 안하면 한글 파일명이 깨진다.

    Set objStream = Server.CreateObject("ADODB.Stream")

    objStream.Open

    objStream.Type = 1

    objStream.LoadFromFile filePath & fileSaveName


    download = objStream.Read

    Response.BinaryWrite download 


    Set objstream = nothing 

%>

Posted by 당양부부34

블로그 이미지
주요 토렌트를 블로깅하고 있습니다. 토렌트 순위 등은 다른 사이트를 찾아보세요. 주요 웹툰 순위도 게재했어요 경제를 좋아하는 일산의 행복한 프로그래머입니다.
당양부부34
Yesterday
Today
Total

달력

 « |  » 2024.3
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함