如何把一个二维数组导成HTML形式表格，要求每行如果相临值相同的合并

Question

dim yourarray(a,b)
dim i, j, k as integerresponse.write("<table>")
'开始遍历所有行
for i = 0 to a-1
  response.write("<tr>")
'开始遍历所有列
  for j = 0 to b - 2
    k = 1
'如果和下一格相同，则不增加单元格
    if a(i,j) = a(i,j+1) then
      k = k + 1
'如果和下一格不相同，则增加单元格，跨列数量有相同的数量决定。
    else
      if k  = 1 then
        response.write("<td>" & Cstr(a(i,j)) & "</td>")
      else
        response.write("<td colspan='" & Cstr(k) & "'>" & Cstr(a(i,j)) & "</td>")
      end if
      k = 1
    end if
    if k  = 1 then
      response.write("<td>" & Cstr(a(i,b-1)) & "</td>")
    else
      response.write("<td colspan='" & Cstr(k) & "'>" & Cstr(a(i,b-1)) & "</td>")
    end if
  next j
  response.write("</tr>")
next i
response.write("</table>")

Answer 1

你的代码还是由点问题的，不过很谢谢你
问题我已经解决

Answer 2

不好意思，忘记说一句，没有经过测试，呵呵。