主题：[求助]手机上传接受图片问题。

Case "receive.htm"
    Dim nms() As String = {"姓名","年龄","学历"}
    Dim dr As DataRow = DataTables("员工").AddNew()
    For Each nm As String In nms
        dr(nm) = e.PostValues(nm)
    Next
    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)
            Next
            dr.Lines("照片") = e.Files(key)
        End If
    Next
    '保存并生成增加成功提示页面
    dr.save()
    e.WriteString("OK")

改成