服务器端
以下代码使用相同的对象提供服务器端的上传处理功能。
<%@ 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
ado_stream.open
ado_stream.Write xml_file1.nodeTypedValue
' 文件存盘
ado_stream.SaveToFile "c:\tmp\upload1.doc",2 ' 2=adSaveCreateOverWrite
ado_stream.close
' 销毁对象
set ado_stream = Nothing
set xml_dom = Nothing
' 向浏览器返回信息
Response.Write "Upload successful!"
%>
也可以使用Stream对象把数据放到数据库的BLOB型字段中。
使用该方法的益处
不引起页面转换。
不需要专用组件。
可同时上传多个文件。
这段程序是纯脚本写成的,可以很容易的插入到其他代码中,而不需要任何HTML对象的配合。还可以把这个逻辑在任何支持COM标准的语言中实现。
系统安全考虑
该方法只能使用于内部网络,因为它需要IE5的安全级别设置为“低”。必须:
允许脚本和ActiveX对象。该设置允许浏览器执行类似 "myobj = new activexobject(...)"的 JScript语句;
必须允许穿越域访问数据源。这个设置允许在客户端使用Stream对象。还必须在服务器和客户端都安装MS XML DOM 3.0 和MDAC 2.5 。
References
Read Tiago Halm's article about traditional file-upload processing at
For a description of the data types supported by MS XML parser, see and
A sample of creating an XML document with binary data in VB is available at
For a Microsoft reference on the ADO Stream object, see .
Another sample for managing BLOB and binary files can be found at
About the Author
Marco Nanni is an Italian Web developer with experience in (D)HTML and XML technology used for implementing enterprise solutions. Marco can be contacted at: mnanni@lycos.it.
下载本文示例代码