如何用ASP实现一个选项到另一个label的转移？ - ASP技术论坛

得分:0

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>列表框操作演示</title>
<script language="javascript">
//列表框项目移动方法
function MoveItem(Action)
{
    switch(Action)
    {
       case "MoveB":
              //将A列表框的选中项移动到B列表框
             AddOption(selA,selB);
       break;
       case "MoveA":
             //将B列表框的选中项移动到A列表框
             AddOption(selB,selA);
       break;
       case "MoveAllB":
             //将A列表框的所有选项移动到B列表框
             AddAllOption(selA,selB);
       break;
       case "MoveAllA":
            //将B列表框的所有选项移动到A列表框
             AddAllOption(selB,selA);
       break;
    }
}
//增加单个列表框的列表项
function AddOption(selA,selB)
{
   if(selA.selectedIndex<0)//如果列表框A没有选中项目
      return false;//退出函数
   var selOpt=selA.options[selA.selectedIndex];//获得列表框A的选中项
   selB.add(new Option(selOpt.text,selOpt.value));//将列表框A的选中项添加到列表框B
   selA.remove(selA.selectedIndex);//删除列表框A的选中项目
}
//判断列表框是否有指定的列表项
//参数:lItem是指定的列表项
//参数:selB列表框
function IsHavaItem(lItem,selB)
{
   //循环列表框的所有列表项
   for(var i=0;i<selB.options.length;i++)
   {
      if(lItem==selB.options[i])//如果列表框的其中一项等于指定的列表项
         return true;//返回真
   }
   return false;//返回假
}
//将A列表框的所有项目增加到B列表框
function AddAllOption(selA,selB)
{
   //循环A列表框的所有列表项
   for(var i=0;i<selA.options.length;i++)
   {
       var lItem=selA.options[i];//获得A列表框的其中一项
       if(!IsHavaItem(lItem,selB))//判断A列表框的选项是否在B列表框存在
           selB.add(new Option(lItem.text,lItem.value));//不存在则A列表框选项增加到B列表框
   }
   selA.options.length=0;//增加完成清楚A列表框的所有列表项
}
</script>
</head>

<body>
<table width="339" border="0" cellpadding="0" cellspacing="0">
  
  <tr>
    <td width="137" height="199" valign="top"><select name="selA" style="width:150px;" size="15">
      <option value="aaav" selected>aaa</option>
      <option value="bbbv">bbb</option>
      <option value="cccv">ccc</option>
      <option value="dddv">ddd</option>
                    </select></td>
    <td width="49" valign="top">
      <div align="center">
      <br>
      <input type="button" name="MoveB" onClick="MoveItem('MoveB');" value=">">
      <br>
      <br>
      <br>
      <input type="button" name="MoveA" onClick="MoveItem('MoveA');"  value="<">
      <br>
      <br>
      <br>
      <input type="button" name="MoveAllB" onClick="MoveItem('MoveAllB');"  value=">>">
      <br>
      <br>
      <br>
      <input type="button" name="MoveAllA" onClick="MoveItem('MoveAllA');"  value="<<">
        </div></td>
    <td width="153" valign="top"><select name="selB" style="width:150px;" size="15">
    </select></td>
  </tr>
</table>
</body>
</html>

[[it] 本帖最后由 yms123 于 2008-9-24 23:54 编辑 [/it]]