用Winsock上传到HTTP，服务器端用ASP接收为什么总是不成功，以上是代码，高手请进

网页上传提交页面：http://www.net578.com/upload/up_BookPic.asp
网页上传接收页面：http://www.net578.com/upload/up_BookPicPro.asp
高手救死啊，先谢了。我的QQ为：418944 以下为所有提交代码，一个cmommand、label、winsock、text 分别一个就可以了Private Sub Command1_Click()
       Me.Winsock1.RemoteHost = "www.net578.com"
       Me.Winsock1.RemotePort = 80
       Me.Winsock1.Connect
       Me.Label1 = "Connecting..."
       DoEvents
       tmr = Timer
       Do Until Me.Winsock1.State = 7
               DoEvents
               If Timer - tmr >= 10 Then
                       MsgBox "Connection  Timeout.", vbOKOnly, "Error"
                       Me.Winsock1.Close
                       Exit Sub
               End If
       Loop
       Me.Label1 = "Ready  to  send..."
         
         
       strhttpheader = strhttpheader & "POST /upload/up_BookPicPro.asp HTTP/1.1" & vbCrLf
       strhttpheader = strhttpheader & "Accept: */*" & vbCrLf
       strhttpheader = strhttpheader & "Referer: http://www.net578.com/upload/up_BookPic.asp" & vbCrLf
       strhttpheader = strhttpheader & "Accept-Language: zh-cn" & vbCrLf
       strhttpheader = strhttpheader & "Content-Type: multipart/form-data; boundary=---------------------------7d64e9806ce" & vbCrLf
       strhttpheader = strhttpheader & "Accept-Encoding: gzip, deflate" & vbCrLf
       strhttpheader = strhttpheader & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 2.0.50727; .NET CLR 1.1.4322)" & vbCrLf
       strhttpheader = strhttpheader & "Host: www.net578.com" & vbCrLf       strbody = strbody & "-----------------------------7d64e9806ce" & vbCrLf
       strbody = strbody & "Content-Disposition: form-data; name=""filepath""" & vbCrLf & vbCrLf
       strbody = strbody & "/" & vbCrLf
       strbody = strbody & "-----------------------------7d64e9806ce" & vbCrLf
       strbody = strbody & "Content-Disposition: form-data; name=""filelx""" & vbCrLf & vbCrLf & vbCrLf
       strbody = strbody & "-----------------------------7d64e9806ce" & vbCrLf
       strbody = strbody & "Content-Disposition: form-data; name=""EditName""" & vbCrLf & vbCrLf & vbCrLf
       strbody = strbody & "-----------------------------7d64e9806ce" & vbCrLf
       strbody = strbody & "Content-Disposition: form-data; name=""FormName""" & vbCrLf & vbCrLf & vbCrLf
       
       strbody2 = "-----------------------------7d64e9806ce" & vbCrLf
       strbody2 = strbody2 & "Content-Disposition: form-data; name=""act""" & vbCrLf & vbCrLf
       strbody2 = strbody2 & "uploadfile" & vbCrLf
       strbody2 = strbody2 & "-----------------------------7d64e9806ce" & vbCrLf
       strbody2 = strbody2 & "Content-Disposition: form-data; name=""file1""; filename=" & Me.Text1 & vbCrLf
       strbody2 = strbody2 & "Content-Type: image/pjpeg" & vbCrLf & vbCrLf
        'strbody2 = strbody2 & "ÿ?"      'strhttpheader = strhttpheader & "Content-Length: " & CLng(Len(strbody) + Len(strbody2) + FileLen(Me.Text1)) & vbCrLf
      strhttpheader = strhttpheader & "Content-Length: " & Len(strbody) + Len(strbody2) + FileLen(Me.Text1) & vbCrLf
       'strhttpheader = strhttpheader & "Content-Length: 14356" & vbCrLf
       strhttpheader = strhttpheader & "Connection: Keep-Alive" & vbCrLf
       strhttpheader = strhttpheader & "Cache-Control: no-cache" & vbCrLf
       strhttpheader = strhttpheader & "Cookie: 578metbbsskin=default; 578metbbsvisit=token=8ED27EC68E1D1FA0FDD7D7B3D88C07BA&lasttime=2006-12-8 16:38:04&thistime=2006-12-10 20:49:42; 578metbbslanguage=zh-CN; ASPSESSIONIDQSRRACCA=KPGHMEKCECEPJKPFEGMNKABE" & vbCrLf & vbCrLf & vbCrLf
      ' Me.Winsock1.SendData strhttpheader
     '  DoEvents       Me.Winsock1.SendData strhttpheader & strbody & strbody2
       DoEvents
       Me.Label1 = "Sending  file  data..."
       DoEvents
       Dim bytBuff(8191)   As Byte
       Dim bytRem()   As Byte
       Open Me.Text1.Text For Binary As #1
               times = Int(LOF(1) / 8192)
               ReDim bytRem(LOF(1) Mod 8192 - 1)
               For i = 1 To times
                       Get #1, , bytBuff
                       Me.Winsock1.SendData bytBuff
                       DoEvents
               Next
               Get #1, , bytRem
               Me.Winsock1.SendData bytRem
              DoEvents
       Close #1      ' Me.Winsock1.SendData strbody2
      ' DoEvents
         
       'Me.Winsock1.SendData vbCrLf & strbody2
      ' DoEvents       Me.Label1 = "File  was  sent  successfully."
       DoEvents
       Me.Winsock1.Close
         
End Sub