刚写的一个合并纵向相同的行,常用

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