案例:ASP.NET案例     状态:不可编辑再运行    进入横版
x
<input type="submit" value="显示表格" runat="server" OnServerClick="submit">
 
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

 运行结果 
 北美留学生论坛