Reply to: AppleBoyallen (揪) () Reputation: 100 2002-06-28 20: 50: 25Z Score: 50 You can put the file to the place where the user cannot arrive, and then use binaryRead in the ASP file to send it to the user. there is a function, Const ForReading = 1Const TristateTrue = -1 Const FILE_TRANSFER_SIZE = 16384Function TransferFile (path, mimeType) Dim objFileSystem, objFile, objStream Dim char Dim sent send = 0 TransferFile = True set objFileSystem = server.CreateObject ( "scripting.filesystemobject ") Set objFile = objFileSystem.GetFile (path) Set objStream = objFile.OpenAsTextStream (ForReading, TristateTrue) Response.AddHeader" content-type ", mimeType Response.AddHeader" Content-Disposition "," attachment; filename = "& file_name Response. AddHeader "content-length", objFile.Size Do While Not objStream.AtEndOfStream char = objStream.Read (1) Response.BinaryWrite (char) sent = sent 1 If (sent MOD FILE_TRANSFER_SIZE) = 0 Then Response.Flush If Not Response .Isclientconnected kiln transfertfile = false exit Do End If End If Loop Response.Flush If Not Response.IsClientConnected Then TransferFile = False objStream.Close Set objStream = Nothing Set objFileSystem = NothingEnd FunctionDim mimeType, sucessmimeType = "application / x-msdownload" file_path = server.MapPath ( "software / "&; File_Name) Success = Transferfile (file_path, mimetype)%>
