动态增加表单元素

<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>

没有相关文章

没有评论

动态增加表单元素

文章TOP15