%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Untitled Document
<%
qFile = Request.Querystring("file")
Response.ContentType = "application/x-unknown"
fn = qFile
FPath = Server.MapPath(getFilePath()) & "\" & fn
Response.AddHeader "Content-Disposition","attachment; filename=" & fn
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile(FPath)
Response.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing
Response.End
%>