帮忙看一下拉，我怎样在页面中插入一空行！

blue_butterfly 2003-10-17 01:54:23

偶需要做一个表单录入的程序，表单录入多少行不定，当录入一行数据后怎样操作会在表单里插入一空行，再录入第二条数据。

数据录入完毕后提交保存到数据表中

最后给偶一段代码。谢谢各位了！

偶，急呀～～在线等待！！！！！！！！！！！！

...全文

86 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

blue_butterfly 2003-10-17

打赏
举报

关注呀！！各位！！

blue_butterfly 2003-10-17

打赏
举报

to topmonkey(Java初学者)

怎样将这句中的“insert rows”
newCol.innerText = "Insert Rows"

改为插入文本框？

rascal1980 2003-10-17

打赏
举报

response.write " "&vbcrlf
或者用chr(10) chr(13)应该也可以...

topmonkey 2003-10-17

打赏
举报

<Table id =a Width="" Align="Center" Border="1" Style="Word-Break:Break-All" CellPadding="2" CellSpacing="0" BgColor="#e7e7e7" BorderColorLight="#878787" BorderColorDark="#FFFFFF">
<tr>
<td>Normal</td>
<td>Rows</td>
</tr>
<tr>
<td>And</td>
<td>Cells</td>
</tr>
</Table>
<Script Language="JavaScript">
function java(){
var newRow = a.insertRow(-1);
var newCol = newRow.insertCell(-1);
newCol.innerText = "Java Script";
newCol = newRow.insertCell(-1);
newCol.innerText = "Insert Rows";
}
</Script>
<Script Language="VBScript">
Function vb()
Dim newRow, newCol
Set newRow = a.insertRow(-1)
Set newCol = newRow.insertCell(-1)
newCol.innerText = "VBScript"
Set newCol = newRow.insertCell(-1)
newCol.innerText = "Insert Rows"
End Function
</Script>
<center>
<Input Type="button" NAME="butJava" Value="JavaScript" onClick="java()">
<Input Type="button" NAME="butVB" Value="VBScript" onClick="vb()">
</center>

topmonkey 2003-10-17

打赏
举报

<Table id =a Width="" Align="Center" Border="1" Style="Word-Break:Break-All" CellPadding="2" CellSpacing="0" BgColor="#e7e7e7" BorderColorLight="#878787" BorderColorDark="#FFFFFF">
<tr>
<td>Normal</td>
<td>Rows</td>
</tr>
<tr>
<td>And</td>
<td>Cells</td>
</tr>
</Table>
<Script Language="JavaScript">
var newRow = a.insertRow(-1);
var newCol = newRow.insertCell(-1);
newCol.innerText = "Java Script";
newCol = newRow.insertCell(-1);
newCol.innerText = "Insert Rows";
</Script>
<Script Language="VBScript">
Dim newRow, newCol
Set newRow = a.insertRow(-1)
Set newCol = newRow.insertCell(-1)
newCol.innerText = "VBScript"
Set newCol = newRow.insertCell(-1)
newCol.innerText = "Insert Rows"
</Script>

blue_butterfly 2003-10-17