游客

标题:让TXT文本等其他任意格式的文件,不在IE中打开,而直接下载的方法
正文:
ASP实现不打开直接下载txt,jpg...类文件代码: <%Const ForReading=1Const TristateTrue=-1 Const FILE_TRANSFER_SIZE=16384 Response.Buffer = TrueFunction TransferFile(path, mimeType, filename)Dim objFileSystem, objFile, objStreamDim charDim sentsend=0TransferFile = TrueSet objFileSystem = Server.CreateObject("Scripting.FileSystemObject")Set objFile = objFileSystem.GetFile(Path)Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)Response.AddHeader "content-type", mimeTyperesponse.AddHeader "Content-Disposition","attachment;filename=" & filename Response.AddHeader "content-length", objFile.SizeDo While Not objStream.AtEndOfStreamchar = objStream.Read(1)Response.BinaryWrite(char)sent = sent + 1If (sent MOD FILE_TRANSFER_SIZE) = 0 ThenResponse.FlushIf Not Response.IsClientConnected ThenTransferFile = FalseExit DoEnd IfEnd IfLoopResponse.FlushIf Not Response.IsClientConnected Then TransferFile = FalseobjStream.CloseSet objStream = Nothi
[<<][[1]][2][>>]

查看评论(0)
发表评论



首页