源码网商城，靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

申请开店
全部源码分类
首页 源码街 任务需求 版权中心 备案服务 商家入驻

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

  • 时间：2021-06-29 05:13 编辑： 来源： 阅读：
  • 扫一扫，手机访问
摘要：如何实现无组件上传二进制文件？
<!--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

  ' 清空. %>

[b][1][/b]
  • 全部评论(0)
上一篇：禁止站外提交表单(author:killer)
下一篇：VBS编程教程 (第4篇)
关于我们 | 广告合作 | 联系我们 | 隐私条款 | 免责声明 | 网站地图

苏ICP备2024110244号-2      苏公网安备32050702011978号      增值电信业务经营许可证编号：苏B2-20251499   |  Copyright 2018 - 2025   源码网商城 (www.ymwmall.com) 版权所有

联系客服
客服电话：
400-000-3129
微信版

扫一扫进微信版
返回顶部