작성일 : 12-08-24 11:22
|
[ASP] DOWNLOAD [ 다운로드 ]
|
 |
|
글쓴이 :
조형래
 조회 : 3,761
|
[view.asp]
<script src="/js/jquery/jquery-latest.min.js" type="text/javascript"></script>
<script type="text/javascript" src="http://www.spicus.com/js/jquery/ui/ui.core.js"></script>
<script type="text/javascript" src="http://www.spicus.com/js/jquery/ui/ui.draggable.js"></script>
<script type="text/javascript" src="http://www.spicus.com/js/jquery/ui/ui.resizable.js"></script>
<script type="text/javascript" src="http://www.spicus.com/js/jquery/ui/ui.dialog.js"></script>
<!-- 위 필요없는 스크립트 인크루딩이 있을 수 있음 -->
<script type="text/javascript">
function FileFind(IDX) {
$.ajax({
url: 'Ajax_FileList.asp',
type: 'POST',
data: { IDX: IDX },
dataType: 'text',
timeout: 1000,
error: function () { alert('데이터 로드 실패'); },
success: function (Result) {
$("#DivFileList").html(Result);
$("#DivFileList").dialog('open').dialog({ bgiframe: true, modal: true });
}
});
}
</script>
<div id="DivFileList" title="파일 다운로드"></div>
<img src="../data/cheditor4/1208/dwn_yzEezNpbjPQ.png" onclick="FileFind('<%=파일명%>')" style="cursor: pointer;">
[Ajax_FileList.asp]
<%
Response.CharSet = "euc-kr"
%>
<!-- #include virtual="/common/asp/CommVar.asp"-->
<!--#include virtual="/common/CommFunc.asp"-->
<%
IDX = Request("IDX")
%>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr" />
<table width="280" border="0" cellspacing="5" cellpadding="10">
<tr>
<td>
<a href="FileDownLoad.asp?FileName=<%=Server.URLEncode(IDX)%>"><%=IDX%></a>
</td>
</tr>
</table>
[FileDownLoad.asp]
<%
Dim strFileWholePath,objStream,strFile
Dim userSaveFileName, realSaveFileName
Response.CharSet="euc-kr"
strFileWholePath = "\\111.11.111.11\11111_1111\1111\"
userSaveFileName = Request("FileName")
Response.Buffer = True
Response.ContentType = "application/unknown"
' Response.ContentType = "application/octet-stream"
'// userSaveFileName - 사용자가 다운받을때 표시될 파일명(김건모 - 잘못된만남.mp3)
Response.AddHeader "Content-Disposition","attachment; filename=" & userSaveFileName
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile strFileWholePath & userSaveFileName '파일경로 & 파일 이름
strFile = objStream.Read
Set objStream = Nothing
Response.BinaryWrite strFile
%>
|
|
1758
