Question

求asp代码：动态增加表格行、列，并且每个表格内嵌入文本框。

我想实现的asp功能就像用excel软件一样的，能动态生成矩阵式文本框（插入行、插入列），输入值后，批量添加到access数据库的相应位置。比如第一列文本框名称为a1 a2 a3 ……添加到数据库a字段的第一 第二 第三的位置。
先谢谢 pxh0829，不过你的程序只能前期设定，不能随后在增加行、列数目。顺便说下每行为数据库的一条记录。

若以下回答无法解决问题，邀请你更新回答

Answer 1

<%
'================================================
'********************获取数据********************
'================================================
if request("action")="save" then

DataRow=int(request("DataRow"))
DataCol=int(request("DataCol"))
%>
<%
for i=1 to DataRow '行循环
%>
第<%=i%>行  <!--列循环--><%for j=1 to DataCol%>列<%=j%>:<%if request("a_row"&i&"_col"&j&"")<>"" then%><%=request("a_row"&i&"_col"&j&"")%><%else%>-<%end if%>  <%next%><br>
<%
next

'保存到数据库你看着办吧，不行请加QQ939119935
%>

<%
else
'================================================
'********************生成表格********************
'================================================
Dim m,n,k
if request("row")<>"" and IsNumeric(request("row")) then
m=int(request("row"))
else
m=10 '默认行数目
end if
if request("col")<>"" and IsNumeric(request("col")) then
n=int(request("col"))
else
n=5 '默认列数目
end if

if request("DataTitle")<>"" then
DataTitle=request("DataTitle")
else
DataTitle="序号|列1|列2|列3|列4|列5" '默认第一行数据说明，确保有n个"|"
end if
StrDataTitle=split(DataTitle,"|")
%>
<form action="" method="post">
<fieldset>
<legend>表格设置</legend>
<div>
<div>行的数目：<input name="row" value="<%=m%>"></div>
<div>列的数目：<input name="col" value="<%=n%>"></div>
<div>数据说明：<input name="DataTitle" style="width:75%" value="<%=DataTitle%>" title="生成表格的第一列为序号，请不要删除“序号|”，每个说明请用“|”分割，并确保有n个“|”。"></div>
<div><input type="submit" value="确定"></div>
</div>
</fieldset>
</form>
<form action="?action=save" method="post">
<table border="1" width="100%" cellspacing="" cellpadding="4" style="border-collapse: collapse" bordercolor="#000000">
<tr><%
for k=0 to ubound(StrDataTitle)
%>
<td><%=StrDataTitle(k)%></td><%
next
%>
</tr><%
for i=1 to m
%>
<tr>
<td style="width:35px;text-align:center"><%=i%></td><%
for j=1 to n
%>
<td><input name="a_row<%=i%>_col<%=j%>" style="width:100%"></td><%
next
%>
</tr><%
next
%>
</table>
<input type="hidden" name="DataRow" value="<%=m%>">
<input type="hidden" name="DataCol" value="<%=n%>">
<input type="submit" value="确定">
</form>
<%
end if
%>