以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  js起作用，但是"toptip1"没有提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150850)
--  作者：zxmjsnt
--  发布时间：2020/6/9 10:47:00
--  js起作用，但是"toptip1"没有提示
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
    Case "addnew.htm"
        If e.PostValues.Count = 0 Then
            wb.AppendHTML("<script type=\'text/javascript\' src=\'./foxtableAppTest/js/common.js\'></script>", True)
            wb.AppendHTML("<link rel=\'stylesheet\' href=\'./foxtableAppTest/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
            wb.AddTopTips("","toptip1","")
            wb.AddPageTitle("","pageheader","钢丝生产","生产者 - - "& e.Cookies("Uname"))

            wb.AddForm("","form1","addnew.htm").Attribute=""
            With wb.AddInputGroup("form1","ipg1","录入产量")
                .AddHiddenValue("姓名",e.Cookies("Uname") )
                .AddHiddenValue("班次",e.Cookies("班次") )
                .AddHiddenValue("日期",e.Cookies("indate") )
             
                
                With .AddInputCell("ic4") \'通过InputCell增加输入框
                   .AddLabel("lsj","轮号",0) \'增加标签,0显示在左边
                   .AddInput("轮号","text",1) \'增加输入框,1表示显示在中间
                   .AddVcodeButton("hym","扫一扫",2).Attribute = """
                End With

                .AddInput("车台","车台","Text") 

                .AddInput("长度","长度","number").value=15800
                .AddSwitch("是交班数量","是交班数量",False)
            End With
            wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'轮号\').value=r;}</script>")
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With

            With wb.AddButtonGroup("form1","btg2",False)
          
                .Add("btn2","查询","button").Attribute ="""
                .Add("btn3","返回","button").Attribute ="""

            End With

            wb.AppendHTML("<script src=\'../lib/aj.js\'></script>") 

            e.WriteString(wb.Build)
[此贴子已经被作者于2020/6/9 10:57:42编辑过]
--  作者：zxmjsnt
--  发布时间：2020/6/9 10:50:00
--  
function validit(){
    var result=submitAjaxFileds("valid.htm","","轮号",false);
    if(result=="OK"){
        return true;
    }
    else{
        showTopTips("toptip1",result,2500);
        return false;
    }
}
--  作者：有点蓝
--  发布时间：2020/6/9 11:09:00
--  
我这样测试没有问题

    Case "addnew.htm"
Dim wb As New weui
        If e.PostValues.Count = 0 Then
            wb.AddTopTips("","toptip1","")
            wb.AddPageTitle("","pageheader","钢丝生产","生产者 - - "& e.Cookies("Uname"))
            
            wb.AddForm("","form1","addnew.htm").Attribute="onsubmit=\'return validit()\'"
            With wb.AddInputGroup("form1","ipg1","录入产量")
                .AddHiddenValue("姓名",e.Cookies("Uname") )
                .AddHiddenValue("班次",e.Cookies("班次") )
                .AddHiddenValue("日期",e.Cookies("indate") )
                
                
                With .AddInputCell("ic4") \'通过InputCell增加输入框
                    .AddLabel("lsj","轮号",0) \'增加标签,0显示在左边
                    .AddInput("轮号","text",1) \'增加输入框,1表示显示在中间
                    .AddVcodeButton("hym","扫一扫",2)
                End With
                
                .AddInput("车台","车台","Text")
                
                .AddInput("长度","长度","number").value=15800
                .AddSwitch("是交班数量","是交班数量",False)
            End With
            
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            
            With wb.AddButtonGroup("form1","btg2",False)
                
                .Add("btn2","查询","button")
                .Add("btn3","返回","button")
                
            End With
            
            wb.AppendHTML("<script src=\'../lib/aj.js\'></script>")
            
            e.WriteString(wb.Build)

        End If
Case "valid.htm"
e.WriteString("111111111")