Asp用大文件上传控件(不占内存)附带Sleep函数

[oldmht]

下载地址：http://download.csdn.net/source/1533831

【说明】

运行PflyTools.bat或运行 regsvr32 PflyTools.dll注册控件


AppendFile能直接将每次读取的小段数据写入硬盘，不占用服务器内存，理论上可以上传2G大小的文件
代码示例：

Set AppendFile = Server.CreateObject("PflyTools.AppendFile")
Set Base = Server.CreateObject("PflyTools.Base")

AppendFile.FileName = "d:\1.txt"


for i = 1 to 100
AppendFile.Save Request.BinaryRead(100) '实际使用时每段读取50k左右速度比较快
If Not Response.IsClientConnected then
'用户关闭或者停止上传窗口了，删除文件，避免留下垃圾
dim objFile
set objFile=Server.CreateObject("Scripting.FileSystemObject")

if objFile.FileExists(AppendFile.FileName) then
Base.Sleep 2000
'Base.Sleep不占用CPU，可以用户其他的不间断通讯程序，例如聊天室
objFile.deleteFile(AppendFile.FileName)
end if
set objFile=nothing
Response.End()
end if
next
Set AppendFile = nothing
Set Base = nothing

[renzaijiang]

带进度条吗 请问

[oldmht]

进度条自己做啊