<input type="button" onclick="document.location.href='aaa.swf'">

解决方案 »

  1.   

    http://expert.csdn.net/Expert/topic/1625/1625386.xml?temp=.5044062
      

  2.   

    问题解决,谢谢各位的回复function downloadFile(strFile)
    strFilename = server.MapPath(strFile) Response.Buffer = True
    Response.Clear

    Set s = Server.CreateObject("ADODB.Stream")
    s.Open

    s.Type = 1

    on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject")
    if not fso.FileExists(strFilename) then
    %><script>alert("无法下载,在服务器找不到该文件!")</script><%
    Response.End
    end if Set f = fso.GetFile(strFilename)
    intFilelength = f.size s.LoadFromFile(strFilename)
    if err then
    %><script>alert("<%=err.Description%>")</script><%
    Response.End
    end if

    Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
    Response.AddHeader "Content-Length", intFilelength
    Response.CharSet = "UTF-8"
    Response.ContentType = "application/octet-stream"
    Response.BinaryWrite s.Read
    Response.Flush

    s.Close
    Set s = Nothing
    End Function