如何实现无组件上传二进制文件？_编程10000问_

NEWSZW_HZH_BEGIN-->

<!--METADATA TYPE="typelib"
      UUID="00000205-0000-0010-8000-00AA006D2EA4"
    NAME="ADODB Type Library"
-->
<%
  Dim objStream
  Set objStream = Server.CreateObject("ADODB.Stream")

  ' 创建一个 Stream 对象 .

  objStream.Type = adTypeBinary
  objStream.Open
  objStream.LoadFromFile "D:\Inetpub\wwwroot\images\chunfeng.gif"

  ' 用 stream 对象的 loadfromfile 方法 打开一个 GIF 文件 .

 
  ' 输出 stream 对象连接 .
  Response.ContentType = "image/gif"

' 指定 操作文件类型的信息 , 二进制还是 text, 如果是 text 还要指定是 ASCII 还是 UNICODE 格式 .
  Response.BinaryWrite objStream.Read

  objStream.Close
  Set objStream = Nothing

  ' 清空 .
%>

[1]