文本框显示问题？

<script language="vbscript">
sub settable(para)
str="<table  width=100%  border=1>"
for i=1 to para
str=str & "<tr><td>123</td></tr>"
next
str=str & "</table>"
document.all.mytd.innerHTML=str
end sub
</script>
</head><body>
<select name="sele" id="sele" onChange="vbscript:settable sele.value" >
  <option value="1">1</option>
  <option value="2">2</option>
  <option value="3">3</option>
  <option value="4">4</option>
</select>
<table width="31%" height="204"  border="1"  id="mytable">
<tr><td id="mytd">&nbsp;</td></tr>
</table>
</body>

解决方案 »

  1.   

    <select onchange="addtr(this.value)">
    <option value="1">1
    <option value="2">2
    <option value="3">3
    </select>
    <table id=tab></table>
    <script language=javascript>
    function addtr(n)
    {
      for(var i=0;i<n;i++)
      {
          newRow=tab.insertRow()
          newCell=newRow.insertCell()
          newCell.innerHTML="<input  style='width:100' type=text>"
      }
    }
    </script>
      

  2.   

    to zmhqyw(炎舞)
    我想用输入框替换掉123，怎么不行呀
      

  3.   

    我给你改一下。
    <script language="vbscript">
    sub settable(para)
    str="<table  width=100%  border=1><tr><td>"
    for i=1 to para
    str=str & "<input type='text' name='name"&i&"'>"
    next
    str=str & "</td></tr></table>"
    document.all.mytd.innerHTML=str
    end sub
    </script>
    </head><body>
    <select name="sele" id="sele" onChange="vbscript:settable sele.value" >
      <option value="1">1</option>
      <option value="2">2</option>
      <option value="3">3</option>
      <option value="4">4</option>
    </select>
    <table width="31%" height="204"  border="1"  id="mytable">
    <tr><td id="mytd">&nbsp;</td></tr>
    </table>
    </body>
      

  4.   

    to littleboys(飞龙) 我的输入框是固定死的，不需要增加，只需要增加行数就行了
      

  5.   

    up<script language="vbscript">
    sub settable(para)
    str="<table  width=100%  border=1>"
    for i=1 to para

    str=str & "<tr><td><input type=text name=textfield></td></tr>" next
    str=str & "</table>"
    document.all.mytd.innerHTML=str
    end sub
    </script>
    </head><body>
    <select name="sele" id="sele" onChange="vbscript:settable sele.value" >
      <option value="1">1</option>
      <option value="2">2</option>
      <option value="3">3</option>
      <option value="4">4</option>
    </select>
    <table width="31%" height="204"  border="1"  id="mytable">
    <tr><td id="mytd">&nbsp;</td></tr>
    </table>
    </body>