| 服务器端 以下代码使用相同的对象提供服务器端的上传处理功能。 < %@ 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 。 (责任编辑：admin) |
