主题：web中添加按钮或标签

老师，试着写一个里面，麻烦看看哪儿有问题，反选没问题

全选，全不选不对

   function check() {
     var stuts=document.querySelectorAll("input[id^='考勤人员_']").checked;
     var c=document.querySelectorAll("input[id^='考勤人员_']");
for
(var i=0;i<c.length;i++){
         c[i].checked=stuts;
     }
 }
   function uncheck() {
     var stuts=document.querySelectorAll("input[id^='考勤人员_']");
     var c=document.querySelectorAll("input[id^='考勤人员_']");
for
(var i=0;i<c.length;i++){
       c[i].checked=!c[i].checked;
     }
   }

分2个函数吧。不是相对的逻辑，不能用到一起。勉强是没有幸福的

算了，做按个按钮吧

   function check() {
     var stuts=document.querySelectorAll("input[id^='考勤人员_']").checked;
     var c=document.querySelectorAll("input[id^='考勤人员_']");
for
(var i=0;i<c.length;i++){
         c[i].checked=true;
     }
 }
    function uncheck() {
         c[i].checked=false;
   function facheck() {
     var stuts=document.querySelectorAll("input[id^='考勤人员_']");
       c[i].checked=!c[i].checked;
   }

在请教老师一下关于JS的，我统计复选框选中的数量，在保存时先弹出选中时的数量，怎么弄，

1、先请老师看看JS函数

function anyCheck() {
var c=document.querySelectorAll("input[id^='考勤人员_']");
var total = 0;
var max = c.length;
for (var idx = 0; idx < max; idx++) {
if (eval("document.playlist.c[" + idx + "].checked") == true) {
  total += 1;
  }
}
alert("您选择了 " + total + " 个选项！");
}

 

2.保存该怎么写

        With wb.AddButtonGroup("page1","btg1", False)
            .Add("btn1", "返回", "", "Rename.htm")
            .Add("btn2", "保存", "submit")
        End With

 

相通了不用那么麻烦，直接前端处理，但是保存前提醒的页面中，保存按钮该怎么写

.........

    '保存前生成考勤人员数量详情页面
    Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & _Userxmmc & "' and 在岗状态 = '在岗'")
    With wb.AddMsgPage("","msgpage1","保存成功", "在岗人数:" & drs.Count & "人,出勤人数:" & lst.Count & "人,缺勤人数:" & drs.Count - lst.Count  & "人,你是否保存?") '生成成功提示页
        .AddButton("btn1","保存","submit")  ’此处点了保存后在执行后面代码，这儿该怎么写？？？
        .AddButton("btn2","返回").Attribute = "onclick='history.back()'"
    End With
    e.WriteString(wb.Build)

    For Each ss As String In DataTables("实名制管理").SQLGetvalues("姓名","项目名称 = '" & _Userxmmc & "' and 在岗状态 = '在岗'")
        Dim dr As DataRow = DataTables("实名制考勤").SQLFind("项目名称 = '" & _Userxmmc & "' and 年 = '" & d.Year & "' and 月 = '" & d.Month & "' and 姓名='" & ss & "'")
..........
            dr("日" & d.Day) = "×"
        End If
        dr.Save
    Next
    '保存并生成增加成功提示页面
    With wb.AddMsgPage("","msgpage","保存成功", "你是否继续考勤?") '生成成功提示页
        .AddButton("btn1","继续考勤","Rename_checking.htm")
        .AddButton("btn2","首&emsp;&emsp;页","default.htm")
    End With
    e.WriteString(wb.Build)

意思是保存前先做个提醒？http://www.foxtable.com/mobilehelp/topics/0104.htm