案例:ASP.net案例     状态:不可编辑再运行    进入竖版
 运行结果 
AخA
 
1
@Code
2
Dim db = Database.Open("SmallBakery") 
3
Dim query = "SELECT * FROM Product" 
4
End Code
5
<html> 
6
<body> 
7
<h1>Small Bakery Products</h1> 
8
<table border="1" width="100%"> 
9
<tr>
10
<th>Id</th> 
11
<th>Product</th> 
12
<th>Description</th> 
13
<th>Price</th> 
14
</tr>
15
@Code
16
Dim row
17
for each row in db.Query(query)
18
End Code
19
<tr> 
20
<td>@row.Id</td> 
21
<td>@row.Name</td> 
22
<td>@row.Description</td> 
23
<td align="right">@row.Price</td> 
24
</tr> 
25
@Code next End Code
26
</table> 
27
</body> 
28
</html>