会python真的可以为所欲为0(回)
395天前
这里还有人吗1(回)
580天前这里还有人吗0(回)
580天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
805天前到处都是羊，不想上班0(回)
885天前
鸽子
0(回)
889天前function downloadFile(strFile) |
strFilename = server.MapPath(strFile) |
Response.Buffer = True |
Response.Clear |
Set s = Server.CreateObject("ADODB.Stream") |
s.Open |
s.Type = 1 |
on error resume next |
Set fso = Server.CreateObject("Scripting.FileSystemObject") |
if not fso.FileExists(strFilename) then |
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>") |
Response.End |
end if |
Set f = fso.GetFile(strFilename) |
intFilelength = f.size |
s.LoadFromFile(strFilename) |
if err then |
Response.Write("<h1>Error: </h1>" & err.Description & "<p>") |
Response.End |
end if |
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name |
Response.AddHeader "Content-Length", intFilelength |
Response.CharSet = "UTF-8" |
Response.ContentType = "application/octet-stream" |
Response.BinaryWrite s.Read |
Response.Flush |
s.Close |
Set s = Nothing |
End Function |
