for 循环问题～～

[czy454]

<%
Dim a,b,i,j,Str
Str="1,0|2,1|3,0|4,1|5,0,|6,1|7,0|8,1|9,1|10,1"
a = Split(a,"|")
For i = 0 To Ubound(a(i))
a(i) = Split(a(i),",")
Next
For i = 0 To Ubound(a(i))
For j = 0 To Ubound(a(i))
Response.Write(a(i)(j))
Next
Response.Write("<br>")
Next
%>

要显示如下结果：
<table width="300" border="1" cellpadding="5" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="44">序号</td>
<td width="173">Id</td>
<td width="45">类型</td>
</tr>
<tr>
<td>1</td>
<td>5</td>
<td>0</td>
</tr>
<tr>
<td>2</td>
<td>7</td>
<td>1</td>
</tr>
<tr>
<td>3</td>
<td>3</td>
<td>0</td>
</tr>
<tr>
<td>4</td>
<td>2</td>
<td>1</td>
</tr>
<tr>
<td>5</td>
<td>6</td>
<td>1</td>
</tr>
</table>