请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器

Question

请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器

Answer 1

2楼说的也是一个方法，但是必需通过手工选择要上传的文件，然后提交，不能自动选择文件然后实现提交的功能
使用Winwock连接服务器的80端口，然后按照Http1.0协议提交本地二进制数据即可。如需要可以联系我：[email protected]

Answer 2

请参见：
http://topic.csdn.net/u/20071210/09/3f8e8d05-c235-4367-98cf-4529c0a80d80.html

Answer 3

Inherits System.Windows.Forms.Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs As FileStream = New FileStream("E:\工程\图片\11.png", FileMode.Open, FileAccess.ReadWrite)
        Dim bt(fs.Length) As Byte
        fs.Read(bt, 0, fs.Length)
        fs.Close()
        fs = Nothing
        Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Server=(local);User Id=sa;Password=sa;Database=pubs")
        sqlConn.Open()        Dim sqlCmd As New SqlClient.SqlCommand("sp_InsertImage", sqlConn)
        sqlCmd.CommandType = CommandType.StoredProcedure
        sqlCmd.Parameters.Add("@img", SqlDbType.Image).Value = bt
        sqlCmd.ExecuteNonQuery()
        sqlCmd = Nothing
        sqlConn.Close()
        sqlConn = Nothing
        MsgBox("图片插入成功", MsgBoxStyle.Information)
    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Server=(local);User Id=sa;Password=sa;Database=pubs")
        sqlConn.Open()
        Dim sqlCmd As New SqlClient.SqlCommand("SELECT img FROM test WHERE t_ID=52", sqlConn)
        sqlCmd.CommandType = CommandType.Text        Dim bt() As Byte = sqlCmd.ExecuteScalar()
        If Not bt Is Nothing Then
            If bt.Length > 0 Then
                Dim fs As MemoryStream = New MemoryStream(bt)
                pbReview.Image = Image.FromStream(fs)
                fs.Close()
                fs = Nothing            Else
                MsgBox("无图片")
            End If
        Else
            MsgBox("无数据")
        End If        sqlCmd = Nothing
        sqlConn.Close()
        sqlConn = Nothing    End Sub    
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Dispose(True)
    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End Sub这是我参考别人的代码做的将本地的图片用文件流读入到sql数据库中，然后再从中读出来，你看下，可能对你有帮助！