首页 相关文章 XML技术上传文件4

XML技术上传文件4

  服务器端

  以下代码使用相同的对象提供服务器端的上传处理功能。

%@ LANGUAGE=VBScript%
% Option Explicit
Response.Expires = 0

' 定义变量和对象。
dim ado_stream
dim XML_dom
dim XML_file1

' 创建 Stream 对象
set ado_stream = Server.CreateObject("ADODB.Stream")
' 从Request对象创建 XMLDOM对象
set XML_dom = Server.CreateObject("MSXML2.DOMDocument")
XML_dom.load(request)
' 读出包含二进制数据的节点
set XML_file1 = xml_dom.selectSingleNode("root/file1")

' 打开Stream对象,把数据存入其中
ado_stream.Type = 1 ' 1=adTypeBinary
ad...[ 查看全文 ]

2016-02-19 标签:

XML技术上传文件4的相关文章

手机页面
收藏网站 回到头部