-1
서버의 폴더에서 파일을 다운로드해야합니다.asp classic에서 DWG 파일 다운로드
ASP 클래식에서이 코드를 시도했지만 파일이 DWG 일 때 다운로드가 작동하지 않습니다.
오류가 없습니다.이 코드는 DWG 파일 용으로 모든 파일 유형을 다운로드하는 코드입니다.
아무도 도와 줄 수 있습니까?
미리 감사드립니다.
아래 코드를 참조하십시오.
getfile.asp
<%
Function BaseName(byVal Path)
Dim Pos
Path = Replace(Path,"/","\")
Pos = InStrRev(Path,"\")
If Pos>0 then
BaseName = Mid(Path,Pos+1)
Else
BaseName = Path
End if
end function
Function ReadFile(FileName)
Dim Stream , Path
On error resume next
Path = Server.MapPath(FileName)
If Err.Number<>0 then Path = FileName
On error goto 0
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Type=1
Stream.Open()
Stream.LoadFromFile Path
Stream.Position=0
ReadFile = Stream.Read()
Stream.Close()
Set Stream = Nothing
End Function
' Timeout
Server.ScriptTimeout=6000
if Len(Trim(request.querystring("file"))) > 0 then
file = server.mappath(request.querystring("file"))
else
Response.Write("file not found")
Response.end
end if
response.ContentType="application/octet-stream"
response.AddHeader "Content-Disposition", "attachment; filename=" & BaseName(file)
Response.BinaryWrite ReadFile(File)
Response.End
%>
default.asp와
<script language="JavaScript" type="text/javascript">
function doDownload(file1, file2, frmName)
{
var ifrmObj = document.getElementById((frmName && frmName.length > 0) ? frmName : "dwnFrm1");
ifrmObj.src = "";
ifrmObj.src = "getFile.asp?file=" + file1;
if (!file2 || file2.length <= 0) return;
// Timeout
window.setTimeout("doDownload('" + file2 + "', '', 'dwnFrm2');", 3000);
}
</script>
<body bgcolor="#EAEFFF">
<iframe id="dwnFrm1" style="display: none;"></iframe>
<iframe id="dwnFrm2" style="display: none;"></iframe>
extDWG = right(directoryfile.Name, 3)
if extDWG = "dwg" then
response.write ("<a href=""javascript:void(0);"" onclick=""doDownload('/MyFolder/" & Server.HTMLencode(folder) & "/"& Server.HTMLencode(directoryfile.Name) &"', '/MyFolder/" & Server.HTMLencode(folder) & "/X-cart.dwg');"">")
else
response.write ("<a href=""/MyFolder/" & folder & "/" & directoryfile.Name &""">")
end if