如何实现无组件上传二进制文件？

ttx9n · 发表于 2006-11-16 00:00:00

<%
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]

额呵呵 · 发表于 2022-8-19 14:15:51

额UI废物iuhfujewfiewnnfen

dm00ji1s · 发表于 2022-9-23 08:41:01

看看怎么样再说

qq303604905 · 发表于 2023-3-16 07:11:12

哈哈哈哈哈哈哈

bp5jgbcnt · 发表于 2023-4-21 06:51:08

sdsadsadsadf

lsc54 · 发表于 2023-4-24 07:43:30

还有人在不。。。。。。。。。。啊

xf9hlg1 · 发表于 2023-9-6 21:08:25

还不错啊

nwk53kbd · 发表于 2023-10-17 04:00:30

看看看看

idy6_yus · 发表于 2023-11-3 09:34:47

论坛有你更精彩！

x20yd3qx · 发表于 2023-11-25 22:57:39

来看看怎么样

账号		自动登录	找回密码
密码			立即注册

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

相关帖子