帮忙把这个vbscript函数转成javascript

本帖最后由 teng315 于 2012-01-27 17:01:55 编辑

解决方案 »

  1.   


    谢谢，这是源代码，能在IE中运行<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <title></title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
    <!--兼容IE6
    function window_onload() {
     window.returnValue = '';
    }
    //-->
    </SCRIPT>
    <SCRIPT LANGUAGE=javascript FOR=window EVENT=onload>
    <!--
     window_onload()
    //-->
    </SCRIPT>
    <script language="javascript">
    <!--
    function Search_User(userlist,keyword){
     if (!keyword) return false
     eval('re=/'+keyword+'/')
     for (i=userlist.options.selectedIndex+1; i<userlist.options.length; i++){
      if(re.test(userlist.options[i].text)){
        userlist.options[i].selected=true
        return false
      }
     }
     for (i=0; i<userlist.options.selectedIndex+1; i++){
      if(re.test(userlist.options[i].text)){
        userlist.options[i].selected=true
        return false
      }
     }
    }
    //-->
    </script>
    </head>
    <body>
    <form method='post' name='UserSelectForm' id='UserSelectForm' onSubmit="return false">
     <table width='100%' cellspacing='1' class='configtable'>
      <tr class='usertrbg' height='30'>
       <td colspan="2" style="padding-bottom:5px;"><b>&nbsp;&nbsp;选择人员</b></td>
      </tr>
      <tr class="usertrbg1">
       <td align='right' nowrap class="p10">部门选择：</td>
       <td width='90%' class="pr10"><select id='AllDept' name='AllDept' style="display:inline;width:100%;" onChange="vbscript:DeptSwitch">
         <option value='All' selected>所有部门</option>
         <option value='1'>|-外交部</option>
         <option value='2'>　|-管理部</option>
         <option value='4'>　　|-商务部</option>
         <option value='6'>　　　|-工商部</option>
         <option value='3'>　|-信产部</option>
         <option value='5'>　　|-公安部</option>
         <option value='16'>|-人资部</option>
         <option value='17'>|-业务部</option>
         <option value='18'>|-国土资源部</option>
         <option value='19'>　|-后勤部</option>
         <option value='20'>　　|-财务部</option>
         <option value='21'>|-技术部</option>
        </select></td>
      </tr>
      <tr>
       <td colspan=2 class="p10"><table width='100%' cellspacing='1' class='configtable'>
         <tr>
          <td class="pb15">备选人员&nbsp;
           <input type="text" name="Keywords1" class="BigInput" style="width:50%;height:22px;line-height:20px;">
           <a href="#" onClick="return Search_User(UserSelectForm.Preselecter,UserSelectForm.Keywords1.value)">&nbsp;&nbsp;查找</a></td>
          <td></td>
          <td class="pb15">已选人员&nbsp;
           <input type="text" name="Keywords2" class="BigInput" style="width:50%;height:22px;line-height:20px;">
           <a href="#" onClick="return Search_User(UserSelectForm.Selecteder,UserSelectForm.Keywords2.value)">&nbsp;&nbsp;查找</a></td>
         </tr>
         <tr align='center'>
          <td><select id='Preselecter' name='Preselecter' style="display:inline;width:100%;" size='9' rows='9' ondblclick="vbscript:SelectOne">
            <option value='4'>&#29992;&#25143;&#51;</option>
            <option value='7'>&#29992;&#25143;&#53;</option>
           </select></td>
          <td valign='center' width='40'><span valign='center'>
           <input type="button" value=">>" onClick="vbscript:SelectAll" name="B0" class="selects_btn">
           <hr style="height:1px;">
           <input type="button" value=">" onClick="vbscript:SelectOne" name="B1" class="selects_btn">
           <hr style="height:1px;">
           <input type="button" value="<" onClick="vbscript:BackOne" name="B2" class="selects_btn">
           <hr style="height:1px;">
           <input type="button" value="<<" onClick="vbscript:BackAll" name="B3" class="selects_btn">
           </span></td>
          <td class=row><select id='Selecteder' name='Selecteder' style="display:inline;width:100%;" size=9 rows=9 ondblclick="vbscript:BackOne">
            <option value=1>&#29992;&#25143;&#49;</option>
            <option value=2>&#29992;&#25143;&#50;</option>
            <option value=5>&#29992;&#25143;&#52;</option>
            <option value=8>&#29992;&#25143;&#54;</option>
            <option value=9>&#29992;&#25143;&#55;</option>
           </select></td>
         </tr>
        </table></td>
      </tr>
     </table>
     <table width='100%'>
      <tr>
       <td align="middle" colspan="2"><input type='button' value='确定' name="Confirm" id="Confirm" onClick="vbscript:BackSave" class="confirm_btn" onMouseOut="className='confirm_btn'" onMouseOver="className='confirm_btn1'">
        <input type='button' value='取消' name="Cancel" id="Cancel" onclick='vbscript:window.close' class="confirm_btn"  onmouseout="className='confirm_btn'" onMouseOver="className='confirm_btn1'"></td>
      </tr>
     </table>
    </form>
    </BODY>
    </html>
    <script language=vbscript>
    <!--
     dim ary()
     redim ary(2,0)
     redim ary(2,7)
    ary(0,0)=""
    ary(1,0)=""
    ary(2,0)=""
    ary(0,1)="1"
    ary(1,1)="用户1"
    ary(2,1)="4"
    ary(0,2)="2"
    ary(1,2)="用户2"
    ary(2,2)="2"
    ary(0,3)="4"
    ary(1,3)="用户3"
    ary(2,3)="16"
    ary(0,4)="5"
    ary(1,4)="用户4"
    ary(2,4)="20"
    ary(0,5)="7"
    ary(1,5)="用户5"
    ary(2,5)="6"
    ary(0,6)="8"
    ary(1,6)="用户6"
    ary(2,6)="6"
    ary(0,7)="9"
    ary(1,7)="用户7"
    ary(2,7)="6" sub DeptSwitch
      dim i,e,j,ba
      for i= 0 to UserSelectForm.Preselecter.options.length-1
       UserSelectForm.Preselecter.options.remove 0
      next
      for i=1 to ubound(ary,2)
       if UserSelectForm.AllDept.value=ary(2,i) or UserSelectForm.AllDept.value="All" then
        ba=0
        for j=0 to UserSelectForm.Selecteder.length-1
         if ary(0,i)=UserSelectForm.Selecteder.item(j).value then
          ba=1
          exit for
         end if
        next
        if ba=0 then
         Set e = Document.createElement("OPTION")
         e.value=ary(0,i)
         e.text=ary(1,i)
         UserSelectForm.Preselecter.options.add e
        end if
       end if
      next
     end sub sub SelectAll
      dim i,j,ba
      for i= 0 to UserSelectForm.Preselecter.options.length-1
       ba=0
       for j=0 to UserSelectForm.Selecteder.length-1
        if UserSelectForm.Preselecter.item(i).value=UserSelectForm.Selecteder.item(j).value then
         ba=1
         exit for
        end if
       next
       if ba=0 then
        Set e = Document.createElement("OPTION")
        e.value=UserSelectForm.Preselecter.item(i).value
        e.text=UserSelectForm.Preselecter.item(i).text
        UserSelectForm.Selecteder.options.add e
       end if
      next
      for i= 0 to UserSelectForm.Preselecter.options.length-1
       UserSelectForm.Preselecter.options.remove 0
      next
     end sub sub SelectOne
      dim i,j,ba  
      if UserSelectForm.Preselecter.options.length=0 then exit sub
      if UserSelectForm.Preselecter.selectedIndex<0 then exit sub
      ba=0
      for j=0 to UserSelectForm.Selecteder.length-1
       if UserSelectForm.Preselecter.item(UserSelectForm.Preselecter.selectedIndex).value=UserSelectForm.Selecteder.item(j).value then
        ba=1
        exit for
       end if
      next
      if ba=0 then
       Set e = Document.createElement("OPTION")
       e.value=UserSelectForm.Preselecter.item(UserSelectForm.Preselecter.selectedIndex).value
       e.text=UserSelectForm.Preselecter.item(UserSelectForm.Preselecter.selectedIndex).text
       UserSelectForm.Selecteder.options.add e
      end if
      UserSelectForm.Preselecter.options.remove UserSelectForm.Preselecter.selectedIndex
     end sub sub BackAll
      dim i,j,ba
      for i= 0 to UserSelectForm.Selecteder.options.length-1
       ba=0
       for j=0 to UserSelectForm.Preselecter.length-1
        if UserSelectForm.Selecteder.item(i).value=UserSelectForm.Preselecter.item(j).value then
         ba=1
         exit for
        end if
       next
       if ba=0 then
        Set e = Document.createElement("OPTION")
        e.value=UserSelectForm.Selecteder.item(i).value
        e.text=UserSelectForm.Selecteder.item(i).text
        UserSelectForm.Preselecter.options.add e
       end if
      next
      for i= 0 to UserSelectForm.Selecteder.options.length-1
       UserSelectForm.Selecteder.options.remove 0
      next
     end sub sub BackOne
      dim i,j,ba  
      if UserSelectForm.Selecteder.options.length=0 then exit sub
      if UserSelectForm.Selecteder.selectedIndex<0 then exit sub
      ba=0  
      for j=0 to UserSelectForm.Preselecter.length-1
       if UserSelectForm.Selecteder.item(UserSelectForm.Selecteder.selectedIndex).value=UserSelectForm.Preselecter.item(j).value then
        ba=1
        exit for
       end if
      next
      if ba=0 then
       Set e = Document.createElement("OPTION")
       e.value=UserSelectForm.Selecteder.item(UserSelectForm.Selecteder.selectedIndex).value
       e.text=UserSelectForm.Selecteder.item(UserSelectForm.Selecteder.selectedIndex).text
       UserSelectForm.Preselecter.options.add e
      end if
      UserSelectForm.Selecteder.options.remove UserSelectForm.Selecteder.selectedIndex
     end sub sub BackSave
      dim i
      dim s1,s2
      s1=""
      s2=""
      for i=0 to UserSelectForm.Selecteder.length-1
       s1=s1 & "," & UserSelectForm.Selecteder.item(i).value
       s2=s2 & ", " & UserSelectForm.Selecteder.item(i).text
      next
      if s1<>"" then
       s1=mid(s1,2)
       s2=mid(s2,2)
      end if
      window.returnValue = s1 & "_" & s2
      window.close
     end sub
    //-->
    </script>
      

  2.   

    IE8应该能调试vbscript吧，不知道为什么我这里一调试就出错关闭了，你看看思路吧，我不能保证语法上没错误
    你的应该是数组赋值，选择select上的值，还有字符串拼接这上面有难点吧<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <title></title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
    <!--兼容IE6
    function window_onload() {
     window.returnValue = '';
    }
    //-->
    </SCRIPT>
    <SCRIPT LANGUAGE=javascript FOR=window EVENT=onload>
    <!--
     window_onload()
    //-->
    </SCRIPT>
    <script language="javascript">
    <!--
    function Search_User(userlist,keyword){
     if (!keyword) return false
     eval('re=/'+keyword+'/')
     for (i=userlist.options.selectedIndex+1; i<userlist.options.length; i++){
      if(re.test(userlist.options[i].text)){
        userlist.options[i].selected=true
        return false
      }
     }
     for (i=0; i<userlist.options.selectedIndex+1; i++){
      if(re.test(userlist.options[i].text)){
        userlist.options[i].selected=true
        return false
      }
     }
    }
    //-->
    </script>
    </head>
    <body>
    <form method='post' name='UserSelectForm' id='UserSelectForm' onSubmit="return false">
     <table width='100%' cellspacing='1' class='configtable'>
      <tr class='usertrbg' height='30'>
       <td colspan="2" style="padding-bottom:5px;"><b>&nbsp;&nbsp;选择人员</b></td>
      </tr>
      <tr class="usertrbg1">
       <td align='right' nowrap class="p10">部门选择：</td>
       <td width='90%' class="pr10"><select id='AllDept' name='AllDept' style="display:inline;width:100%;" onChange="vbscript:DeptSwitch">
         <option value='All' selected>所有部门</option>
         <option value='1'>|-外交部</option>
         <option value='2'>　|-管理部</option>
         <option value='4'>　　|-商务部</option>
         <option value='6'>　　　|-工商部</option>
         <option value='3'>　|-信产部</option>
         <option value='5'>　　|-公安部</option>
         <option value='16'>|-人资部</option>
         <option value='17'>|-业务部</option>
         <option value='18'>|-国土资源部</option>
         <option value='19'>　|-后勤部</option>
         <option value='20'>　　|-财务部</option>
         <option value='21'>|-技术部</option>
        </select></td>
      </tr>
      <tr>
       <td colspan=2 class="p10"><table width='100%' cellspacing='1' class='configtable'>
         <tr>
          <td class="pb15">备选人员&nbsp;
           <input type="text" name="Keywords1" class="BigInput" style="width:50%;height:22px;line-height:20px;">
           <a href="#" onClick="return Search_User(UserSelectForm.Preselecter,UserSelectForm.Keywords1.value)">&nbsp;&nbsp;查找</a></td>
          <td></td>
          <td class="pb15">已选人员&nbsp;
           <input type="text" name="Keywords2" class="BigInput" style="width:50%;height:22px;line-height:20px;">
           <a href="#" onClick="return Search_User(UserSelectForm.Selecteder,UserSelectForm.Keywords2.value)">&nbsp;&nbsp;查找</a></td>
         </tr>
         <tr align='center'>
          <td><select id='Preselecter' name='Preselecter' style="display:inline;width:100%;" size='9' rows='9' ondblclick="vbscript:SelectOne">
            <option value='4'>&#29992;&#25143;&#51;</option>
            <option value='7'>&#29992;&#25143;&#53;</option>
           </select></td>
          <td valign='center' width='40'><span valign='center'>
           <input type="button" value=">>" onClick="vbscript:SelectAll" name="B0" class="selects_btn">
           <hr style="height:1px;">
           <input type="button" value=">" onClick="vbscript:SelectOne" name="B1" class="selects_btn">
           <hr style="height:1px;">
           <input type="button" value="<" onClick="vbscript:BackOne" name="B2" class="selects_btn">
           <hr style="height:1px;">
           <input type="button" value="<<" onClick="vbscript:BackAll" name="B3" class="selects_btn">
           </span></td>
          <td class=row><select id='Selecteder' name='Selecteder' style="display:inline;width:100%;" size=9 rows=9 ondblclick="vbscript:BackOne">
            <option value=1>&#29992;&#25143;&#49;</option>
            <option value=2>&#29992;&#25143;&#50;</option>
            <option value=5>&#29992;&#25143;&#52;</option>
            <option value=8>&#29992;&#25143;&#54;</option>
            <option value=9>&#29992;&#25143;&#55;</option>
           </select></td>
         </tr>
        </table></td>
      </tr>
     </table>
     <table width='100%'>
      <tr>
       <td align="middle" colspan="2"><input type='button' value='确定' name="Confirm" id="Confirm" onClick="vbscript:BackSave" class="confirm_btn" onMouseOut="className='confirm_btn'" onMouseOver="className='confirm_btn1'">
        <input type='button' value='取消' name="Cancel" id="Cancel" onclick='vbscript:window.close' class="confirm_btn"  onmouseout="className='confirm_btn'" onMouseOver="className='confirm_btn1'"></td>
      </tr>
      <tr>
    <td><input type="button" value="用javascript读取选择的值" onclick="j_r()"/></td>
      </tr>
     </table>
    </form>
    </BODY>
    </html>
    <script language="javascript">
    //////////////////////////////// edited by p2227 //////////////////////////////////////
    var j_ary = [['','1','2','4','5','7','8','9'],
    ['','用户1','用户2','用户3','用户4','用户5','用户6','用户7'],
    ['','4','2','16','20','6','6','6']];j_r = function(){
    var s1="";
    var s2="";
    for (var i=0;i<UserSelectForm.Selecteder.options.length;i++)
    {
    s1+= ("," + UserSelectForm.Selecteder.options[i].value);
    s2+= ("," + UserSelectForm.Selecteder.options[i].text);
    }
    if(s1!=""){
    s1=s1.substr(1)
    s2=s2.substr(1)
    }
       
    alert(s1 + "_" + s2)
    }
    </script>
    <script language=vbscript>
    <!--
     dim ary()
     redim ary(2,0)
     redim ary(2,7)
    ary(0,0)=""
    ary(1,0)=""
    ary(2,0)=""
    ary(0,1)="1"
    ary(1,1)="用户1"
    ary(2,1)="4"
    ary(0,2)="2"
    ary(1,2)="用户2"
    ary(2,2)="2"
    ary(0,3)="4"
    ary(1,3)="用户3"
    ary(2,3)="16"
    ary(0,4)="5"
    ary(1,4)="用户4"
    ary(2,4)="20"
    ary(0,5)="7"
    ary(1,5)="用户5"
    ary(2,5)="6"
    ary(0,6)="8"
    ary(1,6)="用户6"
    ary(2,6)="6"
    ary(0,7)="9"
    ary(1,7)="用户7"
    ary(2,7)="6" sub DeptSwitch
      dim i,e,j,ba
      for i= 0 to UserSelectForm.Preselecter.options.length-1
       UserSelectForm.Preselecter.options.remove 0
      next
      for i=1 to ubound(ary,2)
       if UserSelectForm.AllDept.value=ary(2,i) or UserSelectForm.AllDept.value="All" then
        ba=0
        for j=0 to UserSelectForm.Selecteder.length-1
         if ary(0,i)=UserSelectForm.Selecteder.item(j).value then
          ba=1
          exit for
         end if
        next
        if ba=0 then
         Set e = Document.createElement("OPTION")
         e.value=ary(0,i)
         e.text=ary(1,i)
         UserSelectForm.Preselecter.options.add e
        end if
       end if
      next
     end sub sub SelectAll
      dim i,j,ba
      for i= 0 to UserSelectForm.Preselecter.options.length-1
       ba=0
       for j=0 to UserSelectForm.Selecteder.length-1
        if UserSelectForm.Preselecter.item(i).value=UserSelectForm.Selecteder.item(j).value then
         ba=1
         exit for
        end if
       next
       if ba=0 then
        Set e = Document.createElement("OPTION")
        e.value=UserSelectForm.Preselecter.item(i).value
        e.text=UserSelectForm.Preselecter.item(i).text
        UserSelectForm.Selecteder.options.add e
       end if
      next
      for i= 0 to UserSelectForm.Preselecter.options.length-1
       UserSelectForm.Preselecter.options.remove 0
      next
     end sub sub SelectOne
      dim i,j,ba  
      if UserSelectForm.Preselecter.options.length=0 then exit sub
      if UserSelectForm.Preselecter.selectedIndex<0 then exit sub
      ba=0
      for j=0 to UserSelectForm.Selecteder.length-1
       if UserSelectForm.Preselecter.item(UserSelectForm.Preselecter.selectedIndex).value=UserSelectForm.Selecteder.item(j).value then
        ba=1
        exit for
       end if
      next
      if ba=0 then
       Set e = Document.createElement("OPTION")
       e.value=UserSelectForm.Preselecter.item(UserSelectForm.Preselecter.selectedIndex).value
       e.text=UserSelectForm.Preselecter.item(UserSelectForm.Preselecter.selectedIndex).text
       UserSelectForm.Selecteder.options.add e
      end if
      UserSelectForm.Preselecter.options.remove UserSelectForm.Preselecter.selectedIndex
     end sub sub BackAll
      dim i,j,ba
      for i= 0 to UserSelectForm.Selecteder.options.length-1
       ba=0
       for j=0 to UserSelectForm.Preselecter.length-1
        if UserSelectForm.Selecteder.item(i).value=UserSelectForm.Preselecter.item(j).value then
         ba=1
         exit for
        end if
       next
       if ba=0 then
        Set e = Document.createElement("OPTION")
        e.value=UserSelectForm.Selecteder.item(i).value
        e.text=UserSelectForm.Selecteder.item(i).text
        UserSelectForm.Preselecter.options.add e
       end if
      next
      for i= 0 to UserSelectForm.Selecteder.options.length-1
       UserSelectForm.Selecteder.options.remove 0
      next
     end sub sub BackOne
      dim i,j,ba  
      if UserSelectForm.Selecteder.options.length=0 then exit sub
      if UserSelectForm.Selecteder.selectedIndex<0 then exit sub
      ba=0  
      for j=0 to UserSelectForm.Preselecter.length-1
       if UserSelectForm.Selecteder.item(UserSelectForm.Selecteder.selectedIndex).value=UserSelectForm.Preselecter.item(j).value then
        ba=1
        exit for
       end if
      next
      if ba=0 then
       Set e = Document.createElement("OPTION")
       e.value=UserSelectForm.Selecteder.item(UserSelectForm.Selecteder.selectedIndex).value
       e.text=UserSelectForm.Selecteder.item(UserSelectForm.Selecteder.selectedIndex).text
       UserSelectForm.Preselecter.options.add e
      end if
      UserSelectForm.Selecteder.options.remove UserSelectForm.Selecteder.selectedIndex
     end sub sub BackSave
      dim i
      dim s1,s2
      s1=""
      s2=""
      for i=0 to UserSelectForm.Selecteder.length-1
       s1=s1 & "," & UserSelectForm.Selecteder.item(i).value
       s2=s2 & ", " & UserSelectForm.Selecteder.item(i).text
      next
      if s1<>"" then
       s1=mid(s1,2)
       s2=mid(s2,2)
      end if
      window.returnValue = s1 & "_" & s2
      window.close
     end sub
    //-->
    </script>
      

  3.   

    能不能把那些vbscript都转成javascript
    谢谢