只开通HTTP端口,在VFP中如何上传文件,本文将解决这个问题,这样在以后的服务器部署中是不是更方便
测试环境
IIS
VFP
客户端存在 C:/AAA.ZIP
服务器存在 C:/TMP/这个目录
需要XMLHTTP组件,一般安装IE6的环境就可以了
系统将 客户端的C:/AAA.ZIP 保存到 服务器的C:/TMP中
一般情况下 为了在HTML网页中获得上传功能,在IE的客户端我们可以使用如下格式的FORM:
< FORM NAME="myForm" ACTION="TargetURL.asp" ENCTYPE="multipart/form-data"METHOD="post" >
< INPUT TYPE="file" NAME="myFile" >
< INPUT TYPE="submit" value="Upload File" >
< /FORM >
这种方案在客户端和服务器端的使用都有很多限制。首先,我们必须使用POST方法,因为GET方法无法处理这样的表单数据。并且,没有什么方法可以在不使用表单的情况下引发一个POST动作。把数据发送给表单处理程序后,浏览器将会把处理程序作为新页面加载,然后使用者会看到一个不讨人喜欢的页面转换过程。
ENCTYPE属性为表单定义了MIME编码方式,上传文件的表单的ENCTYPE属性必须使用“multipart/form-data”。把这个属性设置为“multipart/form-data”就创建了一个与传统结构不同的POST缓冲区(复合结构),ASP的Request对象无法访问这样的表单内容。所以,我们可以使用Request.binaryRead方法来访问这些数据,但是无法使用脚本语言来完成这一切。Request.binaryRead方法返回一个VTarray型数据(只包含无符号一字节字符的Variant型数组)。但是脚本语言只能处理Variant型数据。为了解决这个问题,只能使用专用的ASP上传组件,或者ISAPI扩展程序,比如CPSHOST.DLL。这是设计上的限制。
新的上传方案
需要按照如下步骤操作。
客户端:
使用MSXML 3.0创建一个XML文档
创建一个针对二进制内容的XML节点
使用ADO Stream object将上传的文件数据放入该节点
使用XMLHTTP对象把这个XML文档发送给Web服务器
服务器端:
从Request对象中读出XML文档读出二进制节点中的数据并且存储到服务器上的文件中。当然,我们也可以将其存储到数据库的BLOB型字段中。
在解释这段代码之前,我们可以对这个方案进行一些思考。
对XML的思考
XML格式支持很多数据类型,比如numeric, float, character等等。很多作者将XML定义为ASCII格式,但是我们不能忽视,XML技术还可以使用“bin.base64”数据类型来描述二进制信息。这个特性在MS XML3.0解析器重得到完全的支持,但是目前还需要一些特别设置。该对象提供一些可以对二进制数据进行完全控制的属性:
obj_node.dataType - 该可读写的属性定义了特定节点的数据类型。MSXML解析器支持更多的数据类型(参见MSDN:http://msdn.microsoft.com/library/psdk/xmlsdk/xmls3z1v.htm)
对于二进制数据,我们可以使用“bin.base64”类型。
obj_node.nodeTypedvalue - 该可读写属性包含了按照制定类型表示的指定节点的数据。
我们可以创建一个包含多个bin.base64类型节点的XML文档,节点中包含上传的文件。这点特性可以使用一个POST一次上传多个文件。
我们可以使用XMLHttpRequest对象和POST方法发送一个XML文档给Web服务器。该对象为HTTP服务器提供了客户端协议支持,允许在Web服务器上发送和接受MS XMLDOM对象。XMLHttpRequest是Internet Explorer 5内置的COM对象(不需要定制安装),并且发送完毕后无需转换页面。
对ADO Stream对象的思考
我们可以在客户端创建一个包含一个或者多个二进制节点的XML文档。我们还必须把文件内容填入节点中。但是很不幸,脚本语言不能访问本地文件系统,并且Scripting.FileSystem对象(是Win32系统的内置对象)到目前为止还不能访问二进制文件。这是设计上的限制。所以我们需要另外找一个可以提供对本地二进制文件的访问的COM对象。
ADO Stream对象(MDAC 2.5中的组件)提供了读、写和管理二进制流数据的手段。字节流的内容可以是文本,或者二进制数据,并且没有容量上的限制。在ADO 2.5中,Microsoft对Stream对象的介绍不属于ADO对象结构的任何一层,所以,我们无需捆绑即可使用该对象。
本文中使用Stream对象来访问文件内容,再把内容存入XML节点。
客户端
以下示例代码使用Stream和MSXML对象完成文件上传动作。
sendfile.prg
TEXT to lcXmlString
ENDTEXT
*// 创建 ADO-stream 对象
ado_stream = createobject("ADODB.Stream")
*// 创建包含默认头信息和根节点的 XML文档
xml_dom = CreateObject("Msxml2.DOMDocument.4.0")
*createobject("MSXML2.DOMDocument")
xml_dom.loadXML(lcXmlString)
*// 指定数据类型
xml_dom.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes")
*// 创建一个新节点,设置其为二进制数据节点
l_node1 = xml_dom.createElement("file1")
l_node1.dataType = "bin.base64"
*// 打开Stream对象,读源文件
ado_stream.Type = 1 &&; // 1=adTypeBinary
ado_stream.Open()
ado_stream.LoadFromFile("c:/aaa.zip")
*// 将文件内容存入XML节点
l_node1.nodeTypedvalue = ado_stream.Read(-1) &&; // -1=adReadAll
ado_stream.Close()
xml_dom.documentElement.appendChild(l_node1)
*// 可以创建多个二进制节点,一次上传多个文件
*// 把XML文档发送到Web服务器
xmlhttp = createobject("Microsoft.XMLHTTP")
xmlhttp.open("POST","http://9dvfp.vicp.net/sendfile/upload.asp",.f.)
xmlhttp.send(xml_dom)
MESSAGEBOX(xmlhttp.ResponseBody)
RELEASE xmlhttp
服务器端
以下代码使用相同的对象提供服务器端的上传处理功能。
C:/Inetpub/wwwroot/sendfile/upload.asp
< %@ 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/aaa.zip",2 ' 2=adSaveCreateOverWrite
ado_stream.close
' 销毁对象
set ado_stream = Nothing
set xml_dom = Nothing
' 向浏览器返回信息
Response.Write "Upload successful!"
% >
也可以使用Stream对象把数据放到数据库的BLOB型字段中。
使用该方法的益处
因为是利用XML串传输,故可以一次传输多个文件需要注意的是,在服务器端的ASP程序中,存放的文件名不要保存成EXE,ASP等文件,一般只保存为ZIP文件,这样会安全些