Response.Buffer = True
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(strFilename) then
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.ContentType = "application/octet-stream"
Response.Charset = "UTF-8"
Response.BinaryWrite s.Read
Response.Flush
s.Close(strFilename)
s.Close
Set s = Nothing
用这段代码下载会弹出一个网页,而且不能自动关闭,解决的办法就是设置一个frame,让这个frame的高度为0,那样那个网页就显示不出来了
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(strFilename) then
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.ContentType = "application/octet-stream"
Response.Charset = "UTF-8"
Response.BinaryWrite s.Read
Response.Flush
s.Close(strFilename)
s.Close
Set s = Nothing
用这段代码下载会弹出一个网页,而且不能自动关闭,解决的办法就是设置一个frame,让这个frame的高度为0,那样那个网页就显示不出来了