ASP 下載頁面的代碼

url=server.MapPath("/") & "\softsave\" & fname
set objFso=server.CreateObject("scripting.filesystemobject")
   set fn=objFso.GetFile(url)
   flsize=fn.size
   flname=fn.name
   set fn=nothing
   set objFso=nothing
 
   set objStream=server.CreateObject("adodb.stream")
   objStream.Open
   objStream.Type=1
   objStream.LoadFromFile url
    
   Response.AddHeader "Content-Disposition", "attachment; filename="&fname
   Response.AddHeader "Content-Length",flsize
 
   Response.CharSet="UTF-8"
   Response.ContentType=ContentType
   Response.BinaryWrite objStream.Read
   Response.Flush
   Response.Clear()
   objStream.Close
  set objStream=nothing