如何做到没有填写，显示提示信息并不能提交呢？

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

请问老师，valid.js这样写行吗？

function valid(){
    var v1 = document.getElementById("学生姓名").value;
    var v2 = document.getElementById("年级).value;
    var v3 = document.getElementById("班级).value;
    var v4 = document.getElementById("家访日期).value;
    var v5 = document.getElementById("家访教师).value;
    if (v1 && v2 && v3 && v4 && v5 ){return true}
    show("toptip1",2000);
    return false;
 }

请问老师，怎么能把下面的两段js代码全成一个呢。

代码一：

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

代码二：

wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
            wb.AddForm("","form1","addnew.htm").Attribute=""

1、例子中的validit()函数没看懂，是要自己建立吗？

2、原代码：

 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,后一个"姓名"是标题
              。。。。。。。。

            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

例子中的ajaxform.js\'和上面代码中的ajaxform.js\'怎么能合二为一呢？

不知怎么建呀，请老师给个例吧，谢谢老师。