主题：js文件怎么写

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);
    }
}

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;
 }

 

代码写成这样：

 

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 '保存编辑结果
            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
                    For Each fln As String In e.Files(key)
                        e.SaveFile(key, fln,"D:\xxsjk(学校数据库)\web\学校档案\家访资料\" & fln)       'ftp和web尽量共用一个图片目录,否则页面无法正常显示图片
                        lst.Add(fln)
                    Next
                End If
            Next
            dr.Lines("家访资料") = lst            ''' '保存并生成增加成功提示页面
            dr.save()
            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

点确定按钮后没反应,请老师给帮帮忙吧。

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

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

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

重新从项目里复制代码、1楼本来的代码就不完整，再复制1楼的代码有毛用

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

请上传实例

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

点击浏览该文件:移动试验(正式) - 副本.zip

老师您好，还是1楼这个例子，现在想把图片列改为文件列，请问通过手机还能上传照片吗？

可以