案例：ASP.NET案例     状态：不可编辑再运行    进入竖版
 运行结果　
​x
 
1
​
2
<script  runat="server">
3
Sub submit(sender As Object, e As EventArgs)
4
Dim row,numrows,numcells,j,i
5
row=0
6
numrows=cint(rows1.Value)
7
numcells=cint(cells1.Value)
8
for j=1 to numrows
9
   Dim r As New HtmlTableRow()
10
   row=row+1
11
   for i=1 to numcells
12
     Dim c As New HtmlTableCell()
13
     c.Controls.Add(New LiteralControl("row " & j & ", cell " & i))
14
     r.Cells.Add(c)
15
   next
16
   t1.Rows.Add(r)
17
   t1.Visible=true
18
next
19
End Sub
20
</script>
21
​
22
<html>
23
<body>
24
​
25
<form runat="server">
26
<p>表格行：
27
<select id="rows1" runat="server">
28
   <option value="1">1</option>
29
   <option value="2">2</option>
30
   <option value="3">3</option>
31
</select>
32
<br />表格列：
33
<select id="cells1" runat="server">
34
   <option value="1">1</option>
35
   <option value="2">2</option>
36
   <option value="3">3</option>
37
</select>
38
<br /><br />
39
<input type="submit" value="显示表格" runat="server" OnServerClick="submit">
40
</p>
41
<table id="t1" border="1" runat="server" visible="false"/>
42
</form>
43
​
44
</body>
45
</html>
46
​