WINSOCK发送8KB以上的图片，不行

Winsock1.SendData strhttpheader & strbody
    DoEvents
'
    Label1 = "Sending file data..."
    DoEvents
    Dim bytBuff(8191) As Byte
    Dim bytRem() As Byte
    Open Me.Text1.Text For Binary As #1  'text1是图片的路径
        times = Int(LOF(1) / 8192)
        ReDim bytRem(LOF(1) Mod 8192 - 1)
        For i = 1 To times
            Get #1, , bytBuff
            Winsock1.SendData bytBuff
            DoEvents
        Next
        Get #1, , bytRem
        Winsock1.SendData bytRem
        DoEvents
    Close #1 '
    Winsock1.SendData vbCrLf & strbody2
    DoEvents
    Label1 = "File was sent successfully."
    DoEvents
    Winsock1.Close上面的原址是http://faq.csdn.net/read/174825.html服务器用的是化境ASP上传组件，没有限制上传大小大家帮忙看看上面的代码有没有问题，
传8K以内的文件没问题，但是8K以上的就发不到服务器