主题：FTP连接问题

   Case "fhedit.htm"
        Dim PageNumber As Integer = e.GetValues("page")
        Dim PrimaryKey As Integer = e.GetValues("key")
        Dim PageURL = "listclfh.htm?page=" & PageNumber
        Dim dr As DataRow = DataTables("出库台账").SQLFind("[_Identify]=" & PrimaryKey)
        If dr IsNot Nothing Then
            wb.AddForm("","form1","scl.htm")
            With wb.AddInputGroup("form1","ipg1","车辆防护照片上传")
                With .AddInput("bdsx","标单顺序:","text")
                    .Value = dr("标单顺序")
                    .Readonly= True
                End With
                With  .AddInput("kh","客户名称:","text")
                    .Value = dr("收货单位")
                    .Readonly= True
                End With
                With  .AddInput("cph","车牌号:","text")
                    .Value = dr("车牌号")
                    .Readonly= True
                End With
                With  .AddInput("jz","行号:","text")
                    .Value = PrimaryKey
                    .Readonly= True
                End With
                .AddInput("bgy","保管员:","text").Value = dr("收费员")
                With .AddUploader("up128","照片上传:一个车的防护照片只能一次性上传!",True)
                    .AllowDelete = True '允许删除
                    .Incremental = True '允许 重复选择文件或连续拍照
                    .ScaleWidth = 300
                End With
            End With
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "上传", "button").Attribute= "" '调用js函数上传
                .Add("btn2","返回","" ,"fhedit.htm")
            End With
            wb.AddToast("","tst1", "正在上传",1)
            wb.AddToast("","tst2", "上传成功",0)
            wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
            wb.AppendHTML("<script src='./lib/ajaxform1.js'></script>") '引入脚本文件
        Else
            With wb.AddMsgPage("","msgpage","上传失败","........") '提示用户此订单不存在.
                .icon= "Warn"
                .AddButton("bt3","返回",PageURL) '生成返回原来页面的按钮
            End With
        End If
    Case "scl.htm"
        Dim dr As DataRow = DataTables("出库台账").SQLFind("[_Identify] = '" & e.PostValues("jz") & "'")
        dr("收费员") = e.PostValues("bgy")
        For Each key As String In e.Files.Keys
            If key = "up128" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key,fln,"C:\web\uploadfiles\" & fln)
                Next
                 dr.Lines("车辆防护") = e.Files(key)
            End If
        Next
        e.WriteString("OK")

  没有子目录   照片直接上传到了服务器的这个文件夹里面了，C:\web\uploadfiles