源代码
<script runat="server"> Sub submit(sender As Object, e As EventArgs) dim i,j table1.BGColor="yellow" table1.BorderColor="red" for i=0 To table1.Rows.Count-1 for j=0 To table1.Rows(i).Cells.Count-1 table1.Rows(i).Cells(j).InnerHtml="Row " & i next next End Sub </script> <html> <body> <form runat="server"> <table id="table1" border="1" runat="server"> <tr> <td>Cell 1</td> <td>Cell 2</td> </tr> <tr> <td>Cell 3</td> <td>Cell 4</td> </tr> </table> <br /> <input type="button" value="改变内容" OnServerClick="submit" runat="server"/> </form> </body> </html>
运行结果
