老大门，救命啊。关于模拟网页发送http请求上传文件的问题

[yadg]

1、我的程序如下：
Dim Filenumber As Integer
Dim FileLength As Long
Dim data() As Byte
Dim sdata, strBody As String
Dim localFile As String
Dim oHttp As XMLHTTP26
localFile = "e:\xxx.doc"
'docalFile = objDoc.FullName
Filenumber = FreeFile
Open localFile For Binary Access Read As #Filenumber
FileLength = LOF(Filenumber)
ReDim data(FileLength - 1) 'base is 0, upperbound = length -1
Get #Filenumber, , data
Close #Filenumber
sdata = data
'post数据
Dim server, header As String
Dim sBoundary As String
sBoundary = "---------------------------7d501c150378"
server = "http://ydj:8688/ProjManager/servlet/TaskFileLoadServlet"
header = "Content-Type:multipart/form-data,boundary=" & sBoundary
Set oHttp = New XMLHTTP26
oHttp.Open "POST", server, False
oHttp.setRequestHeader "Content-Type", "multipart/form-data;boundary=" & sBoundary
strBody = _
"--AaB03x" & vbCrLf & _
"content-disposition: form-data; name=""docUrl""" & vbCrLf & _
"dddd.doc" & vbCrLf & _
"--" & sBoundary & vbCrLf & _
"content-disposition: form-data; name=""xyz""; filename=""" & localFile & """" & vbCrLf & _
"Content-Type: application/msword" & vbCrLf & vbCrLf & _
sdata & vbCrLf & _
"--" & sBoundary & "--"
'send it
oHttp.send strBody
运行到最后一行就死机，而且我的服务器也没有收到任何消息，那位大哥熟悉这个的，帮帮我啊。
2、我的服务器端是java的servlet，用com.jspsmart.upload.smartUpload来接受文件的，接受后还要做什么处理吗。

[yadg]

自己up

[ezlj]

帮你顶