求人帮忙写表格增加一行的效果...谢谢啊!
我想做一个提交表单,然后通过点击按钮'添加一行'可以录入多行数据. 下面是表单代码, 我想通过图片'加号.jpg',对表格完成添加一行. 另外,实现添加一行的控件名字自动增加1.用于我操作插入数据.如我第一行某个控件,name='nm1',点击再加一行后,第二行的name='nm2'.
<table width="500" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#003399"> <tr> <td width="177" height="30" bgcolor="#CCCCCC"><div align="center" class="STYLE22">扣费日期</div></td> <td width="99" bgcolor="#CCCCCC"><div align="center" class="STYLE22">发生部门</div></td> <td width="187" bgcolor="#CCCCCC"><div align="center" class="STYLE22">费用金额</div></td> <td width="32" bgcolor="#D7E4F2"><span class="STYLE22"><img src="images/加号.jpg" width="30" height="30" onClick="addIt()" style="cursor:hand;;"/></span></td> </tr> <tr> <td bgcolor="#D7E4F2"><div align="center"><span class="STYLE20"> <input name="kfrq1" type="text" class="xian" id="kfrq1" onClick="WdatePicker()" size="15" readonly="true"/> </span></div></td> <td bgcolor="#D7E4F2"><div align="center"><span class="STYLE20"><select name="select1"> <option value="a">a</option> <option value="b">b</option> <option value="c">c</option> </select> </p> </span></div></td> <td colspan="2" bgcolor="#D7E4F2"><div align="center"><span class="STYLE20"> <input name="fyje1" type="text" class="xian" id="fyje1" size="15"/> </span></div></td> </tr> </table>
<% Dim intmark intmark=request("隐藏域") for i=1 to intmark response.write ("<tr><td><input type=text name=text"&i&"></td></tr>") next%>