如何使列表框中的项目能上下移动?

<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta name='Author' content='Andy.m'><link rev=MADE href='mailto:[email protected]'><title></title><link rel='stylesheet' type='text/css' href='admin/style.css'></head><body topmargin=0 leftmargin=0 bgcolor=#ffffff>
<a name=top></a>
<table border=0 cellpadding=0 cellspacing=0 width=603 align=center>
  <tr valign=top>
    <td width=20></td>
    <td width=575>
<script language=javascript>
// 排序：向上移动
function Up() {
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[nIndex].value=sel.options[nIndex-1].value;
sel.options[nIndex].innerHTML=sel.options[nIndex-1].innerHTML;
sel.options[nIndex-1].value=sValue;
sel.options[nIndex-1].innerHTML=sHTML;
sel.selectedIndex=nIndex-1;
}// 排序：向下移动
function Down() {
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;
sel.options[nIndex].value=sel.options[nIndex+1].value;
sel.options[nIndex].innerHTML=sel.options[nIndex+1].innerHTML;
sel.options[nIndex+1].value=sValue;
sel.options[nIndex+1].innerHTML=sHTML;
sel.selectedIndex=nIndex+1;
}// 提交处理
function checkform() {
var sel=document.myform.d_b2;
var nLen = sel.length;
var str="";
for (var i=0;i<nLen;i++) {
if (i>0) str+="|";
str+=sel.options[i].value;
}
document.myform.d_button.value=str;
return true;
}</script>
<table border=0 cellpadding=5 cellspacing=0 align=center>
        <form action='?action=buttonsave&id=46&toolbarid=137' method=post name=myform onsubmit='return checkform()'>
          <tr align=center>
            <td>&nbsp;</td>
            <td></td>
            <td>已选按钮</td>
            <td></td>
          </tr>
          <tr align=center>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td><select name='d_b2' size=20 style='width:200px'>
                <option value='TBHandle'>工具栏头</option>
                <option value='FormatBlock'>段落样式</option>
                <option value='FontName'>字体</option>
                <option value='FontSize'>字体大小</option>
                <option value='ZoomSelect'>缩放下拉框</option>
                <option value='Bold'>粗体</option>
                <option value='Italic'>斜体</option>
                <option value='UnderLine'>下划线</option>
                <option value='StrikeThrough'>中划线</option>
                <option value='SuperScript'>上标</option>
                <option value='SubScript'>下标</option>
                <option value='TBSep'>分隔线</option>
                <option value='JustifyLeft'>左对齐</option>
                <option value='JustifyCenter'>居中对齐</option>
                <option value='JustifyRight'>右对齐</option>
                <option value='JustifyFull'>两端对齐</option>
              </select></td>
            <td><INPUT onclick=firstOnClick() type=button value=移至最前> <BR><input type=button name=b3 value='上移一位' onclick='Up()'>
              <br>
              <br>
              <br>
              <input type=button name=b4 value='下移一位' onclick='Down()'><BR><BR><INPUT onclick=lastOnClick() type=button value=移至最后> </td>
          </tr>
          <input type=hidden name='d_button' value=''>
          <tr>
            <td colspan=4 align=right><input type=submit name=b value=' 保存设置 '></td>
          </tr>
        </form>
      </table>
      <p class=highlight1>&nbsp;</p>
      <br>
      <br></td>
    <td width=7></td>
    <td width=1 class=rightbg></td>
  </tr>
</table>
</body></html>
上下的可以