ajaxform.js文件写成这样：

function validit(){
     var result=submitAjaxFileds("valid.htm","","学生姓名","年级","班级","家访日期","家访教师",false);
     if(result=="OK"){
         return true;
     }
     else{
         showTopTips("toptip1",result,2500);
         return false;
     }
 }

function submitForm(){
    show("tst1",2000);
    var result = submitAjaxForm(\'form1\',\'afterSubmit\');
}

function afterSubmit(result){
    hide("tst1");
    if (result==\'OK\') {
        show("dlg2");
    }
    else{
        show("tst3",2000);
    }
}

老师您好，就是js文件和两段代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.zip

老师，不好意思，这就是完整的代码，再没有代码了。现在应用没问题，就是不能控制空信息上传。除图片列外其它列必须填写，图片列可以不上传但最多选5张照片。

   Case "addjfjl.htm"
        Dim dr As DataRow = DataTables("家访记录").AddNew()
        If e.PostValues.Count = 0 Then
            wb.AddTopTips("","toptip1","请输入完整的家访信息!")
            wb.AddForm("","form1","addjfjl.htm").Attribute = ""\'调用函数
            With wb.AddInputGroup("form1","ipg1","家访信息(请您完整填写信息)")
                .AddInput("学生姓名","学生姓名:","text") \'前一个"姓名"是ID,后一个"姓名"是标题
                .AddSelect("年级","年级:","|一年级|二年级|三年级|四年级|五年级|六年级|七年级|八年级|九年级")
                .AddSelect("班级","班级:","|(1)班|(2)班|(3)班|(4)班|(5)班|(6)班|(7)班|(8)班")
                .AddInput("家访日期","家访日期:","date")
                .AddInput("家访教师","家访教师:","text")
               
                With wb.AddInputGroup("form1","ipg21","家访资料")
                    With .AddUploader("up1","家访资料",True)    \'True表示可上传多个文件
                        .Accept = "image/*"   \'允许使用相册和相机
                        .AllowDelete = True \'允许删除
                        .Incremental = True \'允许重复选择文件或连续拍照
                        \'  For Each s1 As String In dr.Lines("资料")
                        \'     .AddImage("./学校档案/送教记录/" & s1)
                        \' Next
                    End With
                End With
            End With
            With wb.AddDialog("","dlg2", "增加成功","谢谢您的支持!请在计算机中查看上传信息.")
                .AddButton("btn1","继续增加","addjfjl.htm")
                .AddButton("btn1","返回主菜单","default.htm")
            End With
            wb.AddToast("","tst1", "正在上传",1)
            wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "确定", "button").Attribute= ""
                .Add("btn2", "放弃", "button", "default.htm").Kind = 2
            End With
            wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
            e.WriteString(wb.Build)
            Return
           
           
        Else \'保存编辑结果
            \' If dr IsNot Nothing Then
            Dim lst As List(of String) = dr.Lines("家访资料")
            Dim nms() As String = {"学生姓名","年级","班级","家访日期","家访教师"}
            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
                    \' Dim lst As List(of String) = dr.Lines("资料")
                   
                    For Each fln As String In e.Files(key)
                        e.SaveFile(key, fln,"D:\\xxsjk(学校数据库)\\web\\学校档案\\家访资料\\" & fln)       \'ftp和web尽量共用一个图片目录,否则页面无法正常显示图片
                        lst.Add(fln)
                    Next
                    \'dr.Lines("资料") = lst
                End If
            Next
            dr.Lines("家访资料") = lst
            \'\'\' \'保存并生成增加成功提示页面
            dr.save()
            \'With wb.AddMsgPage("","msgpage","增加成功", "谢谢您的支持!") \'生成成功提示页
            \'.AddButton("btn1","继续增加","xxlr.htm")
            \'.AddButton("btn2","返回首页","default.htm").kind = 2
            \'End With
            e.WriteString("OK")
            Return
        End If
       
    Case  "valid.htm"
        If e.PostValues.ContainsKey("学生姓名") AndAlso e.PostValues.ContainsKey("年级") AndAlso e.PostValues.ContainsKey("班级") AndAlso e.PostValues.ContainsKey("家访日期") AndAlso e.PostValues.ContainsKey("家访教师") Then
            e.WriteString("OK")
        Else
            e.WriteString("请完整输入家访内容!")
        End  If