Question

我需要从服务器上的文件夹下载文件。

我在ASP Classic中尝试过这段代码，但当文件为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

Answer 1

您需要在服务器上添加dwg文件的mime类型。

不常见的文件扩展名通常没有关联。

在较旧的IIS（版本6/7）中，右键单击IIS管理器中的服务器并选择属性，然后单击“MIME类型”按钮。在这里，您需要使用正确的mime类型添加.dwg文件的记录。
在IIS 8中，单击IIS管理器中的网站名称，然后选择MIME类型。然后以相同的方式添加，如下所述：

按新功能并根据扩展程序类型，在您的情况下，我的猜测是在短搜索后 .dwg 应该 application / acad 作为mime类型。< / p>

希望这有帮助。

在asp classic上下载DWG文件

1 个答案: