<% filename = request.querystring("f") dir = "\100\voase\htmlcd\" response.addheader "content-type","application/x-msdownload" response.addheader "content-disposition", "attachment;filename=" + filename 'response.binarywrite s Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fd = fso.OpenTextFile(Server.MapPath(dir) + "\" + filename) s = fd.ReadAll fd.Close response.write s %>