Dim floatxishu
For i = 0 to ubound(arr_xishu,2)
Response.Write " <tr>" & vbCrLf
If floatxishu <> CDbl(arr_xishu(0,i)) Then
floatxishu = CDbl(arr_xishu(0,i))
Response.Write " <td id='a"&arr_xishu(0,i)&"' align=""center"">"&arr_xishu(0,i)&"</td>" & vbCrLf
Else
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "a"& arr_xishu(0,i) &".rowSpan=a"& arr_xishu(0,i) &".rowSpan+1;" & vbCrLf
Response.Write "</script>" & vbCrLf
End If
Response.Write " <td>"&arr_xishu(1,i)&"</td>" & vbCrLf
Response.Write " <td>"&arr_xishu(2,i)&"</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Next