用Asp循环行列的问题.谢谢诸位

[ylfzly]

我想用以下表格的形式来现式记录
1 4
2 5
3
请问最好的解决方案是。。。谢谢

[piperzero]

我只会
1 2
3 4
5

[Amely]

dim a，b,c
a = 1
c = 5
b = fix(c/2)

response.write "<table>"
dim i,j
for i = 1 to b
response.write "<tr>"
response.write "<td><div id='td"&a&"'></td><td><div id='td"&b+1&"'></td>"
response.write "</r>"
a = a + 1
b = b + 1
next

for j = 1 to 5
response.write "<script>td"&j&".innerText='"&j&"';</script>"
next

没有环境测试，需要者自行测试修改

[Amely]

dim a，b,c
a = 1
c = 5
b = fix(c/2)

response.write "<table>"
dim i,j
for i = 1 to b
response.write "<tr>"
response.write "<td><div id='td"&a&"'></td><td><div id='td"&b+1&"'></td>"
response.write "</r>"
a = a + 1
b = b + 1
next

response.write "</table>"

for j = 1 to 5
response.write "<script>td"&j&".innerText='"&j&"';</script>"
next

没有环境测试，需要者自行测试修改

[Amely]

dim a，b,c
a = 1
c = 5
b = fix(c/2)

response.write "<table>"
dim i,j
for i = 1 to b
response.write "<tr>"
response.write "<td><div id='td"&a&"'></td><td><div id='td"&b+1&"'></td>"
response.write "</tr>"
a = a + 1
b = b + 1
next
response.write "</table>"

for j = 1 to 5
response.write "<script>td"&j&".innerText='"&j&"';</script>"
next

以这次发布的为准

[Amely]

我这个办法属笨办法。
扩展到3列还需要改很多地方

看看这里还有没有高手有更好的算法

顺便纠正一下程序
dim a，b,c
a = 1 '起始数
c = 5 '结束数
b = fix(c/2)

response.write "<table>"
dim i,j
for i = 1 to b
response.write "<tr>"
response.write "<td><div id='td"&a&"'></div></td><td><div id='td"&b+1&"'></div></td>"
response.write "</tr>"
a = a + 1
b = b + 1
next
response.write "</table>"

for j = 1 to c
response.write "<script>td"&j&".innerText='"&j&"';</script>"
next

[wzhiyuan]

mark

[wzhiyuan]

一个“高级”点的方法，矩阵转置。

[piperzero]

Amely(Good good study,Day day .NET) ，确实可以达到效果，那要是三列显示了？
1 4 7
2 5 8
3 6 9

[web863]

...