asp服务器接收收XMLHttp文件,ASP利用 xmlhttp 分块上传文件

Response.Expires = 0

' 定义变量和对象。

dim ado_stream

dim xml_dom

dim xml_data

dim str_filename

dim bol_PartStart

dim int_PartID

dim bol_PartEnd

' 创建 Stream 对象

set ado_stream = Server.CreateObject("ADODB.Stream")

' 从Request对象创建 XMLDOM对象

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")

xml_dom.load(request)

' 读出包含二进制数据的节点

set xml_data = xml_dom.selectSingleNode("root/upData")

str_filename = xml_data.getAttribute("FileName")

bol_PartStart = CBool(xml_data.getAttribute("PartStart"))

int_PartID = CInt(xml_data.getAttribute("PartID"))

bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))

' 打开Stream对象，把数据存入其中

ado_stream.Type = 1 ' 1=adTypeBinary

ado_stream.open

if not bol_PartStart then

ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename)　　 ' 读取文件

ado_stream.position = ado_stream.size

end if

ado_stream.Write xml_data.nodeTypedValue

' 文件存盘

ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2

'保存文件 2=adSaveCreateOverWrite

ado_stream.close

' 释放资源

set ado_stream = Nothing

set xml_dom = Nothing

' 向浏览器返回信息

Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart

%>