<%
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
%>