如何使列表框中的项目能上下移动,移至最前,移至最后?

Question

function lastOnClick(){
var sel=document.myform.d_b2;
var nIndex = sel.selectedIndex;
var nLen = sel.length;
if ((nLen<1)||(nIndex==nLen-1)) return;
if (nIndex<0) {
alert("请选择一个要移动的已选按钮！");
return;
}
var sValue=sel.options[nIndex].value;
var sHTML=sel.options[nIndex].innerHTML; var nOption=document.createElement('OPTION');
sel.options.add(nOption);
nOption.innerHTML=sHTML;
nOption.Value=sValue;
sel.options.remove(nIndex);
sel.selectedIndex=nLen-1;
}

Answer 1

function firstOnClick(){
var sel=document.myform.d_b2;
var nIndex = sel.selectedIndex;
var nLen = sel.length;
if ((nLen<1)||(nIndex==0)) return;
if (nIndex<0) {
alert("请选择一个要移动的已选按钮！");
return;
}
var sValue=sel.options[nIndex].value;
var sHTML=sel.options[nIndex].innerHTML;
var nOption=document.createElement('OPTION');
sel.options.add(nOption,0);
nOption.innerHTML=sHTML;
nOption.Value=sValue;
sel.options.remove(nIndex);
sel.selectedIndex=0;
}

Answer 2

移到最顶时，上面那个有错，用这个：function firstOnClick(){
var sel=document.myform.d_b2;
var nIndex = sel.selectedIndex;
var nLen = sel.length;
if ((nLen<1)||(nIndex==0)) return;
if (nIndex<0) {
alert("请选择一个要移动的已选按钮！");
return;
}
var sValue=sel.options[nIndex].value;
var sHTML=sel.options[nIndex].innerHTML;
sel.options.remove(nIndex);
var nOption=document.createElement('OPTION');
sel.options.add(nOption,0);
nOption.innerHTML=sHTML;
nOption.Value=sValue;
sel.selectedIndex=0;
}