服务器端
以下代码使用相同的对象提供服务器端的上传处理功能。
< %@ 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.nodetyped＆#118alue
' 文件存盘
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 。
