Response.Clear
Response.Buffer = False
dim FileName : FileName ="文件名称"
dim strFilename : strFilename = "文件地址"
Set S = Server.CreateObject("ADODB.Stream")
S.Open
S.Type = 1
'On Error Resume Next
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile(strFilename)
intFilelength = F.Size '获取文件大小
S.LoadFromFile(strFilename)
Response.AddHeader "Content-Disposition","attachment;filename=" & FileName
Do while intFilelength > 0 and Response.IsClientConnected = true
Response.BinaryWrite S.Read(512*1024)
intFilelength = intFilelength - 512*1024
Loop
S.Close
Set F = Nothing
Set S = Nothing
Set FSO = Nothing
'这里写下载完成后执行的代码