案例:ASP.NET案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<script  runat="server">
3
Sub Page_Load(sender As Object, e As EventArgs)
4
dim rows,cells,j,i
5
rows=3
6
cells=2
7
For j=0 To rows-1
8
   dim r As New TableRow()
9
   For i=0 To cells-1
10
     dim c As New TableCell()
11
     c.Controls.Add(New LiteralControl("row " & j & ", cell " & i))
12
     r.Cells.Add(c)
13
   Next
14
   Table1.Rows.Add(r)
15
Next
16
End Sub
17
</script>
18
19
<html>
20
<body>
21
22
<form runat="server">
23
<asp:Table id="Table1" BorderWidth="1" GridLines="Both" runat="server" />
24
</form>
25
26
</body>
27
</html>
28