动态增加表单元素 - 站长资源库


答案：<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table>
  <tr> 
    <td><input type="tex" name="text"></td>
<td bgcolor="#FFFFFF"><input type="text" name="text"></td><td bgcolor="#FFFFFF"><input type="text" name="text"></td><td bgcolor="#FFFFFF"><input type="text" name="text"></td><td ><input type="text" name="text"></td>
</tr>
     

      
</table>
<input type="button" name="add_line" value="增加下一行" OnClick="AddFileInput()">
</body>
</html>
<script language="VBScript">

 NowFileInputNo = 1
 NowFileInputCount = 0
 Sub AddFileInput()
  If NowFileInputCount < 10 Then
  HTMLSrc = "<table Id=FileInput"& NowFileInputNo &"><tr><td> <input type=""text"" name=""text""></td><td><input type=""text"" name=""text""></td><td><input type=""text"" name=""text""></td><td><input type=""text"" name=""text""></td>"
  HTMLSrc = HTMLSrc & "<td><input type=""text"" name=""text""><input type=button value=删除 class=cbutton OnClick=""DelFileInput("& NowFileInputNo &")""></td></tr></table>"& vbcrlf

   document.all.add_line.InsertAdjacentHTML "beforeBegin", HTMLSrc
   NowFileInputNo = NowFileInputNo + 1
   NowFileInputCount = NowFileInputCount + 1
  Else
   Alert "增加太多记录行"
  End IF
 End Sub

 Sub DelFileInput(tableno)
      document.all("FileInput"& tableno).outerHTML = ""
    NowFileInputCount = NowFileInputCount - 1
 End Sub
 </script>

上一个：来一个经典：根据选择的Checkbox动态在表格中列出选择的值
下一个：［问题解决］ＩＥ中可以将弹出窗口置于最顶层的方法（即使当前焦点不在，比如最小化了那个IE也能弹出来）

更多图片编程知识: