主题：用uploader,上传文件，我想在一旁边做个文本框，显示上传文件的名字

用uploader+js，不能显示文件名，

[httpserver]:

With wb.AddInputGroup("form1","ipg1","上传文件")
                With .AddUploader("文件地址","上传通知",False) 'True表示允许上传多个文件
                    .TextPosition = 0 '标题靠左
                    .Attribute = "" '调用js函数,调置文件名称
                End With
                With .AddInput("文件名称","文件名称","Text")
                    .Readonly=True
                End With
                .AddInput("文件号","文件号","text")   '要求所有文件要有编号
                .AddInput("文件摘要","文件摘要","text")   '要求所有文件要有编号
               
            End With
            wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

js:

function setfln(){     //设置文件名
    var result= submitAjaxFileds('Passfln.htm','','文件地址',false);
alert(result);
    if(result){
        var vals=result.split("|");
alert(vals.length);
        if(vals.length==1){
alert(vals[0]);
            document.getElementById("文件名").value=vals[0];
   //document.getElementById("文件编号").value=vals[1];
           
        }
    }
}

回调：

   Case "Passfln.htm"
        Dim pps As String
        For Each key As String In e.Files.Keys
                If key = "文件地址" Then
                    For Each fln As String In e.Files(key)
                       pps=fln

                    Next           
                End If
         Next
                e.WriteString(pps)