主题：[求助]选择图片后直接上传如何写代码

输入页面代码如下

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
    wb.AddForm("","form1","cardbookaddnew.htm")
    With wb.AddInputGroup("form1","ipg1","名片正面") '文件上传
        .AddUploader("名片正面","",False)
        .Attribute = "" '调用js函数
    End With
    With wb.AddInputGroup("form1","ipg2","名片信息")
        .AddInput("公司名称","公司名称","text")
        .AddInput("姓名","姓名","text")
        .AddInput("职务","职务","text")
        .AddInput("手机","手机","text")
        .AddInput("传真","传真","text")
        .AddInput("固话","固话","text")
        .AddInput("Email","Email","text")
        .AddInput("网址","网址","text")
        .AddInput("地址","地址","text")
    End With
    With wb.AddInputGroup("form1","ipg3","备注")
        .AddTextArea("备注").Placeholder = "请输入200字以内的备注"
    End With
    With wb.AddInputGroup("form1","ipg4","名片反面") '文件上传
        .AddUploader("名片反面","",False)
    End With
    With wb.AddButtonGroup("form1","btg1",True)
        .Add("btn1", "确定", "submit")
    End With
    wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页

ajaxform.js文件代码如下：

function getcard(){
    var result= submitAjaxFileds('bdcardsb.htm','','名片正面',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==6){
            document.getElementById("姓名").value=vals[0];
            document.getElementById("手机").value=vals[1];
     document.getElementById("固话").value=vals[2];
     document.getElementById("Email").value=vals[3];
     document.getElementById("网址").value=vals[4];
     document.getElementById("地址").value=vals[5];
        }
    }
}

用bdcardsb.htm测试接收到的文件，测试不到，代码如下

Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
For Each key As String In e.Files.Keys
    sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
    For Each fl As String In e.Files(key)
        Dim NewName As String = fl
        Dim idx As Integer = fl.LastIndexOf(".")
        Dim cnt As Integer = 1
        Do While FileSys.FileExists("d:\web\temp\" & NewName) '判断文件夹是否存在同名文件
            NewName = fl.Insert(idx,"(" & cnt & ")") '如果存在同名文件,在原文件名加上序号
            cnt = cnt + 1 '递增序号
        Loop
        sb.AppendLine(fl & " → " & NewName & "<br>") '
        e.SaveFile(key,fl,"d:\web\temp\" & NewName) '保存接收到的文件
    Next
    sb.AppendLine("</br>")
Next
MessageBox.Show(sb.ToString)

显示空的，啥都没有