[原创] 多选框动态添加,移动,删除,全选 等操作(完整实例)

原创 2004年10月27日 12:17:00

多选框动态添加,移动,删除,全选 等操作
by sundy 2004-10-27


<%
dim a
a = split(Request.Form("sourceList"),",")

Response.Write "Source:" & Request.Form("sourceList") & ubound(a) &  "<br>Object:" & Request.Form("objectList") & "<br>"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Untitled Document</title>
<STYLE type=text/css>
.bgsubleft {
 BACKGROUND-POSITION: center bottom; BACKGROUND-IMAGE: url(images/bgleft.gif); BACKGROUND-REPEAT: repeat-x
}
.bgsubleftn {
 BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: url(images/bgleftn.gif); BACKGROUND-REPEAT: no-repeat
}
</STYLE>
<script language="JavaScript" type="text/JavaScript">
function addSelectedList()
{
  var objSource = form1.sourceList;
  var objObject = form1.objectList;
  var sourcelen = objSource.length ;
  for(var i=0;i<sourcelen;i++){
    if (objSource.options[i].selected){
      if (!checkExist(objObject,objSource.options[i].value)){
        addtolist(objObject,objSource.options[i].text,objSource.options[i].value);
      }
    }
  }
}

function addAllList()
{
  var objSource = form1.sourceList;
  var objObject = form1.objectList;
  var sourcelen = objSource.length ;
  for(var i=0;i<sourcelen;i++){
    if (!checkExist(objObject,objSource.options[i].value)){
      addtolist(objObject,objSource.options[i].text,objSource.options[i].value);
    }
  }
}

function removeSelectedList(noRemoveValue)
{
  var objObject = form1.objectList;
  for (var i=0;i<objObject.length;i++){
    if (objObject.options[i].selected && objObject.options[i].value != noRemoveValue)
    {
      objObject.options.remove(i);
      removeList(noRemoveValue);break;
    }
  }
}

function removeAllList(noRemoveValue)
{
  var objObject = form1.objectList;
  var objLen = objObject.length;
  for (var i=0;i<objLen;i++){
    if ( objObject.options[i].value != noRemoveValue){
      objObject.options.remove(i);
      removeAllList(noRemoveValue);break;
    }
  }
}


function selectedAll(obj)
{
  for (var i=0;i<obj.length;i++){
    obj.options[i].selected = true;
  }
}
function checkExist(obj,value)
{
  var isExist = false;
  for (var i=0;i<obj.length;i++){
    if (obj.options[i].value == value){
      isExist = true;
      break;
    }
  }
  return isExist;
}
function addtolist(obj,value,label){
  obj.add(new Option(value,label));
}
</script>
</head>

<body bgcolor="#FFFFFF">
<form name="form1" action="temp.asp" method="post">
<table width="200" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><select name="sourceList" size="10" multiple id="sourceList" style="width:150">
      <option value="a">1</option>
      <option value="b">2</option>
      <option value="c">3</option>
      <%
      for i = 6 to 20
        Response.Write("<option value=""" & i+200 & """>" & i+200 & "</option>" & vbcrlf)
      Next
      %>
    </select></td>
    <td><input name="add" type="button" id="add" value="Add" onclick="addSelectedList()" style="width:100"><br>
      <input name="add" type="button" id="add" value="Add all" onclick="addAllList()" style="width:100"><br>  
    <input name="add" type="button" id="add" value="Remove" onclick="removeSelectedList('a')" style="width:100"><br>
    <input name="add" type="button" id="add" value="Remove all" onclick="removeAllList('a')" style="width:100">
    <input name="add" type="button" id="add" value="Select all" onclick="selectedAll(form1.objectList)" style="width:100"></td>
    <td><select name="objectList" size="10" multiple id="objectList"  style="width:150">
      <option value="a">1</option>
      <option value="d">4</option>
      <option value="e">5</option>
      <%
      for i = 6 to 20
        Response.Write("<option value=""" & i & """>" & i & "</option>" & vbcrlf)
      Next
      %>
    </select></td>
  </tr>
  <tr>
    <td></td>
    <td><input name="subm" type="submit" value="Submit" style="width:100"></td>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
</body>
</html>

多选列表框动态添加,移动,删除,全选 等操作(完整实例)

dim aa = split(Request.Form("sourceList"),",")Response.Write "Source:" & Request.Form("sourceList") ...
  • chinmo
  • chinmo
  • 2008年02月22日 09:51
  • 938

Web小练习-复选框的全选以及反选效果

一个Web的小练习代码如下
  • Oliver_W
  • Oliver_W
  • 2017年07月12日 20:38
  • 201

复选框全选和反选例子

$(document).ready(function () { //全选或全不选 $("#all").click(functio...
  • Bling_Bling_
  • Bling_Bling_
  • 2016年12月21日 11:03
  • 278

对文件进行 创建 复制 移动 删除等操作

//documents路径 #define kDocumentPath [NSSearchPathForDirectoriesInDomains(NSDocumentDirectory,NSUserD...
  • qq_25224791
  • qq_25224791
  • 2015年12月07日 20:27
  • 327

DOM操作——怎样添加、移除、移动、复制、创建和查找节点。

(1)创建新节点       createDocumentFragment()    //创建一个DOM片段       createElement()   //创建一个具体的元素       ...
  • fanhaiwang520
  • fanhaiwang520
  • 2012年07月13日 17:44
  • 4298

jsp中点击一个多选框,实现全选或全不选

当点击页面表头的多选框,则每一行的多选框都会被选中或释放,实现了全选。JSP页面的代码中还实现了多选删除。其实全选也是为了实现多项选择然后删除。多选删除提交的时候用的是超链接提交表单,它的功能就是可以...
  • ZMC921
  • ZMC921
  • 2016年08月20日 13:50
  • 3901

小程序复选框+优化+单选全选多选删除操作

** 小程序复选框+优化+单选全选多选删除操作 ** 小程序复选框太挫了,肺腑之言 最近写小程序的时候,遇到多选框的问题!并不是多选框不好操作,而是小程序的多选框实在太丑了好吗!本来的...
  • wxfdpp
  • wxfdpp
  • 2018年01月18日 18:21
  • 163

关于easyui combobox下拉框实现多选框以及全选、全不选的实现

参考文章:http://blog.csdn.net/u012027337/article/details/53927376 实现效果如下图: 当勾选全选的时候,可以选中下列所有的选项,当取...
  • qq_35272054
  • qq_35272054
  • 2018年01月15日 10:31
  • 124

jquery实现复选框的全选操作

最近做了个需求,需要实现列表复选框的全选/取消全选操作,由于之前对这块不是很了解,所以从网上查了一些资料,虽然有各种实现方法,但没找到直接可以套用的。自己琢磨了下,把功能实现,整理如下。 实现细节如...
  • mj158518
  • mj158518
  • 2016年07月20日 00:30
  • 3584

vim的全选功能,删除

网上的方法五花八门,许多是直接复制的,没有经过验证 这里给出自己的方法:ggvG 其实就是移动光标到文件头命令:gg 进入块模式:v 移动光标到文件尾:G 最后可以使用del删除或者d命令删...
  • fhl0000
  • fhl0000
  • 2015年03月04日 15:21
  • 344
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[原创] 多选框动态添加,移动,删除,全选 等操作(完整实例)
举报原因:
原因补充:

(最多只允许输入30个字)