<%
Dim path, mimeType, sucess,dfile,id,downloadfile,image
Const ForReading=1
Const TristateTrue=-1 ''Unicode
Const FILE_TRANSFER_SIZE=16384 ''16k
''Use the following line for IIS4/PWS - this is the default for IIS5
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
sent=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
'Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
set objStream=server.CreateObject("adodb.stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFile path
Response.ContentType = mimeType
'Response.AddHeader "content-type", mimeType
Response.AddHeader "Content-Disposition","attachment;filename="&filename
Response.CharSet="UTF-8"
Response.AddHeader "content-length", objFile.Size
'Do While Not objStream.AtEndOfStream
char = objStream.Read
Response.BinaryWrite(char)
' sent = sent + 1024
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
'Exit Do
End If
End If
'Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function