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

<%
'================================================
'********************获取数据********************
'================================================
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%>

<%
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,"|")
%>