ASP執行文件下載

     if  filename <> ""   then
      fileurl = server.MapPath( " ../upfiles/down/ " )  &   " \ "   &  filename
    response.clear   
    response.contenttype = " application/octet-stream "
    response.AddHeader  " content-disposition " , " attachment;filename= "   +  filename   
     set  stream = server.CreateObject( " ADODB.Stream " )
    stream.type = 1   
    stream.open   
    stream.LoadFromFile fileurl 
     While   not  stream.eos   
     response.BinaryWrite stream.Read( 1024   *   64 )   
    wend   
    stream.Close()   
     set  stream = nothing    
    response.flush   
    response.end()   
     end   if