菜鸟学堂在线工具

源代码

<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="/try/showrazor.css">
</head>
<body>
@Code 
Dim db = Database.Open(&quot;SmallBakery&quot;)&nbsp; 
Dim query = &quot;SELECT * FROM Product&quot;&nbsp; 
End Code 
&lt;html&gt;&nbsp; 
&lt;body&gt;&nbsp; 
&lt;h1&gt;Small Bakery Products&lt;/h1&gt;&nbsp; 
&lt;table border=&quot;1&quot; width=&quot;100%&quot;&gt;&nbsp; 
&lt;tr&gt; 
&lt;th&gt;Id&lt;/th&gt;&nbsp; 
&lt;th&gt;Product&lt;/th&gt;&nbsp; 
&lt;th&gt;Description&lt;/th&gt;&nbsp; 
&lt;th&gt;Price&lt;/th&gt;&nbsp; 
&lt;/tr&gt; 
@Code 
Dim row 
for each row in db.Query(query) 
End Code 
&lt;tr&gt;&nbsp; 
&lt;td&gt;@row.Id&lt;/td&gt;&nbsp; 
&lt;td&gt;@row.Name&lt;/td&gt;&nbsp; 
&lt;td&gt;@row.Description&lt;/td&gt;&nbsp; 
&lt;td align=&quot;right&quot;&gt;@row.Price&lt;/td&gt;&nbsp; 
&lt;/tr&gt;&nbsp; 
@Code
next
End Code 
&lt;/table&gt;&nbsp; 
&lt;/body&gt;&nbsp; 
&lt;/html&gt;
</body>
</html>

运行结果 在线运行