Foxtable(狐表) → 用户栏目 → 专家坐堂 → js文件怎么写


  共有2969人关注过本帖树形打印复制链接

主题：js文件怎么写
帅哥哟，离线，有人找我吗？
nxqtxwz
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00 		js文件怎么写  发帖心情 Post By：2020/4/30 11:33:00 [显示全部帖子]

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


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

 回到顶部
帅哥哟，离线，有人找我吗？
nxqtxwz
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00 		  发帖心情 Post By：2020/4/30 11:50:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.zip
 回到顶部
帅哥哟，离线，有人找我吗？
nxqtxwz
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00 		  发帖心情 Post By：2020/4/30 14:44:00 [显示全部帖子]

老师，不好意思，这就是完整的代码，再没有代码了。现在应用没问题，就是不能控制空信息上传。除图片列外其它列必须填写，图片列可以不上传但最多选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
 回到顶部
帅哥哟，离线，有人找我吗？
nxqtxwz
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00 		  发帖心情 Post By：2020/4/30 15:37:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:移动试验(正式) - 副本.zip
 回到顶部
帅哥哟，离线，有人找我吗？
nxqtxwz
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00 		  发帖心情 Post By：2020/5/12 11:16:00 [显示全部帖子]

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06543 秒, 7 次数据查询