<%
    Dim down_file
    down_file = Server.MapPath("xxxx.txt")
    Response.ContentType = "Application/octet-stream"
    Response.AddHeader "Content-Disposition", "attachment; filename=" & down_file
    Dim stream
    Set stream = Server.CreateObject("ADODB.Stream")
    stream.Open
    stream.Type = 1
    stream.LoadFromFile down_file
    stream.Position = 0
    Response.BinaryWrite stream.Read(-1)
    stream.Close
    Set stream = Nothing
    Response.End
%>