showfile.asp

关于网络渗透技术的详细讲解

<%
fn=request("fn")
ft=request("ft")&"."&right(fn,3)
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & ft
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = 1
Stream.Open
TrueFileName="upfiles/"&fn
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
    Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End

%>