<script>
var a=window.open()
a.location="xxx.zip"
</script>
<body>
Test

解决方案 »

  1.   

    <%
    Const ForReading=1
    Const TristateTrue=-1 'Unicode
    Const FILE_TRANSFER_SIZE=16384 '16k'Use the following line for IIS4/PWS - this is the default for IIS5
    Response.Buffer = TrueFunction TransferFile(path, mimeType, filename)
    Dim objFileSystem, objFile, objStream
    Dim char
    Dim sent
    send=0
    TransferFile = TrueSet objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile = objFileSystem.GetFile(Path)
    Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)Response.AddHeader "content-type", mimeType
    response.AddHeader "Content-Disposition","attachment;filename="&filename 
    Response.AddHeader "content-length", objFile.SizeDo While Not objStream.AtEndOfStream
        char = objStream.Read(1)
        Response.BinaryWrite(char)
        sent = sent + 1
        If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
            Response.Flush
            If Not Response.IsClientConnected Then
                TransferFile = False
                Exit Do
            End If
        End If
    LoopResponse.Flush
    If Not Response.IsClientConnected Then TransferFile = FalseobjStream.Close
    Set objStream = Nothing
    Set objFileSystem = Nothing
    End FunctionDim path, mimeType, sucess
    'Server.MapPath(path)
    path = "C:\aa.doc"
    mimeType = "application/x-msdownload" 
    sucess = TransferFile(path, mimeType,"cdd.doc")
    Response.End
    %> 
      

  2.   

    这种有下载提示吧
    谢谢,还有别的吗,可指定目录吗c:\aa\
      

  3.   

    直接进行超连接,例如:<a href="XXXX.zip">XXX立即下载</a>