匿名投稿
投稿指南
RSS订阅服务器端
以下代码使用相同的对象提供服务器端的上传处理功能。
| <%@ 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:mpupload1.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 。