全部代码重写
Do while intFilelength > 0 and Response.IsClientConnected = true Response.BinaryWrite S.Read(512*1024) intFilelength = intFilelength - 512*1024 Loop
改成
dim downfailed : downfailed=0
Do while intFilelength > 0
if Response.IsClientConnected = false then
执行失败的语句
downfailed = 1
exit do
end if Response.BinaryWrite S.Read(512*1024) intFilelength = intFilelength - 512*1024 Loop
if downfailed = 1 then
执行下载没完全的语句
else
执行下载完全的语句
end if