运行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

安装： 拷贝ijl15.dll至系统目录(winnt/system32) 运行 regsvr32 webpictools.dll 用法： dim picTool set picTool = createObject("webPicTools.picTool") picTool.loadPic "D:\wwwroot\压缩+水印\web\test.jpg" '以下设置图片强制宽度800，高度自动，质量85，不设宽度高度上限 picTool.width=800 picTool.height=0 picTool.widthMax=0 picTool.heightMax=0 picTool.Quality=85 '以下设置水印图片、透明度、位置 picTool.picFileNameSY="D:\wwwroot\压缩+水印\web\test_sy.gif" picTool.alphaSY=0.3 picTool.topSY=-1 picTool.leftSY=-1 picTool.savePic "D:\wwwroot\压缩+水印\web\test_ok.jpg" document.write picTool.width & " " & picTool.height set picTool = nothing