读取输出图片

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Call downloadFile(Server.MapPath("wyy.jpg"))
Sub downloadFile(strFile)
 On error resume next
 Server.ScriptTimeOut=999999
 Dim S,fso,f,intFilelength,strFilename
 strFilename = strFile
 Response.Clear
 Set s = Server.CreateObject("ADODB.Stream")
 s.Open
 s.Type = 1
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 If Not fso.FileExists(strFilename) Then
  Call downloadFile(Server.MapPath(Dvbbs.Forum_Info(6)))
  Exit Sub  
 End If
 Set f = fso.GetFile(strFilename)
 intFilelength = f.size
 s.LoadFromFile(strFilename)
 If err Then
   Response.Write("<h1>错误: </h1>" & err.Description & "<p>")
  Response.End
 End If
 Set fso=Nothing
 Dim Data
 Data=s.Read
 s.Close
 Set s=Nothing
 If Response.IsClientConnected Then
  If Not (InStr(LCase(f.name),".gif")>0 Or InStr(LCase(f.name),".jpg")>0 Or InStr(LCase(f.name),".jpeg")>0 Or InStr(LCase(f.name),".bmp")>0 )Then
   Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
  End If
  Response.AddHeader "Content-Length", intFilelength
   Response.CharSet = "UTF-8"
  Response.ContentType = "application/octet-stream"
  Response.BinaryWrite Data
  Response.Flush
 End If
End Sub
 %>