<% 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 = TrueFunction TransferFile(path, mimeType, filename) Dim objFileSystem, objFile, objStream Dim char Dim sent send=0 TransferFile = TrueSet 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="&filename Response.AddHeader "content-length", objFile.SizeDo 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 Then TransferFile = False Exit Do End If End If LoopResponse.Flush If Not Response.IsClientConnected Then TransferFile = FalseobjStream.Close Set objStream = Nothing Set objFileSystem = Nothing End FunctionDim path, mimeType, sucess 'Server.MapPath(path) path = "C:\aa.doc" mimeType = "application/x-msdownload" sucess = TransferFile(path, mimeType,"cdd.doc") Response.End %>
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 = TrueFunction TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = TrueSet 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="&filename
Response.AddHeader "content-length", objFile.SizeDo 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 Then
TransferFile = False
Exit Do
End If
End If
LoopResponse.Flush
If Not Response.IsClientConnected Then TransferFile = FalseobjStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End FunctionDim path, mimeType, sucess
'Server.MapPath(path)
path = "C:\aa.doc"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType,"cdd.doc")
Response.End
%>
谢谢,还有别的吗,可指定目录吗c:\aa\