upload file using http and asp.net(continue)????

Question

这是先前的问题：
想做一个ocx控件，通过http来上传下载文件（从数据库），
用了microsot internet transfer 6.0,
通过inet1.openurl()已经实现了下载，
想通过inet1.execute "xx.aspx","Post",data,header
来实现文件的上传，
xx.aspx页面有一个<input type=file ... runat=server>
想把文件数据放在data里，用inet1模拟客户端xx.aspx的一个上传动作，
然后在xx.aspx后置代码里处理。关键是data和header是怎么个格式呀？
http://community.csdn.net/Expert/topic/4370/4370255.xml?temp=.6358606现在的问题：
上传文件成功了，可是文件大小不对？！
文件总比用页面传上去的大，：（
帮忙看看代码吧，谢谢了！
Inet1.Execute "http://10.190.72.223/hycoa/webmodules/admin/upimages.aspx", _
                  "Post", _
                  "-----------------------------7d525c2f30476" & vbCrLf & _
                  "Content-Disposition: form-data; name=""UploadFile""; filename=""c:\WordEdit\word.doc""" & vbCrLf & _
                  "Content-Type: application/msword" & vbCrLf & vbCrLf & _
                  strFile & vbCrLf & _
                  "-----------------------------7d525c2f30476--", _
                  "Referer: http://10.190.72.223/hycoa/webmodules/admin/upimages.aspx" & vbCrLf & _
                  "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*" & vbCrLf & _
                  "Accept -Language: zh -cn" & vbCrLf & _
                  "Content-Type: multipart/form-data; boundary=---------------------------7d525c2f30476" & vbCrLf & _
                  "Accept -Encoding: gzip , deflate" & vbCrLf & _
                  "Connection: Keep -Alive" & vbCrLfstrFile = GetFileContents("c:\WordEdit\word.doc")Private Function GetFileContents(ByVal strPath As String) As String
    Dim StrReturn As String
    Dim lngLength As Long
    
    lngLength = FileLen(strPath)
    StrReturn = String(lngLength, Chr(0))
    
    On Error GoTo ERR_HANDLER
    
    Open strPath For Binary As #1
    
    Get #1, , StrReturn
    
    GetFileContents = StrReturn
    
    Close #1
    
    Exit Function
    
ERR_HANDLER:
    MsgBox Err.Description, vbCritical, "ERROR"
    
    Err.Clear
End Function