App下载
APP二维码

扫码下载编程狮APP

try_webpages_vb_003 在线工具

try_webpages_vb_003 在线工具

输入 运行代码 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="/statics/demosource/showrazor.css">
</head>
<body>
<span class="marked">@Code

Dim db = Database.Open(&quot;SmallBakery&quot;)&nbsp;

Dim query = &quot;SELECT * FROM Product&quot;&nbsp;

End Code</span>

<html>&nbsp;

<body>&nbsp;

<h1>Small Bakery Products</h1>&nbsp;

<table border=&quot;1&quot; width=&quot;100%&quot;>&nbsp;

<tr>

<th>Id</th>&nbsp;

<th>Product</th>&nbsp;

<th>Description</th>&nbsp;

<th>Price</th>&nbsp;

</tr>

<span class="marked">@Code

Dim row

for each row in db.Query(query)

End Code</span>

<tr>&nbsp;

<td><span class="marked">@row.Id</span></td>&nbsp;

<td><span class="marked">@row.Name</span></td>&nbsp;

<td><span class="marked">@row.Description</span></td>&nbsp;

<td align=&quot;right&quot;><span class="marked">@row.Price</span></td>&nbsp;

</tr>&nbsp;

<span class="marked">@Code
next
End Code</span>

</table>&nbsp;

</body>&nbsp;

</html>
</body>
</html>
运行结果
PC端 手机端 平板端