网页端上传照片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我测试没问题，肯定没问题。

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","abc.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传") '文件上传
            .AddUploader("up1","")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
    Case "abc.htm"
        For Each key As String In e.Files.Keys
            If key = "up1" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
                    Dim img As Image = Image.FromFile(ProjectPath & "Attachments\" & fln)
                    Dim pt As PropertyItem() = img.PropertyItems
                    For i As Integer = 0 To pt.Length - 1
                        Dim p As PropertyItem = pt(i)
                        Select Case pt(i).Id
                            Case &H132
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("修改时间: " & s)
                                Output.Show("")
                            Case &H9003
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("拍摄时间: " & s)
                                Output.Show("")
                            Case &H110
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("相机型号: " & s)
                                Output.Show("")
                            Case &H10F
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("制造商: " & s)
                                Output.Show("")

                            Case &H131
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("修改软件: " & s)
                                Output.Show("")

                        End Select
                    Next

                    Dim 图像高度 As Integer = img.Height.ToString()
                    Output.Show("图像高度: " & 图像高度 & " DPI" )
                    Dim 图像宽度 As Integer = img.Width.ToString()
                    Output.Show("图像宽度: " & 图像宽度 & " DPI" )

                Next

            End If
        Next
End Select

主题：网页端上传照片