28,391
社区成员
发帖
与我相关
我的任务
分享
Set S=server.CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(server.mappath(forder&server.urlencode(filename))
Response.AddHeader "Content-Disposition", "attachment; filename="&filename
Response.CharSet = "GB2312"
Response.ContentType = "image/*"
Response.BinaryWrite(S.Read)
Response.Flush
s.close
set s=nothing