asp实现自动添加数据到表格单元格

来源：百度知道 编辑：UC知道 时间：2024/06/11 06:32:37
X为X坐标数组
Y为Y坐标数组
n为所要放在表格单元格里面的值

X = (2,3,1)
Y = (3,1,2)

n ＝ (50,60,80)

A(2,3) //第一个坐标
B(3,1) //第二个坐标
C(1,2) //第三个坐标

生成一个3行3列的表格

50在A(2,3)单元格里面
60在B(3,1)单元格里面
80在C(1,2)单元格里面

用asp能自动生成如下表格

<table width="416" height="273" border="1" cellpadding="0" cellspacing="0">
<tr>
<td></td>
<td>50</td>
<td></td>
</tr>
<tr>
<td></td>
<td>80</td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
<td>60</td>
</tr>
</table>
上面没有说清楚。

<table width="416" height="273" border="1" cellpadding="0" cellspacing="0&quo

<%
function mktbl(mx,my,xa,ya,va)
'mx最大横坐标,my最大纵坐标,xa横坐标数组,xy纵坐标数组,va值数组
response.Write("<table width=""416"" height=""273"" border=""1"" cellpadding=""0"" cellspacing=""0"">")
dim i,s,t
for i=0 to ubound(va)
s=s&",x"&xa(i)&",y"&ya(i)&","&va(i)&","
next
for y=1 to my
response.Write("<tr>")
for x=1 to mx
response.Write("<td>")
if y=1 then response.Write(x&" ")
if x=1 and y>1 then response.Write(y&" ")
t=",x"&x&",y"&y&","
if instr(s,t)>0 then
t=right(s,len(s)-instr(s,t)-len(t)+1)
t=left(t,instr(t,",")-1)
response.Write("<strong>"&t&"&l