怎么读radio的值

范例
<HTML>
<HEAD></HEAD>
<BODY>
<script language="VBScript">function IntoIT()
    Set MyIT = Window.document    set oObjects = MyIT.all.item("R1")
    for each oObj in oObjects
      if oObj.checked then
       astr=astr+oObj.Value+"Is selected"+chr(13)+chr(10)
      else
        astr=astr+oObj.Value+"Is not selected"+chr(13)+chr(10)
      end if
    next
    MyIT.write astr
end function
</SCRIPT><form method="POST" action="--WEBBOT-SELF--">
  <p><input type="radio" value="V1" checked name="R1"></p>
  <p><input type="radio" name="R1" value="V2"></p>
  <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
  <p><b><a href="VBScript:IntoIT()" ><br>
              加入收藏夹</a></b></span></p>
</form>
</BODY>
</HTML>

解决方案 »

  1.   

    谢谢，再加80分，问个小问题。还是用vbscript。
    怎么建一个循环把网页中的form里输入的值都读出来，中间用"+"隔开。form中有text，select和radio。当然你的函数中能包括checkbox等就最好了。
      

  2.   

    代码：
    <HTML>
    <HEAD></HEAD>
    <BODY>
    <script language="VBScript">function IntoIT()
        On error resume next
        Set MyIT = Window.document
        
        for each oEles in MyIT.all
          if typename(oEles)="HTMLFormElement" then
            for each oInput in oEles.all
              Select Case oInput.Type
                case "radio" 
                   if oInput.checked then
               astr=astr+oInput.Value+"Is selected <br>"
           else
             astr=astr+oInput.Value+"Is not selected <br>"
           end if
                case "text"
                  astr="<p> text is "+astr+oInput.Value+"</p>"            
                case else
              end select
            next
          end if
        next
        
        MyIT.write astr
    end function
    </SCRIPT><form method="POST" action="--WEBBOT-SELF--">
      <p><input type="radio" value="V1" checked name="R1"></p>
      <p><input type="radio" name="R1" value="V2"></p>
      <p><input type="text" name="T1" size="20"></p>
      <p><select size="1" name="D1">
        <option>A1</option>
        <option>A2</option>
        <option>A3</option>
      </select></p>
      <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
      <p><b><a href="VBScript:IntoIT()" ><br>
                  加入收藏夹</a></b></span></p>
    </form>
    </BODY>
    </HTML>
    基本上就是通过遍历访问页面中的元素来实现的